Merge pull request #8 from ronnyhdez/T6

Ref #6 lectura de datos desde bucket
ixpantia · Jul 17, 2020 · 09b7c51 · 09b7c51
2 parents 38fb26c + 7d2f51c
commit 09b7c51
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))