data-raw/intdata-blue_shark_att.r

In jsta/glatos: A package for the Great Lakes Acoustic Telemetry Observation System

#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)