if (FALSE) {
library(inti)
library(gsheet)
url <- paste0("https://docs.google.com/spreadsheets/d/"
, "1grAv_2po804pPGg9nj1o5nli01IcEGvSevDruq_ssHk/edit#gid=1807254932")
# browseURL(url)
fb <- gsheet2tbl(url)
dsg <- fb %>% tarpuy_design()
dsg
dsg %>% str()
dsg %>%
tarpuy_plotdesign()
}
Run the code above in your browser using DataLab