Example to illustrate using rdrop2 to access Dropbox files on Shiny server

rdrop2_shiny.R

token <- drop_auth()
saveRDS(token, "droptoken.rds")
# Upload droptoken to your server
# ** Don't share this with anyone **

# You can then revoke the rdrop2 app from your
# dropbox account and start over.
# ******** WARNING ********
# read it back with readRDS
token <- readRDS("droptoken.rds")
# Then pass the token to each drop_ function

#My example
drop_get(path = 'h1b_data/h1b_shiny_compact.rds',
         local_file = 'h1b_shiny_compact.rds', 
         dtoken = token, 
         overwrite = TRUE,
         progress = TRUE)

# Main data frame for data analysis
h1b_df <- readRDS('h1b_shiny_compact.rds')