R/import_constraints.R

In BenjaminDelory/heathland: Analysis of Heathland Management Trade-offs

import_constraints<-function(path=NULL){
  
  #Error interceptions
  if (is.null(path)==FALSE & is.character(path)==FALSE){stop("If path is not NULL, it must be a character string")}
  
  #Locate extdata folder
  if (is.null(path)==TRUE){path<-system.file("extdata", package="heathland")}
  
  #create list
  data<-as.matrix(read.table(paste(path, "constraints.txt", sep="/")))
  
  class(data)<-c("matrix", "constraints")
  
  return(data)}