tests/testthat/test_flatten_keys.r

In babeheim/yamlform: What the Package Does (One Line, Title Case)

form <- list(
  survey = list(
    list(
      name = "patient_name",
      label = list(
        English = "patient name here",
        Spanish = "nombre aqui"
      ),
      type = "text"
    )
  )
)

form2 <- list(
  survey = list(
    list(
      name = "media example",
      type = "note",
      label = "Media Example",
      hint = list(
        English = "a hint",
        Spanish = "een hint"
      ),
      media = list(
        image = list(
          English = "en.jpg",
          Dutch = "nl.jpg"
        ),
        video = list(
          English = "en.mp4",
          Dutch = "nl.mp4"
        )
      )
    )
  )
)

test_that("flatten_keys works", {
  expect_silent(form$survey %>% map(flatten_keys)
    %>% `[[`(1) %>% names -> x)
  expect_equal(x, c("name",  "label::English", "label::Spanish", "type"))
  expect_silent(form2$survey %>% map(flatten_keys))
})



# now test a monstrosity

monster_form <- list(
  survey = list(
    list(
      name = "basic_group",
      label = "basic group",
      type = "begin repeat",
      survey = list(
        list(
          name = "second_group",
          label = "second group",
          type = "begin group",
          survey = list(
            list(
              name = "third_group",
              label = "third group",
              type = "begin repeat",
              survey = list(
                list(
                  name = "patient_age",
                  label = "patient age",
                  type = "integer"
                ),
                list(
                  name = "patient_sex",
                  label = "patient sex",
                  type = "integer"
                ),
                list(
                  name = "media example",
                  type = "note",
                  label = "Media Example",
                  hint = list(
                    English = "a hint",
                    Spanish = "een hint"
                  ),
                  media = list(
                    image = list(
                      English = "en.jpg",
                      Dutch = "nl.jpg"
                    ),
                    video = list(
                      English = "en.mp4",
                      Dutch = "nl.mp4"
                    )
                  )
                )
              )
            )
          )
        )
      )
    )
  )
)

test_that("combination of ungroup_survey and flatten_keys works", {

  expect_silent(monster_form$survey %>% ungroup_survey -> monster_form$survey)
  expect_silent(monster_form$survey %>% map(flatten_keys) -> x)

})