bip-app.r

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

dbip <- readRDS("data/dbip.rds")

lista_comunas <- dbip %>% 
    count(COMUNA, sort = TRUE) %>% 
    pull(COMUNA)

# lista_comunas <- dbip %>% 
#     distinct(COMUNA) %>% 
#     arrange(COMUNA) %>% 
#     pull(COMUNA)

ui <- fluidPage(
    titlePanel("Puntos Bip!"),
    sidebarLayout(
        sidebarPanel(
            selectInput("comuna", "Comuna:", choices = lista_comunas)
        ),
        mainPanel(
            leafletOutput("mapa")
        )
    )
)

server <- function(input, output) {

    output$mapa <- renderLeaflet({
        
        dbipcomuma <- dbip %>% 
            filter(COMUNA == input$comuna)
        
        leaflet(data = dbipcomuma) %>%
            addTiles() %>%
            addMarkers(~LONGITUD, ~LATITUD,
                       popup = ~as.character(ENTIDAD), 
                       label = ~as.character(ENTIDAD)
            )
    })
}

shinyApp(ui = ui, server = server)