Commit af60aa05 authored by Chris Holbrook's avatar Chris Holbrook

add blue shark att internal data set for testing

parent 080454ea
No preview for this file type
#Make internal data object blue_shark_att for testing
# (example data object)
#get blue shark example data
dtc_file <- system.file("extdata",
"blue_shark_detections.csv", package = "glatos")
shrk_det_file <- system.file("extdata", "blue_shark_detections.csv",
package = "glatos")
blue_shark_detections <- read_otn_detections(shrk_det_file)
#get path to example files from OTN ERDDAP
ani_erd_file <- system.file("extdata", "otn_aat_animals.csv",
package = "glatos")
animals <- read.csv(ani_erd_file, as.is = TRUE) # load the CSVs from ERDDAP
tags_erd_file <- system.file("extdata", "otn_aat_tag_releases.csv",
package = "glatos")
tags <- read.csv(tags_erd_file, as.is = TRUE)
rcv_erd_file <- system.file("extdata", "otn_aat_receivers.csv",
package = "glatos")
stations <- read.csv(rcv_erd_file, as.is = TRUE)
#Remove first row; (blank or metadata about the column)
animals <- animals[-1,]
tags <- tags[-1,]
stations <- stations[-1,]
#create ATT object
blue_shark_att <- convert_otn_erddap_to_att(blue_shark_detections,
tags, stations, animals)
#----------------------------------------------------
#add to sysdata.rda
rda_file <- file.path(".","R/sysdata.rda")
glatos:::add_internal_data(blue_shark_att, rda_file)
#for exported ('public') data
#devtools::use_data(walleye_detections, pkg = "..", overwrite = TRUE)
......@@ -56,7 +56,7 @@ rcv_erd_file <- system.file("extdata", "otn_aat_receivers.csv",
package = "glatos")
stations <- read.csv(rcv_erd_file)
Remove first row; (blank or metadata about the column)
#Remove first row; (blank or metadata about the column)
animals <- animals[-1,]
tags <- tags[-1,]
stations <- stations[-1,]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment