Introducing the R package robotoolbox

User Support Data Management
, , ,
58

@jeanpo Can you do

uid <- "xxxxxxxxxxxxxxxxxx"
form <- kobo_form(uid)
form |>
  filter(name == "var_name") |>
  pull(choices)

when I do it with my example, I have:

filter(form, name == "pet_type") |> pull(choices)

## # A tibble: 5 × 4
##   value_name value_label value_lang   value_version         
##   <chr>      <chr>       <chr>        <chr>                 
## 1 1          lapin       English (en) vTbjhgntR6d4h6ZvWahofi
## 2 2          poulet      English (en) vTbjhgntR6d4h6ZvWahofi
## 3 3          chien       English (en) vTbjhgntR6d4h6ZvWahofi
## 4 4          chat        English (en) vTbjhgntR6d4h6ZvWahofi
## 5 5          tortue      English (en) vTbjhgntR6d4h6ZvWahofi

Can you also do this:

kobo_asset_version_list(uid)
## # A tibble: 4 × 4
##   uid                    url   asset_deployed date_modified      
##   <chr>                  <chr> <lgl>          <dttm>             
## 1 vTbjhgntR6d4h6ZvWahofi http… TRUE           2023-05-19 15:40:40
## 2 vKdkehR7oT9psemeiE85ve http… TRUE           2023-05-19 15:39:28
## 3 vSmBN6KCy6rV6KbeGuH8g7 http… FALSE          2023-05-19 15:38:49
## 4 vQJkKVJLiPLQAFz2nbDXFQ http… FALSE          2023-05-19 15:38:48

Finally, what’s the output of this?

df <- kobo_data(uid)
df[["__version__"]]
table(df[["__version__"]])
2 Likes