Skip to content

Instantly share code, notes, and snippets.

@ChrisBeeley ChrisBeeley/server.R
Created May 25, 2019

Embed
What would you like to do?
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
})
}
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
)
)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.