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