launch_server<-function(){
require(shiny)
fls<-list.files(system.file(package='seascripts',path='scripts'))
shinyServer(function(input, output) {
observeEvent(input$drop,{
if(input$drop!=" "){
s1<-paste0("system.file(package='seascripts',path='scripts', '",input$drop,"' )")
print(s1)
s2<-paste0('Rscript -e "source(',s1,')"')
system(s2)
}
})
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.