inst/mon_app/server.R

In JeanBertinR/Dockerize-shiny-app: This is a test to docker containization

server <- shinyServer(function(input, output) {

  reactiveDf <- reactive({return(tbl_df(mtcars) %>%
                                   filter(carb %in% input$Category))})

  output$df <- renderTable({reactiveDf()})
})