replace class check by inherits check, I missed this when reviewing #…

…1057
wadpac · Feb 22, 2024 · a310d7d · a310d7d
1 parent b9ba6b8
commit a310d7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/g.inspectfile.R b/R/g.inspectfile.R
@@ -197,7 +197,7 @@ g.inspectfile = function(datafile, desiredtz = "", params_rawdata = c(),
                                     rmc.scalefactor.acc = params_rawdata[["rmc.scalefactor.acc"]],
                                     desiredtz = desiredtz,
                                     configtz = configtz)
-    if (class(Pusercsvformat$header) == "character" && Pusercsvformat$header == "no header") {      
+    if (inherits(Pusercsvformat$header, "character") && Pusercsvformat$header == "no header") {      
       sf = params_rawdata[["rmc.sf"]]
     } else {
       sf = as.numeric(Pusercsvformat$header["sample_rate",1])