Two other rendering expressions ( renderPrint and renderTable) that return the output$summary and output$view values.A reactive expression to return the dataset corresponding to the user choice.The server side of the application has also gotten a bit more complicated.
# Define UI for dataset viewer app - ui <- fluidPage( # App title - titlePanel( "Shiny Text"), # Sidebar layout with a input and output definitions - sidebarLayout( # Sidebar panel for inputs - sidebarPanel( # Input: Selector for choosing dataset - selectInput( inputId = "dataset", label = "Choose a dataset:", choices = c( "rock", "pressure", "cars")), # Input: Numeric entry for number of obs to view - numericInput( inputId = "obs", label = "Number of observations to view:", value = 10) ), # Main panel for displaying outputs - mainPanel( # Output: Verbatim text for data summary - verbatimTextOutput( "summary"), # Output: HTML table with requested number of observations - tableOutput( "view") ) ) )
0 kommentar(er)
