codiguera_ciiu: Codiguera CIIU

In transformauy/codigueras: Paquete para cargar codigueras

Description

Función para cargar codiguera de CIIU Rev. 4.

Usage

codiguera_ciiu(x)

Arguments

x

Details

Función para cargar codiguera de CIIU Rev. 4. Clasificación Industrial Internacional Uniforme.

Author(s)

Observatorio Productivo - Transforma Uruguay

Examples

## The function is currently defined as
function (x)
{
seccion %>%

    left_join(seccion_division, by = "seccion") %>%

    left_join(division, by = "division") %>%

    left_join(grupo %>% mutate(division = str_sub(grupo, 1, 2)), by = "division") %>%

    left_join(clase %>% mutate(grupo = str_sub(clase, 1, 3)), by = "grupo") %>%
    mutate(clase = case_when(is.na(clase) == TRUE ~ str_c(grupo, 0), TRUE ~ clase),
           desc_clase = case_when(is.na(desc_clase) == TRUE ~ desc_grupo, TRUE ~ desc_clase)) %>%

    left_join(subclase %>% mutate(clase = str_sub(subclase, 1, 4),
                                  grupo = str_sub(subclase, 1, 3)),
              by = c("clase", "grupo")) %>%
    mutate(subclase = case_when(is.na(subclase) == TRUE ~ str_c(clase, 0), TRUE ~ subclase),
           desc_subclase = case_when(is.na(desc_subclase) == TRUE ~ desc_clase, TRUE ~ desc_subclase)) %>%
    mutate(desc_clase = if_else(clase == "4631", "Comercio al por mayor de alimentos, bebidas y tabaco.",
                                desc_clase)) %>%

    union_all(cargar_ciiu_INE_anexo()) %>%
    unique
  }

transformauy/codigueras documentation built on Oct. 26, 2021, 5:46 a.m.