datasetup.R
#
# When the package is installed, this tells us
# the directory where the .tab files are stored
#
# Typically data/murgatroyd.R reads data-raw/murgatroyd.tab
# and applies special processing
#
spatstat.rawdata.location <- function(...) {
locn <- system.file("data-raw", package="spatstat")
if(length(list(...)) != 0)
locn <- paste(c(locn, ...), collapse=.Platform$file.sep)
return(locn)
}