R/retrieve_gs_fields_with_summary.R

In patelm9/gUnit:

#' Get summary of every tab in Google Sheet
#' @param gsheet_name name of Google Sheet
#' @import googlesheets
#' @import dplyr
#' @export


retrieve_gs_fields_with_summary <-
        function(gsheet_name, system.sleep = 2) {
                gsheet_id <- retrieve_gsheet_id_by_name(gsheet_name)
                gs_ss <- googlesheets::gs_key(gsheet_id)
                x <- read_gs(gs_ss, system.sleep = system.sleep)
                x <- lapply(x, dplyr::mutate_all, as.factor)
                lapply(x, summary)
        }