R/flatten_list.R

In aaronpeikert/fromr: Enhance the formr Package so import data from formr is more simple

flatten_list <- function(l) {
  s = list();
  for (name in names(l)) {
    if (is.list(l[[name]])) {
      for (n in names(l[[name]])) {
        key = paste0(name, "[", n, "]")
        s[key] = paste(l[[name]][[n]], collapse = ",")
      }
    }
  }
  s
}