diff --git a/R/g.inspectfile.R b/R/g.inspectfile.R index 4221c9e19..a375ff0ea 100644 --- 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])