Example of reading all tabs in a google spreadsheet

readallsheets.R

library(googlesheets)
library(purrr)
library(data.table)
library(magrittr)
suppressMessages(gs_auth(token = "c:\\Users/steph/Documents/googlesheets_token.rds", verbose = FALSE))
mySheet<-"https://docs.google.com/spreadsheets/d/1QfvTK58YO7kBIzI81JQ7rNLcTVbH0hDiP6qZ724GyoA/edit?usp=sharing"

mySheet %>% 
  gs_url() %>% 
  gs_ws_ls() %>% 
  map(~gs_read(gs_url(mySheet),ws=.)) %>% 
  rbindlist(use.names = TRUE, fill=TRUE) ->
  surveyresults