Ref #6 lectura de datos desde bucket

ixpantia · Jul 17, 2020 · 7d2f51c · 7d2f51c
1 parent 9c66a2d
commit 7d2f51c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/inst/tutorials/pizarra_programar_dplyr/pizarra_programar_dplyr.Rmd b/inst/tutorials/pizarra_programar_dplyr/pizarra_programar_dplyr.Rmd
@@ -18,8 +18,11 @@ library(readr)
 library(janitor)
 library(lubridate)
 library(readxl)
+url <- "https://storage.googleapis.com/datos_cursos/PJCROD_INDICESALARIAL_V1.xls"
 
-indice_salarial <- read_excel("PJCROD_INDICESALARIAL_V1.xls") %>% 
+temp = tempfile(fileext = ".xls")
+download.file(url, destfile = temp, mode = 'wb')
+indice_salarial <- read_excel(temp) %>% 
   mutate(salario_antes = as.numeric(Salario_Base_Ant),
          salario_actual = as.numeric(Salario_Base_Act),
          indice = as.numeric(I_C_S))