library("tidyverse")
library("googlesheets4") 
library("googledrive")
gdp2020.df <- 
  read_csv("./2020gdp_by_region.csv")

drive_auth(email = "gwet62@gmail.com")
mdata <- drive_get(path="us-population-statistics") 

gs4_auth(email = "gwet62@gmail.com")
gss <- write_sheet(data=gdp2020.df,ss=mdata,
                   sheet="Gross Domestic Product")
read_sheet(ss=gss,sheet="Gross Domestic Product")

sheet_delete(ss=gss, sheet="Gross Domestic Product")