fq_form_list <- ruODK::form_list()

fq_form_list %>% knitr::kable(.)

fq_form_xml <- ruODK::form_xml(parse = FALSE)

if (require(listviewer)) {
  listviewer::jsonedit(fq_form_xml)
} else {
  ru_msg_warn("Install package listviewer to browse the form XML.")
}
#> Loading required package: listviewer

fq_form_schema <- ruODK::form_schema()

fq_form_schema %>% knitr::kable(.)

fq_form_detail <- ruODK::form_detail()

fq_form_detail %>% knitr::kable(.)

# Predict filenames (with knowledge of form)
fid <- ruODK::get_test_fid()
fid_csv <- fs::path(t, glue::glue("{fid}.csv"))
fid_csv_veg <- fs::path(t, glue::glue("{fid}-vegetation_stratum.csv"))
fid_csv_tae <- fs::path(t, glue::glue("{fid}-taxon_encounter.csv"))

# Download the zip file
se <- ruODK::submission_export(local_dir = t, overwrite = FALSE, verbose = TRUE)

# Unpack the zip file
f <- unzip(se, exdir = t)
fs::dir_ls(t)

# Prepend attachments with media/ to turn into relative file paths
fq_zip_data <- fid_csv %>%
  readr::read_csv(na = c("", "NA", "na")) %>% # form uses "na" for NA
  janitor::clean_names(.) %>%
  dplyr::mutate(id = meta_instance_id) %>%
  ruODK::handle_ru_datetimes(fq_form_schema) %>%
  ruODK::handle_ru_geopoints(fq_form_schema) %>%
  ruODK::attachment_link(fq_form_schema)

fq_zip_strata <- fid_csv_veg %>%
  readr::read_csv(na = c("", "NA", "na")) %>%
  janitor::clean_names(.) %>%
  dplyr::mutate(id = parent_key) %>%
  # ruODK::handle_ru_datetimes(fq_form_schema) parent_key%>% # no dates
  # ruODK::handle_ru_geopoints(fq_form_schema) %>%  # no geopoints
  # ruODK::ruODK::attachment_link(fq_form_schema) %>% # no att.
  dplyr::left_join(fq_zip_data, by = c("parent_key" = "meta_instance_id"))

fq_zip_taxa <- fid_csv_tae %>%
  readr::read_csv(na = c("", "NA", "na")) %>%
  janitor::clean_names(.) %>%
  dplyr::mutate(id = parent_key) %>%
  # ruODK::handle_ru_datetimes(fq_form_schema) %>%
  # ruODK::handle_ru_geopoints(fq_form_schema) %>%
  # ruODK::ruODK::attachment_link(fq_form_schema) %>%
  dplyr::left_join(fq_zip_data, by = c("parent_key" = "meta_instance_id"))

head(fq_zip_data)
#> # A tibble: 1 × 38
#>   submission_date     meta_instance_id encounter_start_date…¹ reporter device_id
#>   <dttm>              <chr>            <dttm>                 <lgl>    <chr>    
#> 1 2023-12-04 08:30:26 uuid:46d3939a-8… 2023-12-04 16:20:19    NA       collect:…
#> # ℹ abbreviated name: ¹​encounter_start_datetime
#> # ℹ 33 more variables: location_area_name <chr>, location_quadrat_photo <chr>,
#> #   location_corner1_latitude <dbl>, location_corner1_longitude <dbl>,
#> #   location_corner1_altitude <dbl>, location_corner1_accuracy <dbl>,
#> #   habitat_morphological_type <chr>, habitat_morphological_type_photo <chr>,
#> #   perimeter_corner2_latitude <dbl>, perimeter_corner2_longitude <dbl>,
#> #   perimeter_corner2_altitude <dbl>, perimeter_corner2_accuracy <dbl>, …
head(fq_zip_strata)
#> # A tibble: 2 × 47
#>   nvis_level3_broad_floristic_gr…¹ max_height_m foliage_cover dominant_species_1
#>   <chr>                                   <dbl> <chr>         <chr>             
#> 1 w3.0_shrub                                  1 70-30         Test species 1    
#> 2 w1.1_trees_rainforest                       5 10-5          Test species 5    
#> # ℹ abbreviated name: ¹​nvis_level3_broad_floristic_group
#> # ℹ 43 more variables: dominant_species_2 <chr>, dominant_species_3 <chr>,
#> #   dominant_species_4 <chr>, parent_key <chr>, key.x <chr>, id.x <chr>,
#> #   submission_date <dttm>, encounter_start_datetime <dttm>, reporter <lgl>,
#> #   device_id <chr>, location_area_name <chr>, location_quadrat_photo <chr>,
#> #   location_corner1_latitude <dbl>, location_corner1_longitude <dbl>,
#> #   location_corner1_altitude <dbl>, location_corner1_accuracy <dbl>, …
head(fq_zip_taxa)
#> # A tibble: 2 × 49
#>   field_name     photo_in_situ     taxon_encounter_loca…¹ taxon_encounter_loca…²
#>   <chr>          <chr>                              <dbl>                  <dbl>
#> 1 Test species 1 1701678535420.jpg                  -31.9                   116.
#> 2 Test species 6 1701678592627.jpg                  -31.9                   116.
#> # ℹ abbreviated names: ¹​taxon_encounter_location_latitude,
#> #   ²​taxon_encounter_location_longitude
#> # ℹ 45 more variables: taxon_encounter_location_altitude <dbl>,
#> #   taxon_encounter_location_accuracy <dbl>, life_form <chr>,
#> #   voucher_specimen_barcode <lgl>, voucher_specimen_label <dbl>,
#> #   parent_key <chr>, key.x <chr>, id.x <chr>, submission_date <dttm>,
#> #   encounter_start_datetime <dttm>, reporter <lgl>, device_id <chr>, …
# Further: create map with popups, see vignette "odata"

fq_submission_list <- ruODK::submission_list()

fq_submission_list %>% knitr::kable(.)

# One submission
fq_one_submission <- ruODK::get_one_submission(
  fq_submission_list$instance_id[[1]]
)

# Multiple submissions
fq_submissions <- ruODK::submission_get(fq_submission_list$instance_id)

if (requireNamespace("listviewer")) {
  listviewer::jsonedit(fq_submissions, mode = "code")
} else {
  ru_msg_info("Please install package listviewer!")
}