R/read_Prague.R

In jonasbhend/pressurehelper: Convert historical air pressure records

#' read_Prague
#' 
#' Reads in Prague air pressure station data
#' 
#' @param infile file path of air pressure data
#' 
#' @keywords util
#' @export
read_Prague <- function(infile){
  ## read infile
  wb <- loadWorkbook(infile)
  ## set missing values
  setMissingValue(wb, missvals)
  ## read in data
  rawdata <- readWorksheet(wb, sheet=1, startRow=1)
  names(rawdata) <- c('Year', 'Month', 'Day', 'P')
  rawdata$P.units <- 'mm'
  rawdata$Tcorr <- 1
  rawdata$Time <- '14:00'
  rawdata$Station <- 'Prague'

  return(rawdata)
  
}