Source an R script hosted in Dropbox from R

dropbox_source.R

# Made by Jared Knowles
# Not necessarily going to work for scripts outside of the Public folder
# Not recommended for production use
# myurl must be a character string with the full public link of the script file

# Problem--we can't use URL shorteners

dropbox_source<-function(myurl){
  s<-str_extract(myurl,"[/][a-z][/]\\d+[/][a-z]*.*")
  new_url<-paste("http://dl.dropbox.com",s,sep="")
  source(new_url)
}