R/read.basinHRUList.R

In scantle/caRmels: Catchment Attributes and Meteorology for Large-Sample Studies R Package

read.basinHRUList <- function(filename, fullpaths=TRUE) {

  header <- c('filename', 'HRUArea')

  basinHRUList <- read.table(file = filename,
                             header = F,
                             skip = 1,
                             col.names = header,
                             stringsAsFactors = F)

  # Expand file path relative to input path, if requested
  if (fullpaths == TRUE) {
    basinHRUList$filename <- paste0(dirname(filename), '/', basinHRUList$filename)
  }

  return(basinHRUList)
}