limpiar_bip.r

# setup -------------------------------------------------------------------
library(readxl)
library(tidyverse)
library(janitor)
library(leaflet)

# recuerden que la expresion hola::chao
# es la funcion 'chao' del paquete 'hola'

# no se pudo encontrar la función "hola"
# seguramente no cargaste el paquete que contiene la funcion hola

# la cola de chancho en windows es mis documentos. 
# dir("~/")
# dir("~/../Downloads/")

# readxl::read_excel(path = "~/../Downloads/")

# data --------------------------------------------------------------------
dbip <- readxl::read_excel(path = "pcma20201117oficio-47702013.xlsx", skip = 7)

glimpse(dbip)

dbip %>% 
  select(`NOMBRE FANTASIA`)

# limpiamos nombres
dbip <- janitor::clean_names(dbip)

glimpse(dbip)

dbip %>% 
  select(nombre_fantasia)

dbip <- dbip %>% 
  mutate(
    longitud = as.numeric(longitud),
    latitud = as.numeric(latitud),
  )

dbip <- dbip %>% 
  mutate(
    sab = str_detect(horario_referencial, "Sab|Sáb|sab|sáb")
  )


# leaflet -----------------------------------------------------------------
dbip_comuna <- dbip %>% 
  filter(comuna == 'SANTIAGO', sab)

leaflet(dbip_comuna) %>% 
  addTiles() %>% 
  addMarkers(~longitud , ~latitud , popup = ~as.character(nombre_fantasia),
             label = ~as.character(nombre_fantasia))


# exportar ----------------------------------------------------------------
saveRDS(dbip, "dbip.rds")