Nothing
# Prepare test
cat("\nTesting dir_get_gpx()\n")
rm(list = ls(all.names = TRUE))
gpx_dir <- system.file("extdata", package="psyosphere")
# Check ------------------------------------------------------------------------
# Calculations
psyo_rounds <- dir_get_gpx(gpx_dir, tz="MET")
# Check results
if(NROW(psyo_rounds)!=9148) { stop("Wrong number of observations") }
if(NCOL(psyo_rounds)!=6) { stop("Wrong number of variables") }
psyosphere::val_psyo(psyo_rounds)
test_sum <- sum(psyo_rounds[,"lon"])
if(round(test_sum,3)!=round(62670.9175,3)) {stop("Wrong test_sum")}
rm(psyo_rounds)
# Check class ------------------------------------------------------------------
# Calculations
psyo_rounds <- dir_get_gpx(gpx_dir, tz="MET")
# Check results
if (class(psyo_rounds[,"id"]) != "character") {stop("Wrong class")}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.