In dbca-wa/etlTurtleNesting: Data ETL of Turtle Nesting Census Data from ODK Central to WAStD

knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(fs)
library(ruODK)

ruODK::ru_setup(
  pid=28,
  tz = "Australia/Perth",
  odkc_version = Sys.getenv("ODKC_TEST_VERSION"),
  verbose = TRUE,
  url = Sys.getenv("ODKC_TEST_URL"),
  un = Sys.getenv("ODKC_TEST_UN"),
  pw = Sys.getenv("ODKC_TEST_PW")
)

loc <- fs::path("spotlighting")
fs::dir_create(loc)

dl_and_save <- function(fid, loc){
  ruODK::odata_submission_get(
    fid=fid, local_dir = loc, download=TRUE, wkt=TRUE) %>%
    readr::write_csv(fs::path(loc, glue::glue(fid, ".csv")))
}

dl_and_save("build_Spotlighting-0-9_1584607517", loc)
dl_and_save("build_Spotlighting-Survey-End-0-4_1584607543", loc)
dl_and_save("build_Spotlighting-Survey-Start-0-5_1584607495", loc)

# ft <- ruODK::odata_service_get(fid="...")
# data <- ruODK::odata_submission_get(
#   table = ft$url[1], 
#   local_dir = loc, 
#   wkt = TRUE
# )
# 
# data_sub1 <- ruODK::odata_submission_get(
#   table = ft$url[2], 
#   local_dir = loc
# ) %>%
#   dplyr::left_join(
#     data, 
#     by = c("submissions_id" = "id")
#   )
# 
# data_sub2 <- ruODK::odata_submission_get(
#   table = ft$url[3], 
#   local_dir = loc
# ) %>%
#   dplyr::left_join(
#     data, 
#     by = c("submissions_id" = "id")
# )

dbca-wa/etlTurtleNesting documentation built on Nov. 18, 2022, 8:03 a.m.