R/landuse_names.R

In TroublemakeR: Generates Spatial Problems in R for 'AMPL'

#' @title Landuse names
#'
#' @description
#' This function takes a vector of landuse names and writes them to a .dat file. The file
#' will be written to the location specified by the `name` argument. If the file
#' already exists, it will be overwritten. The file format is plain text, with each
#' line terminated by a newline character.
#'
#' @param landuses a vector with the names of the landuses
#' @param name The name of the output file
#' @return  .dat file. This function is used for the side-effect of writing values to a file.
#' @export
#'
#' @examples
#'
#' landuse_names(landuses =  c("Agriculture", "Forest", "Urban"))
#'
#' # delete the file so the test on cran can pass this
#'
#' file.remove("Problem.dat")
#'
#'
#' @author Derek Corcoran
landuse_names <- function(landuses = NULL, name = "Problem"){
  Result <- paste(c("set Landuses :=", landuses, ";"), collapse = " ")
  if(file.exists(paste0(name, ".dat"))){
    sink(paste0(name, ".dat"), append = T)
    cat(Result)
    cat("\n")
    sink()
  }
  if(!file.exists(paste0(name, ".dat"))){
    sink(paste0(name, ".dat"), append = F)
    cat(Result)
    cat("\n")
    sink()
  }
  rm(Result)
  gc()
}