#
# runArbJSUI <- function(input, output, session, jsCode) {
# session$sendCustomMessage("arbJS", jsCode)
# }
#
# runArbJS <- function(session, jsCode){
# callModule(module = runArbJSUI, id = "runArbJS", session = session, jsCode = jsCode);
# }
shiny::shinyServer(
function(input, output, session) {
observe({
for(name.i in names(session)){
message(name.i)
class.i <- class(session[[name.i]])
message(class.i)
if("function" %in% class.i) {
print(session[[name.i]])
}
message('\n')
}
# runArbJS(session, paste0("alert('", input$alertWindowT, "');"))
# session$sendCustomMessage("js", paste0("alert('", input$alertWindowT, "');"));
})
output$phonePlot <- shiny::renderPlot({
barplot(
datasets::WorldPhones[,input$region]*1000,
main=input$region,
ylab="Number of Telephones",
xlab="Year"
)
})
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.