Introducing the R package robotoolbox

dickoa · December 19, 2022, 10:14am

That something I would love to improve @manh_nguyen . For select multiple, what would be the ideal format, can you show me an example? Also for select_multiple I’m still trying to find the best way to have label/no label switch as in select_one

manh_nguyen · December 21, 2022, 5:31am

Well. I’m not sure if my preference would be the same with others. When I export my data from kobo I always choose the option export select many question as single column as it reduces the size of my data as well.
About label/no labels, I don’t have any problems with that yet .

dickoa · December 21, 2022, 7:04pm

The original columns without 0/1 are also exported. You want an option to not also add the 0/1 columns ?

For e.g on this dummy examples, I have 5 pet types, as you can see we still have the column pet_type exported.

Rows: 5
Columns: 25
$ start                <dttm> 2022-05-09 18:31:40, 2022-05-09 1…
$ end                  <dttm> 2022-05-09 18:35:12, 2022-05-09 1…
$ today                <date> 2022-05-09, 2022-05-09, 2022-05-0…
$ full_name            <chr> "Rufus", "Romulus", "Remus", "Joe"…
$ pet_type             <chr> "3 4", "4", "5", NA, "3 4 5"
$ pet_type_1           <int> 0, 0, 0, NA, 0
$ pet_type_2           <int> 0, 0, 0, NA, 0
$ pet_type_3           <int> 1, 0, 0, NA, 1
$ pet_type_4           <int> 1, 1, 0, NA, 1
$ pet_type_5           <int> 0, 0, 1, NA, 1

manh_nguyen · December 22, 2022, 2:23am

I often don’t export o/1 columns in my data. But I think others prefer to have that columns and I can easily unselect the columns I don’t want in R script so it’s fine. Thank you for your hard work. It’s really nice package.

dickoa · December 22, 2022, 10:40am

Thanks a lot @manh_nguyen, and don’t hesitate if you have ideas on how to improve.
I plan to push to CRAN soon.

Best,
Ahmadou

dan_mungai · January 19, 2023, 9:36am

Hello Dickoa, I was looking for an API for the Kobotoolbox and I came across yours. It is a wonderful package. I however have some problems, I wanted to host my Shinyapps on Shinyapps.io, unfortunately shinyapps.io does not recognize packages in gitlab repos. how can you help. is there a version on github?

dickoa · January 19, 2023, 10:00am

@dan_mungai

Thanks for your message. We also have a mirror on github.

You can install it using remotes or pak

remotes::install_github("dickoa/robotoolbox")

Best,
Ahmadou

dan_mungai · January 19, 2023, 10:36am

Thank you so much
it has worked

dan_mungai · January 28, 2023, 9:29am

Hello Dickoa, The solution you provided for the previous problem worked. Now I have another problem. After updating my tidyr package, I am having this problem when I run this code: data ← kobo_asset_list()$uid[1] |> kobo_asset() |> kobo_data(),
The problem is
Error in unnest():
! Can’t rename variables in this context.
Run rlang::last_error() to see where the error occurred.

I would very much appreciate a solution.

dan_mungai · January 28, 2023, 9:32am

<error/tidyselect:::error_disallowed_rename>
Error in `unnest()`:
! Can’t rename variables in this context.

Backtrace:

robotoolbox::kobo_data(kobo_asset(kobo_asset_list()$uid[1]))
robotoolbox:::kobo_data.kobo_asset(kobo_asset(kobo_asset_list()$uid[1]))
robotoolbox:::kobo_data_(…)
robotoolbox:::kobo_form.kobo_asset(x)
tidyr:::unnest.data.frame(survey, cols = is_list_cols(survey), keep_empty = TRUE)
Run rlang::last_trace() to see the full context.

rlang::last_trace()
<error/tidyselect:::error_disallowed_rename>
Error in unnest():
! Can’t rename variables in this context.

Backtrace:
▆

├─robotoolbox::kobo_data(kobo_asset(kobo_asset_list()$uid[1]))
└─robotoolbox:::kobo_data.kobo_asset(kobo_asset(kobo_asset_list()$uid[1]))
└─robotoolbox:::kobo_data_(…)
```
├─robotoolbox::kobo_form(x)
```

└─robotoolbox:::kobo_form.kobo_asset(x)

```
  ├─stats::setNames(...)
```

  ├─tidyr::unnest(survey, cols = is_list_cols(survey), keep_empty = TRUE)

  └─tidyr:::unnest.data.frame(survey, cols = is_list_cols(survey), keep_empty = TRUE)

    └─tidyselect::eval_select(expr = enquo(cols), data = data, allow_rename = FALSE)

      └─tidyselect:::eval_select_impl(...)

        ├─tidyselect:::with_subscript_errors(...)

        │ └─rlang::try_fetch(...)

        │   └─base::withCallingHandlers(...)

        └─tidyselect:::vars_select_eval(...)

          └─tidyselect:::ensure_named(...)

```
            └─cli::cli_abort(...)
```
```
              └─rlang::abort(...)
```

dickoa · January 28, 2023, 12:41pm

Which version of tidyr are you using? I’ll see if it’s possible to reproduce it on my own.
Thanks

