Skip to content

Instantly share code, notes, and snippets.

@markheckmann
Created November 19, 2013 23:23
Show Gist options
  • Save markheckmann/7554422 to your computer and use it in GitHub Desktop.
Save markheckmann/7554422 to your computer and use it in GitHub Desktop.
client/server interaction with shiny - part 1
library(shiny)
shinyServer( function(input, output, session) {
output$results <- renderPrint({
input$mydata
})
})
library(shiny)
shinyUI( bootstrapPage(
# a div named mydiv
tags$div(id="mydiv",
style="width: 50px; height :50px; left: 100px; top: 100px;
background-color: gray; position: absolute"),
# an element for unformatted text
verbatimTextOutput("results"),
# javascript code to send data to shiny server
tags$script('
document.getElementById("mydiv").onclick = function() {
var number = Math.random();
Shiny.onInputChange("mydata", number);
};
')
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment