R/nest_tables.R

In UBESP-DCTV/tipnet.ubesp: TIPNet reports

#' Extract field from REDCap db
#'
#' @param data (list) the output of [tidy_extract] to extract the
#'   data (not the meta-data).
#'
#' @return [tibble][tibble::tibble-package]
#' @export
#'
#' @examples
#' \dontrun{
#'  tipnet_full <- read_redcap(url = tipnet_redcap_url())
#'  nest_tables(tipnet_full)
#' }
nest_tables <- function(data) {

  global_redcap_info <- c("codpat", "center", "redcap_repeat_instance")

  data %>%
    add_sheets_prefix(exept = c(global_redcap_info, "fields")) %>%
    tidyr::nest(tables = -.data$fields) %>%
    dplyr::mutate(
      tables = purrr::map(.data$tables, ~{
        janitor::remove_empty(.x, c("rows", "cols")) %>%
          sheets_to_var("sheet", exept = global_redcap_info) %>%
          tidyr::nest(tables = -.data$sheet) %>%
          dplyr::mutate(
            tables = purrr::map(.data$tables,
              janitor::remove_empty,
              which = c("rows", "cols")
            )
          )
      })
    ) %>%
    tidyr::unnest(.data$tables)

}