dickoa · January 28, 2023, 1:29pm

@dan_mungai
Can you install the new version? I pushed a quick fix, and I’ll add some tests against dev versions of all dep in the future.
Thanks

dan_mungai · January 28, 2023, 2:58pm

packageVersion(“tidyr”)
[1] ‘1.3.0’

dickoa · January 28, 2023, 3:01pm

Thanks, I made some changes. I also added some code to make sure that a call to kobo_settings() won’t print all your token (for safety).

remotes::install_github("dickoa/robotoolbox")

And let me know if it fixed the issue for you too.

Ahmadou

dan_mungai · January 28, 2023, 3:10pm

it is fixed, thank you so much

morriz · January 30, 2023, 12:12pm

my code has been working but I now get this error

Error in unnest():
! Can’t rename variables in this context.
Run rlang::last_error() to see where the error occurred.

rlang::last_error()
<error/tidyselect:::error_disallowed_rename>
Error in unnest():
! Can’t rename variables in this context.

Backtrace:

robotoolbox::kobo_data(asset)
robotoolbox:::kobo_data.kobo_asset(asset)
robotoolbox:::kobo_data_(…)
robotoolbox:::kobo_form.kobo_asset(x)
tidyr:::unnest.data.frame(survey, cols = is_list_cols(survey), keep_empty = TRUE)
Run rlang::last_trace() to see the full context.

rlang::last_trace()
<error/tidyselect:::error_disallowed_rename>
Error in unnest():
! Can’t rename variables in this context.

Backtrace:
▆

├─robotoolbox::kobo_data(asset)
└─robotoolbox:::kobo_data.kobo_asset(asset)
└─robotoolbox:::kobo_data_(…)
```
├─robotoolbox::kobo_form(x)
```

└─robotoolbox:::kobo_form.kobo_asset(x)

```
  ├─stats::setNames(...)
```

  ├─tidyr::unnest(survey, cols = is_list_cols(survey), keep_empty = TRUE)

  └─tidyr:::unnest.data.frame(survey, cols = is_list_cols(survey), keep_empty = TRUE)

    └─tidyselect::eval_select(expr = enquo(cols), data = data, allow_rename = FALSE)

      └─tidyselect:::eval_select_impl(...)

        ├─tidyselect:::with_subscript_errors(...)

        │ └─rlang::try_fetch(...)

        │   └─base::withCallingHandlers(...)

        └─tidyselect:::vars_select_eval(...)

          └─tidyselect:::ensure_named(...)

```
            └─cli::cli_abort(...)
```
```
              └─rlang::abort(...)
```

dickoa · January 30, 2023, 12:19pm

Hi @morriz,

Thanks for your message. Can you install the latest version and try again:

remotes::install_github("dickoa/robotoolbox")

Best,
Ahmadou

morriz · February 12, 2023, 1:42pm

Thanks it works properly…How do I change the values from xml values to labels

Thanks.

dickoa · February 12, 2023, 2:20pm

Hi @morriz ,

You can switch between xml and labels just for select_one for the moment. You can do it using the labelled R package. Let’s say you want the label for q1 you can use either labelled::to_character or labelled::to_factor.

library(robotoolbox)
library(tidyverse)
library(labelled)
library(dm)

data <- kobo_data(uid)
to_character(data$q1)
to_factor(data$q1)

data |>
  count(q1_label = to_character(q1))

data |>
  mutate(q1_label = to_factor(q1))

I would love to do the same for select_multiple but not sure about the way to approach this, if you have a suggestion, I would love to hear it. For the moment, the default for select_multiple is the original columns with choices separated by comma and a set of dummy columns (1/0) for each selected choices.

Thanks

Webex · February 23, 2023, 11:38am

@dickoa,

It is wonderful that we now have an R package for this. I would like to use it, and have copied your code, but when running the script:

## install.packages("remotes")
remotes::install_gitlab("dickoa/robotoolbox")

I received the following error:

checking for file ‘C:\Users\xxx\robotoolbox-HEAD-dbe829e15b78e3bc97c23056216f05fc55ffee70/DESCRIPTION’ … OK
preparing ‘robotoolbox’:
checking DESCRIPTION meta-information … OK
checking for LF line-endings in source and make files and shell scripts
checking for empty or unneeded directories
building ‘robotoolbox_1.0.5.9000.tar.gz’
Warning: invalid package ‘C:/Users/xxx/AppData/Local/Temp/Rtmp02iuFI/file30f8636f7782/robotoolbox_1.0.5.9000.tar.gz’
Error: ERROR: no packages specified
Warning: installation of package ‘C:/Users/xxx/AppData/Local/Temp/Rtmp02iuFI/file30f8636f7782/robotoolbox_1.0.5.9000.tar.gz’ had non-zero exit status

I have restared R and re-installed it, and re-installed the codes, but the error persists. Could you give some advice?

Introducing the R package robotoolbox

<error/tidyselect:::error_disallowed_rename> Error in unnest(): ! Can’t rename variables in this context.

<error/tidyselect:::error_disallowed_rename>
Error in `unnest()`:
! Can’t rename variables in this context.