Skip to content

Instantly share code, notes, and snippets.

@ChrisBeeley
Created Dec 22, 2015
Embed
What would you like to do?
Minimal example of a full Shiny application
library(shiny) # load Shiny at the top of both scripts
shinyServer(function(input, output) { # define application in here
output$textDisplay <- renderText({ # mark function as reactive
# and assign to output$textDisplay for passing to ui.R
paste0("You said '", input$comment, # from the text
"'. There are ", nchar(input$comment), # input control as
" characters in this.") # defined in ui.R
})
})
library(shiny) # load Shiny at the top of both files
shinyUI(fluidPage( # flexible layout function
# Title
titlePanel("Minimal application"),
sidebarLayout( # standard inputs on sidebar, outputs in main area layout
sidebarPanel( # sidebar configuration
textInput(inputId = "comment", # this is the name of the
# variable- this will be passed to server.R
label = "Say something?", # display label for the variable
value = "" # initial value
)),
# Show a plot of the generated distribution
mainPanel( # main output configuration
h3("This is you saying it"), # title with HTML helper
textOutput("textDisplay") # this is the name of the output
# element as defined in server.R
)
)
))
@Kenneth-Asogwa
Copy link

Kenneth-Asogwa commented May 29, 2020

Good work

Loading

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment