bedatadriven / activityinfo-R

ActivityInfo R Language Client
https://www.activityinfo.org/support/docs/R/
17 stars 12 forks source link

dplyr::filter fails if there are duplicate column names #80

Closed akbertram closed 1 year ago

akbertram commented 1 year ago

@nickdickinson Ran into some problems writing the vignettes. Here's an example I'm trying to do. The form is public so you should be able to execute the code below:

records <- getRecords("ceam1x8kq6ikcujg") 
records |> filter(START_MONTH=="2018-01")
Error in `filter()`:
! Can't transform a data frame with duplicate names.
Run `rlang::last_trace()` to see where the error occurred.

The following output from glimpse shows that there is indeed a duplicate column:

Rows: 134
Columns: 20
A tibble: 134 × 20
$ `_id`                 <chr> "cphnje3kq6pbwb81a", "cilhx8pkq6pbwb91b", "cb1xxe2kq6pbwb91c", "cfpwparkq6pbwb91d", "cwt9ttukq6pbwb91e", "cqs04chkq6…
$ `_lastEditTime`       <dbl> 1624284965, 1624284965, 1624284965, 1624284965, 1654689264, 1624284965, 1624284965, 1624284965, 1624284966, 16242849…
$ Organization          <chr> "c9pinkskq6n13u22", "cwhjya2kq6n13u34", "cndrfpgkq6n13u46", "cqw5pxtkq6n13u48", "cqw5pxtkq6n13u48", "cctqkddkq6n13u4…
$ Organization.Name     <chr> "The Fred Hollows Foundation", "United Nations Childrens Fund", "American Refugee Committee", "Pact Global Microfina…
$ Sector                <chr> "cu6zg2hkq6jtw7l5f", "czhoavkkq6jtw7k4y", "c92dsnnkq6jtw7l5p", "cgrx56xkq6jtw7n66", "cgrx56xkq6jtw7n66", "czhoavkkq6…
$ Name                  <chr> "Basic Health Care", "Quality Basic Education/Formal Education", "Malaria Programme", "Microfinance", "Microfinance"…
$ Sector.Name           <chr> "Health", "Education", "Health", "Livelihoods", "Livelihoods", "Education", "Agriculture", "Livelihoods", "Nutrition…
$ Sector                <chr> "cu6zg2hkq6jtw7l5f", "czhoavkkq6jtw7k4y", "c92dsnnkq6jtw7l5p", "cgrx56xkq6jtw7n66", "cgrx56xkq6jtw7n66", "czhoavkkq6…
$ Location              <chr> "c9h8zrakq6jp9112z", "ccri8n6kq6jp90y2c", "cl8mt7lkq6jp90z2k", "criyaetkq6jp90z2f", "cckhmvlkq6jp90y2d", "cl5oqz5kq6…
$ Name                  <chr> "Basic Health Care", "Quality Basic Education/Formal Education", "Malaria Programme", "Microfinance", "Microfinance"…
$ `[State/Region].Name` <chr> "Shan (South)", "Chin", "Tanintharyi", "Yangon", "Sagaing", "Kayah", "Chin", "Ayeyarwady", "Kayin", "Rakhine", "Ayey…
$ `[State/Region]`      <chr> "cqefrvkkq6jnidgq", "c6qc7rfkq6jnidfb", "c4w2g9bkq6jnidfk", "cvira0gkq6jnidfl", "ctw2augkq6jnidfj", "cm1j7eskq6jnidf…
$ `[COVID-Related]`     <chr> "No (not COVID related)", "Yes  (COVID mainstreamed)", "Yes  (COVID mainstreamed)", "No (not COVID related)", "No (n…
$ `[Project title]`     <chr> "Strengthening eye care in Myanmar", "Remedial children/teachers (SC 3.2/ Act: 3.2.1)", "RAI2-Elimination (RAI2E)", …
$ START_MONTH           <chr> "2018-01", "2020-11", "2019-04", "2013-04", "2020-01", "2019-01", "2004-01", "2019-09", "2019-07", "2017-07", "2019-…
$ END_MONTH             <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ `[Project status]`    <chr> "Under implementation", "Planned", "Under implementation", "Under implementation", "Under implementation", "Under im…
$ `[Suspension reason]` <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ Remarks               <chr> NA, "GPE fund", NA, "217798", "171681", NA, NA, "158161", "Shan Lal Pyin Lay", "199722", "154817", "192184", "GPE fu…
$ `[Monthly reports]`   <dbl> 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…

The form in questions does not have duplicate field labels or codes.

nickdickinson commented 1 year ago

This is fixed now