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