R/readBExpVegReleves.R

In environmentalinformatics-marburg/biodivTools:

#' Read vegetation releves data
#'
#' @description
#' Read vegetation releves data from files provided in the format of the
#' DFG Biodiversity Exploratories.
#'
#' @param vegrel Full path and name of the vegetation releves file.
#'
#' @return
#' A \code{data.frame} object.
#'
#' @author
#' Thomas Nauss
#'
#' @references
#' NONE
#'
#' @examples
#' \notrun{
#' }
#'
#' @export readBExpVegReleves
#' @name readBExpVegReleves
#'
readBExpVegReleves <- function(vegrel){
  df_vegrel <- read.table(vegrel, header = TRUE, sep = "\t", dec = ".")
  if("EpPlotID" %in% colnames(df_vegrel)){
    df_vegrel$EPID <- as.character(df_vegrel$Ep_PlotID)
  } else {
    df_vegrel$EPID <- as.character(df_vegrel$EP_PlotID)
  }
  df_vegrel$EPID[nchar(df_vegrel$EPID) == 4] <- paste0(
    substr(df_vegrel$EPID[nchar(df_vegrel$EPID) == 4], 1, 3), "0",
    substr(df_vegrel$EPID[nchar(df_vegrel$EPID) == 4], 4, 4))

  df_vegrel$Year = substr(as.character(df_vegrel$Year), 5, 9)
  df_vegrel$PlotID = NULL
  df_vegrel$EP_PlotID = NULL
  return(df_vegrel)
}