data-raw/intdata-glatos_detection_schema.r

In ocean-tracking-network/glatos: A package for the Great Lakes Acoustic Telemetry Observation System

# Make glatos_detection_schema (internal data object for read_glatos_detections)
# Specify column names and data types for each detection file version


# Make list element for each version
# pre-allocate table-level structure within each version
glatos_detection_schema <- list(
  "v1.3" = NA,
  "v1.4" = NA
)


#----------------------------------------------------
# Version 1.3

glatos_detection_schema$v1.3 <- read.table(
  text = "
  name                       type
  animal_id                  character
  detection_timestamp_utc    POSIXct
  glatos_array               character
  station_no                 character
  transmitter_codespace      character
  transmitter_id             character
  sensor_value               numeric
  sensor_unit                character
  deploy_lat                 numeric
  deploy_long                numeric
  receiver_sn                character
  tag_type                   character
  tag_model                  character
  tag_serial_number          character
  common_name_e              character
  capture_location           character
  length                     numeric
  weight                     numeric
  sex                        character
  release_group              character
  release_location           character
  release_latitude           numeric
  release_longitude          numeric
  utc_release_date_time      POSIXct
  glatos_project_transmitter character
  glatos_project_receiver    character
  glatos_tag_recovered       character
  glatos_caught_date         Date
  station                    character
  min_lag                    numeric
  ",
  header = TRUE,
  stringsAsFactors = FALSE
)

# \Version 1.3
#----------------------------------------------------

#----------------------------------------------------
# Version 1.4

glatos_detection_schema$v1.4 <- rbind(
  glatos_detection_schema$v1.3,
  read.table(
    text = "
  name                       type
  record_status              character
  ",
    header = TRUE,
    stringsAsFactors = FALSE
  )
)

# \Version 1.4
#-------------

# add to sysdata.rda
rda_file <- file.path("R/sysdata.rda")
add_internal_data(glatos_detection_schema, rda_file)