R/gFileOpen.R

In aemon-j/rHeatFluxAnalyzer: Calculate heat fluxes from standart buoy data

#' read in forcing data for heat flux calculations
#'
#' @param fileName Name of the file to read in
#' @param treadAsWtr Logical, is the inputfile water temperature with several depths?
#' @export
#' @author Johannes Feldbauer
#' @return Returns a list with date, data and if treatAsWtr = TRUE depths of the observations

gFileOpen <- function(fileName,treatAsWtr=FALSE){

  # author: Johannes Feldbauer 2019



  headers <- as.character(read.table(fileName,sep = "\t",nrows = 1,stringsAsFactors = FALSE))
  # format <-  '%s'
  # for (i in 2:length(regexp(headers,'\t','split'))){
  #   format <-  strcat(format,'%f')
  # }
  d  <- read.table(fileName,sep = "\t",header = TRUE)


  dat <-  d[,2:ncol(d)]
  dates <-  as.POSIXct(d[,1])

  if (treatAsWtr){
    heads <- unlist(regmatches(headers[2:length(headers)],
                               gregexpr("[0-9]+\\.*[0-9]*",headers[2:length(headers)])))
    depth <- as.numeric(heads)
    headers <- depth  # NOW are numbers...
  } else {
    headers <- NULL
    }

  return(list(dates=dates,dat=dat,depths=headers))
}