inst/shiny-examples/Indeed_search/server.R

In Ferdi28/group6project: Indeed Job Map

library(shiny)
library(group6project)
library(leaflet)
library(tidyverse)

shinyServer(function(input, output) {
  #make sure that the size of data base is not too big
  options(shiny.maxRequestSize=30*1024^2)

  #make Leaflet output change in size based on user preferences
  output$leaf=renderUI({
    leafletOutput('map', width = "100%", height = input$Height)
  })

  #load data as a reactive event

  datasets <- reactiveValues()
  #read indeed data
  observeEvent (input$go, {datasets$indeed_data <- readRDS(input$file1$datapath)
  })
  #create new indeed data frame based on user filter choice
  observeEvent(input$choose,{
    datasets$indeed_data2 <- datasets$indeed_data %>%
      filter(category %in% mytext$text)
  })

  mytext <- reactiveValues()
  #create a reactive character list of filters to use for map
  observeEvent(input$category, {
    mytext$text <- c(as.character(input$category))
  })

  maps <- reactiveValues()

  observeEvent(input$map,{
    #create a different map based on the choice of the user
    maps$map <- if (input$map == "Map With All Job Types"){
      output$map <-  renderLeaflet({

        datasets[["indeed_data"]] %>%
          indeed_map()
      })
    } else if (input$map == "Map With Selected Categories"){
      output$map <-  renderLeaflet({

        datasets[["indeed_data2"]] %>%
          indeed_map()
      })
    }
  })

})