data-raw/traer_tablas_sia.R

In jumanbar/manoSIAR: Datos y Funciones Para Trabajar con el SIA

# INFAMBIENTAL ----
#
# Para que no cambien los datos, sería necesario hacer esto desde mi computadora
# perosnal. JMB.
# INFAMBIENTAL ----
con <- siabox:::con_sia()

trae_tabla <- function(tabla_string) {
  dplyr::collect(dplyr::tbl(con, tabla_string))
}

# @ siabox.extraction.meta -----
siabox.extraction.meta <- c(Sys.info(),
                            extraction.date = as.character(Sys.Date()))

# @ sia_parametro ----
sia_parametro <- trae_tabla("parametro")

# @ sia_matriz ----
sia_matriz <- trae_tabla("matriz")

# @ sia_param_unidad ----
sia_param_unidad <- trae_tabla("param_unidad")

# APUNTES:
# Tiene algunas diferencias con sia_param_unidad que tenía yo grabada. Estas
# diferencias pueden ver con anti_join: 21 casos presentes en db_ pero no en
# sia_, y 10 casos presentes en sia_ que no están en db_.
#
# anti_join(db_param_unidad, sia_param_unidad) # 21 filas
# anti_join(sia_param_unidad, db_param_unidad) # 10 filas

# @ sia_unidad ----
sia_unidad <- trae_tabla("unidad")

# @ sia_programa ----
sia_programa <-
  trae_tabla("programa") %>%
  dplyr::arrange(id_programa)

# @ sia_departamento ----
sia_departamento <- trae_tabla("departamento")

# @ sia_estacion ----
sia_estacion <- trae_tabla("estacion")

# @ sia_tipo_punto_estacion ----
sia_tipo_punto_estacion <- trae_tabla("tipo_punto_estacion")

# @ sia_institucion ----
sia_institucion <- trae_tabla("institucion")

# @ sia_programa_parametro ----
sia_programa_parametro <- trae_tabla("programa_parametro")

# @ usuarios ----
usuarios <-
  dplyr::tbl(con, "muestra") %>%
  dplyr::distinct(usuario) %>%
  dplyr::arrange(1L) %>%
  dplyr::collect()

# @ sia_muestra ----
sia_muestra <- trae_tabla("muestra")
sia_muestra$id_muestra <- as.integer(sia_muestra$id_muestra)

# @ sia_datos_muestra_parametros -----
sia_datos_muestra_parametros <- trae_tabla("datos_muestra_parametros")
sia_datos_muestra_parametros$id_muestra <-
  as.integer(sia_datos_muestra_parametros$id_muestra)

# @ sia_sub_cuenca -----
sia_sub_cuenca <- trae_tabla("sub_cuenca")

# @ sia_cuenca -----
sia_cuenca <- trae_tabla("cuenca")

# # GUARDAR ----
# save(siabox.extraction.meta, file = "data/siabox.extraction.meta.rda")
# save(sia_parametro, file = "data/sia_parametro.rda")
# save(sia_matriz, file = "data/sia_matriz.rda")
# save(sia_param_unidad, file = "data/sia_param_unidad.rda")
# save(sia_unidad, file = "data/sia_unidad.rda")
# save(sia_programa, file = "data/sia_programa.rda")
# save(sia_departamento, file = "data/sia_departamento.rda")
# save(sia_estacion, file = "data/sia_estacion.rda")
# save(sia_tipo_punto_estacion, file = "data/sia_tipo_punto_estacion.rda")
# save(sia_institucion, file = "data/sia_institucion.rda")
# save(sia_programa_parametro, file = "data/sia_programa_parametro.rda")
# save(usuarios, file = "data/usuarios.rda")
# save(sia_muestra, file = "data/sia_muestra.rda")
# save(sia_datos_muestra_parametros,
#      file = "data/sia_datos_muestra_parametros.rda")
# save(sia_sub_cuenca, file = "data/sia_sub_cuenca.rda")
# save(sia_cuenca, file = "data/sia_cuenca.rda")