R/shinysel.R

Defines functions shinysel shinysel_ui shinysel_server

Documented in shinysel

##' Demo shiny app
##' @title Demo shiny app
##' @param title A title string to include in the application
##' @export
shinysel <- function(title) {
  shiny::shinyApp(shinysel_ui(title), shinysel_server)
}


shinysel_ui <- function(title) {
  shiny::fluidPage(
    shiny::titlePanel(title),
    shiny::sidebarLayout(
      shiny::sidebarPanel(
        shiny::numericInput("obs", "Number of observations", 10),
        shiny::actionButton("go", "Go")),
      shiny::mainPanel(
        shiny::plotOutput("plot"))))
}


shinysel_server <- function(input, output, session) {
  shiny::observeEvent(
    input$go,
    output$plot <- shiny::renderPlot({
      n <- input$obs
      x <- stats::runif(n)
      y <- stats::runif(n)
      graphics::plot(x, y)
    }))
}
reside-ic/shinysel documentation built on Dec. 7, 2019, 3:31 a.m.