/
make_asciicast.R
53 lines (47 loc) · 1.28 KB
/
make_asciicast.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#' Title: ruODK walkthough
#' Typing_speed: 0.05
#' Empty_wait: 1
#' End_wait: 20
# <<
# Use your form's OData Service URL (Form > Submissions > Analyse data)
# Read vignette "setup" on setting username and password via .Renviron
# <<
suppressMessages(library(tidyverse))
library(ruODK)
ruODK::ru_setup(
svc = "https://sandbox.central.getodk.org/v1/projects/14/forms/build_Flora-Quadrat-0-4_1564384341.svc",
un = ruODK::get_test_un(), pw = ruODK::get_test_pw()
)
# <<
# List available submission data tables
# <<
fq_svc <- ruODK::odata_service_get()
fq_svc
# <<
# Download main submissions and attachments
# <<
fq_data <- ruODK::odata_submission_get(
table = fq_svc$name[1], wkt = TRUE, verbose = TRUE
)
# <<
# Download first nested subtable, join to main submissions
# <<
fq_data_strata <- ruODK::odata_submission_get(
table = fq_svc$name[2], wkt = TRUE, verbose = TRUE
) %>%
dplyr::left_join(fq_data, by = c("submissions_id" = "id"))
# <<
# Download second nested subtable, join to main submissions
# <<
fq_data_taxa <- ruODK::odata_submission_get(
table = fq_svc$name[3], wkt = TRUE, verbose = TRUE
) %>%
dplyr::left_join(fq_data, by = c("submissions_id" = "id"))
# <<
# View data
# <<
skimr::skim(fq_data)
dplyr::glimpse(fq_data)
head(fq_data)
head(fq_data_strata)
head(fq_data_taxa)