R/server.R

In HenriMatalon/XHEC-R-GROUP-PROJECT-FDNY:

#' The Shiny app server
#'
#' @param input input from ui shiny
#' @param output output for ui shiny
#' @param session session
#'
#' @import dplyr shiny
#'
#' @return shiny app server
#' @export
#' @rdname server

server <- function(input, output, session) {
    #Set the choices for the user
    updateSelectInput(session = session,
                      inputId = "fireboxSelect",
                      choices = tidy_incidents %>%
                        select(fire_box) %>%
                        distinct(fire_box) %>%
                        arrange(fire_box)
    )

    updateSelectInput(session = session,
                      inputId = "type",
                      choices = tidy_incidents %>%
                        select(inc_type) %>%
                        distinct(inc_type) %>%
                        arrange(inc_type)
    )

    updateSelectInput(session = session,
                      inputId = "zip_code",
                      choices = tidy_incidents %>%
                        select(zip_code) %>%
                        distinct(zip_code) %>%
                        arrange(zip_code)
    )

    updateSelectInput(session = session,
                      inputId = "magnitude",
                      choices = tidy_incidents %>%
                        select(inc_level) %>%
                        distinct(inc_level) %>%
                        arrange(inc_level)
    )

    updateSelectInput(session = session,
                      inputId = "district",
                      choices = tidy_incidents %>%
                        select(borough) %>%
                        distinct(borough) %>%
                        arrange(borough)
    )


    #Run the functions on the data
    res <- reactive({statistic_fdny(tidy_incidents, input)})
    map_data_df <- reactive({compute_map_df(res()$filtered_df)})
    output$plot1 <- renderDataTable({
      print(res())
      res()$filtered_df
    })

    output$plot2 <- renderDataTable({
      res()$statistic_df
    })

    output$plot3 <- renderDataTable({
      res()$number_intervention_per_type
    })
    output$fire_map <- renderLeaflet({
      plot_leaflet_map(map_data_df(), input)
    })
}