Read Logger File from NIVUS PCM4

Usage

readLogger_NIVUS_PCM4_2(
  filepath,
  headerRow = 9,
  sep = "\t",
  maxCols = 50,
  removeEmptyColumns = FALSE
)

Arguments

filepath: full path to logger file
headerRow: number of row containing the header row of the table
sep: column separator
maxCols: maximum number of columns
removeEmptyColumns: if TRUE empty columns are removed

References

http://www.nivus.de/ximages/1397007_p4ba02en.pdf

Examples

if (FALSE) {
# set paths to example files (contained in this package)
files <- c(
  extdataFile("NIVUS/example_NIVUS_PCM4_ALT.TXT"),
  extdataFile("NIVUS/example_NIVUS_PCM4_NEU.TXT"),
  extdataFile("NIVUS/example_NIVUS_PCM4_STR.TXT")
)
 
# read the files
x1 <- readLogger_NIVUS_PCM4_2(files[1L])
x2 <- readLogger_NIVUS_PCM4_2(files[2L])
x3 <- readLogger_NIVUS_PCM4_2(files[3L])
  
# compare structures
str(x1)
str(x2)
str(x3)
  
# get metadata
(metadata <- kwb.utils::getAttribute(x1, "metadata"))
  
# show time adjusts
metadata$timeAdjust
}