R/be_io_met_annual.R

In environmentalinformatics-marburg/metTools:

#' PREPROCESS METEOROLOGICAL READ DATA
#' @export be_io_met_annual
be_io_met_annual <- function(filepath, ...){
  df_met <- read.table(filepath, header = TRUE, sep = ",", dec = ".")

  # Define grouping by year
  df_met$g_a <- substr(as.character(df_met$datetime), 1, 4)

  # Define grouping by exploratory and land cover type
  df_met$g_belc <- substr(as.character(df_met$plotID), 1, 3)

  # Define grouping by plot and year
  df_met$g_pa <- paste0(as.character(df_met$plotID), "_",
                        substr(as.character(df_met$datetime), 1, 4))
  colnames(df_met)[which(colnames(df_met) == "plotID")] = "EPID"

  return(df_met)
}