inst/App/server.R

In gfsarmanho/ShinyAppPackage: Shiny app in R package

#==============#
# Shiny Server #
#==============#
server <- function(input, output) {

  output$histPlot <- renderPlot({
    xx=rnorm(1000)
    hist2(x=xx, breaks = input$bins)
  })

}