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=3,
  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("flora_quadrats")
loc_media <- fs::path(loc, "media")
fs::dir_create(loc)
fs::dir_create(loc_media)

fid <- "build_Flora-Quadrat-0-3_1559789150"
ft <- ruODK::odata_service_get(fid=fid)
data <- ruODK::odata_submission_get(
  table = ft$url[1],
  fid = fid,
  local_dir = loc_media,
  wkt = TRUE,
  download = TRUE
) %>%
    readr::write_csv(fs::path(loc, glue::glue(fid, ".csv")))

data_sub1 <- ruODK::odata_submission_get(
  table = ft$url[2],
  fid=fid,
  local_dir = loc_media
) %>%
  dplyr::left_join(
    data,
    by = c("submissions_id" = "id")
  ) %>%
    readr::write_csv(fs::path(loc, glue::glue(fid, "_strata.csv")))


data_sub2 <- ruODK::odata_submission_get(
  table = ft$url[3],
  fid=fid,
  local_dir = loc_media
) %>%
  dplyr::left_join(
    data,
    by = c("submissions_id" = "id")
)%>%
    readr::write_csv(fs::path(loc, glue::glue(fid, "_taxa.csv")))


fid <- "build_Flora-Quadrat-0-4_1586245110"
ft <- ruODK::odata_service_get(fid=fid)
data <- ruODK::odata_submission_get(
  table = ft$url[1],
  fid = fid,
  local_dir = loc_media,
  wkt = TRUE,
  download = TRUE
) %>%
    readr::write_csv(fs::path(loc, glue::glue(fid, ".csv")))

data_sub1 <- ruODK::odata_submission_get(
  table = ft$url[2],
  fid=fid,
  local_dir = loc_media
) %>%
  dplyr::left_join(
    data,
    by = c("submissions_id" = "id")
  ) %>%
    readr::write_csv(fs::path(loc, glue::glue(fid, "_strata.csv")))


data_sub2 <- ruODK::odata_submission_get(
  table = ft$url[3],
  fid=fid,
  local_dir = loc_media
) %>%
  dplyr::left_join(
    data,
    by = c("submissions_id" = "id")
)%>%
    readr::write_csv(fs::path(loc, glue::glue(fid, "_taxa.csv")))

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