source("campfire_lib.R")
campfireApp(
controller = div(
h1("Controller"),
selectInput(inputId = "fruitSelection",
label = "Pick a fruit",
choices = c("Apple", "Banana", "Pear"))
),
wall = div(
h1("Wall"),
textOutput("wallText")
),
floor = div(
h1("Floor"),
textOutput("floorText")
),
serverFunct = function(serverValues, output) {
output$wallText <- renderText({ serverValues$fruitSelection })
output$floorText <- renderText({ serverValues$fruitSelection })
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.