read_multiple_sheet_gs

library(tidyverse)
library(googlesheets4)
library(gapminder)

gs4_deauth()
red <- gs4_get("1HSoj5M--kcW-WioiwMbbngrqdkSC-bqpumeDIIlbx18")
gs4_browse(red)

# red %>% sheet_names() %>% 
#   map_df(~ read_sheet(red, sheet = .)) %>% 
#   bind_rows()
# se pierde identidad de los ensayos

dat <- data_frame(ensayo = red %>% sheet_names()) %>% 
  mutate(data = map(ensayo, ~read_sheet(red, sheet = .x))) %>% 
  tidyr::unnest(cols = c(data))