R/sfs_crs.R

In rundel/sfs: What the package does (short line)

setClass("CRS",
    representation(projargs = "character"),
    validity = function(object) {
        if (length(object@projargs) != 1)
          return("projargs must be of length 1")

        return(TRUE)
    }
)