#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.