codigueras: Paquete para cargar codigueras

Documented in codiguera_ncm

#' Codiguera NCM
#'
#' Función para cargar codiguera de productos NCM.
#' @title Codiguera NCM.
#' @description Función para cargar codiguera de productos NCM.    Nomenclatura Común Mercosur estructurada a diez dígitos y su correspondiente régimen arancelario.    Basada en el Sistema Armonizado de Designación y Codificación de Mercancías, actualizado con su V Enmienda, con entrada en vigencia el 1 de enero de 2012.
#' @keywords ncm
#' @export
#' @import
#'
#' @examples
#' codiguera_ncm()
#' codiguera_ncm_wide()
#' codiguera_ncm_long()


# Incorporo los datasets generados en una única codiguera
codiguera_ncm <- function(){

  ncm_base %>%

    dplyr::filter(variable == 'ncm_10') %>%
    dplyr::transmute(ncm_10 = codigo, desc.ncm_10 = descripcion) %>%
    dplyr::mutate(ncm_9 = str_sub(ncm_10, 1, 9)) %>%

    left_join(ncm_base %>%
                dplyr::filter(variable == 'ncm_9') %>%
                dplyr::transmute(ncm_9 = codigo, desc.ncm_9 = descripcion),
              by = 'ncm_9') %>%
    dplyr::mutate(ncm_8 = str_sub(ncm_9, 1, 8)) %>%

    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'ncm_8') %>%
                       dplyr::transmute(ncm_8 = codigo, desc.ncm_8 = descripcion),
                     by = 'ncm_8') %>%
    dplyr::mutate(ncm_7 = str_sub(ncm_8, 1, 7)) %>%

    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'ncm_7') %>%
                       dplyr::transmute(ncm_7 = codigo, desc.ncm_7 = descripcion),
                     by = 'ncm_7') %>%
    dplyr::mutate(ncm_6 = str_sub(ncm_7, 1, 6)) %>%
    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'ncm_6') %>%
                       dplyr::transmute(ncm_6 = codigo, desc.ncm_6 = descripcion),
              by = 'ncm_6') %>%
    dplyr::mutate(ncm_5 = str_sub(ncm_6, 1, 5)) %>%

    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'ncm_5') %>%
                       dplyr::transmute(ncm_5 = codigo, desc.ncm_5 = descripcion),
              by = 'ncm_5') %>%
    dplyr::mutate(ncm_4 = str_sub(ncm_5, 1, 4)) %>%
    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'ncm_4') %>%
                       dplyr::transmute(ncm_4 = codigo, desc.ncm_4 = descripcion),
              by = 'ncm_4') %>%
    dplyr::mutate(capitulo = str_sub(ncm_4, 1, 2)) %>%
    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'capitulo') %>%
                       dplyr::transmute(capitulo = codigo, desc.cap = descripcion),
              by = 'capitulo') %>%
    asigna.seccion() %>%
    dplyr::mutate(seccion = as.character(seccion)) %>%
    dplyr::left_join(ncm_base %>%
                       dplyr::filter(variable == 'seccion') %>%
                       dplyr::transmute(seccion = codigo, desc.secc = descripcion),
                     by = 'seccion') %>%

    dplyr::transmute(seccion, desc.secc, capitulo, desc.cap, ncm_4, desc.ncm_4, ncm_5,
                     desc.ncm_5, ncm_6, desc.ncm_6, ncm_7, desc.ncm_7, ncm_8, desc.ncm_8,
                     ncm_9, desc.ncm_9, ncm_10, desc.ncm_10)

}


# Función para cargar codiguera completa: FORMATO WIDE
# -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# seccion      desc.secc  capitulo      desc.cap    ncm_4  desc.ncm_4    ncm_5  desc.ncm_5   ncm_6  desc.ncm_6     ncm_7  desc.ncm_7    ncm_8     desc.ncm_8       ncm_9  desc.ncm_9      ncm_10  desc.ncm_10
# -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#       I    Animales...        01   Animales...     0101         ...    01012         ...  010121         ...   0101210         ...   01012100          ...   010121000         ...  0101210000          ...
#      II   Productos...        06    Plantas...     0601         ...    06011         ...  060110         ...   0601100         ...   06011000          ...   060110000         ...  0601100000          ...
# -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

codiguera_ncm_wide <- function(){

  ncm_base %>%

    dplyr::filter(variable == 'ncm_10') %>%                                                               # Empieza por mayor desagregación ncm a 10 dígitos
    dplyr::transmute(ncm_10 = codigo, desc.ncm_10 = descripcion) %>%
    dplyr::mutate(ncm_9 = str_sub(ncm_10, 1, 9)) %>%

    dplyr::left_join(
      ncm_base %>%
        dplyr::filter(variable == 'ncm_9') %>%                                                            # Agrega ncm a 9 dígitos
        dplyr::transmute(ncm_9 = codigo, desc.ncm_9 = descripcion),
      by = 'ncm_9') %>%
    dplyr::mutate(ncm_8 = str_sub(ncm_9, 1, 8)) %>%

    dplyr::left_join(ncm_base %>%
                dplyr::filter(variable == 'ncm_8') %>%                                                    # Agrega ncm a 8 dígitos
                dplyr::transmute(ncm_8 = codigo, desc.ncm_8 = descripcion),
              by = 'ncm_8') %>%
    dplyr::mutate(ncm_7 = str_sub(ncm_8, 1, 7)) %>%

    dplyr::left_join(
      ncm_base %>%
        dplyr::filter(variable == 'ncm_7') %>%                                                            # Agrega ncm a 7 dígitos
        dplyr::transmute(ncm_7 = codigo, desc.ncm_7 = descripcion),
      by = 'ncm_7') %>%
    dplyr::mutate(ncm_6 = str_sub(ncm_7, 1, 6)) %>%

    dplyr::left_join(
      ncm_base %>%
        dplyr::filter(variable == 'ncm_6') %>%                                                            # Agrega ncm a 6 dígitos
        dplyr::transmute(ncm_6 = codigo, desc.ncm_6 = descripcion),
      by = 'ncm_6') %>%
    dplyr::mutate(ncm_5 = str_sub(ncm_6, 1, 5)) %>%

    dplyr::left_join(
      ncm_base %>%
        dplyr::filter(variable == 'ncm_5') %>%                                                            # Agrega ncm a 5 dígitos
        dplyr::transmute(ncm_5 = codigo, desc.ncm_5 = descripcion),
      by = 'ncm_5') %>%
    dplyr::mutate(ncm_4 = str_sub(ncm_5, 1, 4)) %>%

    dplyr::left_join(
      ncm_base %>%
        dplyr::filter(variable == 'ncm_4') %>%                                                            # Agrega ncm a 4 dígitos
        dplyr::transmute(ncm_4 = codigo, desc.ncm_4 = descripcion),
      by = 'ncm_4') %>%
    dplyr::mutate(capitulo = str_sub(ncm_4, 1, 2)) %>%

    dplyr::left_join(capitulos.productos %>%                                                              # Agrega capítulo según df "capitulos.productos"
                       dplyr::transmute(capitulo, desc.cap = descripcion.capitulo),
              by = "capitulo") %>%

    # left_join(
    #   ncm_base %>%                                                                               # Agrega capítulo de la codiguera ncm_base
    #     filter(variable == 'capitulo') %>%
    #     transmute(capitulo = codigo, desc.cap = descripcion),
    #   by = 'capitulo') %>%

    asigna.seccion() %>%
    dplyr::mutate(seccion = as.character(seccion)) %>%                                             # Agrega sección según df "secciones.productos"
    dplyr::left_join(secciones.productos %>%
                       dplyr::mutate(seccion = as.character(seccion)) %>%
                       dplyr::select(desc.secc = descripcion.seccion, everything()),
                     by = "seccion") %>%

    # left_join(
    #   ncm_base %>%
    #     filter(variable == 'seccion') %>%                                                        # Agrega sección de la codiguera ncm_base
    #     transmute(seccion = codigo, desc.secc = descripcion),
    #   by = 'seccion') %>%


    dplyr::transmute(seccion, desc.secc, capitulo, desc.cap, ncm_4, desc.ncm_4, ncm_5,                    # Ordena variables
                     desc.ncm_5, ncm_6, desc.ncm_6, ncm_7, desc.ncm_7, ncm_8, desc.ncm_8,
                     ncm_9, desc.ncm_9, ncm_10, desc.ncm_10) %>%

    dplyr::mutate(desc.cap    = str_replace_all(desc.cap,    pattern = "- ", ""),                         # elimina guiones de las descripciones de las partidas de 4, 5, 6, 7, 8, 9 y 10 dígitos
                  desc.ncm_4  = str_replace_all(desc.ncm_4,  pattern = "-+", ""),
                  desc.ncm_5  = str_replace_all(desc.ncm_5,  pattern = "-+", ""),
                  desc.ncm_6  = str_replace_all(desc.ncm_6,  pattern = "-+", ""),
                  desc.ncm_7  = str_replace_all(desc.ncm_7,  pattern = "-+", ""),
                  desc.ncm_8  = str_replace_all(desc.ncm_8,  pattern = "-+", ""),
                  desc.ncm_9  = str_replace_all(desc.ncm_9,  pattern = "-+", ""),
                  desc.ncm_10 = str_replace_all(desc.ncm_10, pattern = "-+", "")) %>%

    dplyr::mutate(descripcion_completa = str_c(ifelse(is.na(desc.secc) == TRUE, "", desc.secc),
                                               ifelse(is.na(desc.cap) == TRUE, "", str_c(' - ', desc.cap)),
                                               ifelse(is.na(desc.ncm_4) == TRUE, "", str_c(' - ', desc.ncm_4)),
                                               ifelse(is.na(desc.ncm_5) == TRUE, "", str_c(' - ', desc.ncm_5)),
                                               ifelse(is.na(desc.ncm_6) == TRUE, "", str_c(' - ', desc.ncm_6)),
                                               ifelse(is.na(desc.ncm_7) == TRUE, "", str_c(' - ', desc.ncm_7)),
                                               ifelse(is.na(desc.ncm_8) == TRUE, "", str_c(' - ', desc.ncm_8)),
                                               ifelse(is.na(desc.ncm_9) == TRUE, "", str_c(' - ', desc.ncm_9)),
                                               ifelse(is.na(desc.ncm_10) == TRUE, "", str_c(' - ', desc.ncm_10)))) %>%

    dplyr::mutate(
      #desc.ncm_6 = case_when(str_detect(desc.ncm_5, pattern = ".*:$") == TRUE ~
      #                         str_c(desc.ncm_5, ' ', desc.ncm_6),
      #                       TRUE ~ desc.ncm_6),

      desc.ncm_7 = case_when(str_detect(desc.ncm_6, pattern = ".*:$") == TRUE ~                    # a las descripciones que terminan con ":" le
                               str_c(desc.ncm_6, ' ', desc.ncm_7),                                 # agrega la descripción de la subpartida siguiente
                             TRUE ~ desc.ncm_7),

      desc.ncm_5 = str_replace_all(desc.ncm_5, pattern = ":$", "")) %>%


    dplyr::mutate(desc.ncm_9 = case_when(is.na(desc.ncm_9) == TRUE ~ desc.ncm_10, TRUE ~ desc.ncm_9),      # Completa descripciones faltantes
                  desc.ncm_8 = case_when(is.na(desc.ncm_8) == TRUE ~ desc.ncm_9,  TRUE ~ desc.ncm_8),
                  desc.ncm_7 = case_when(is.na(desc.ncm_7) == TRUE ~ desc.ncm_8,  TRUE ~ desc.ncm_7),
                  desc.ncm_6 = case_when(is.na(desc.ncm_6) == TRUE ~ desc.ncm_7,  TRUE ~ desc.ncm_6),
                  desc.ncm_5 = case_when(is.na(desc.ncm_5) == TRUE ~ desc.ncm_6,  TRUE ~ desc.ncm_5),
                  desc.ncm_4 = case_when(is.na(desc.ncm_4) == TRUE ~ desc.ncm_5,  TRUE ~ desc.ncm_4)) %>%  #,

    # desc.cap = str_replace_all(desc.cap, ".*(?<=\\n).*", "")) %>%                                # elimina notas de la descripción de los capítulos (ncm_base)

    # mutate(patron = str_c("SECCIÓN ", seccion, "- "),                                            # depura descripción de secciones (ncm_base)
    #        desc.secc = str_replace_all(desc.secc, pattern = patron, "")) %>%

    # mutate(patron = str_c("CAPÍTULO ", as.numeric(capitulo)),                                    # depura descripción de los capítulos (ncm_base)
    #        desc.cap = str_replace_all(desc.cap, pattern = patron, "")) %>%

    dplyr::mutate(patron = str_detect(desc.ncm_5, pattern = "^(D|d)e\\s.*"),                              # a las descripciones de las partidas de ncm a 5
           desc.ncm_5 = case_when(patron == TRUE ~ str_c(desc.ncm_4, ' ', desc.ncm_5),             # dígitos que empiezan con "De/de" le agrega la
                                  TRUE ~ desc.ncm_5)) %>%                                          # descripción de la partida anterior.

    dplyr::select(-patron)
}



# Función para cargar codiguera completa: FORMATO LONG
# -------------------------------------
# variable    codigo    descripcion
# -------------------------------------
#  seccion         I    Animales...
# capitulo        01    Animales...
# -------------------------------------

codiguera_ncm_long <- function(){
  codiguera_ncm_wide() %>%
    dplyr::transmute(variable = "seccion", codigo = seccion, descripcion = desc.secc, by = capitulo) %>%
    unique %>%
    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "capitulo", codigo = capitulo, descripcion = desc.cap, by = ncm_4) %>%
            unique) %>%

    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "ncm_4", codigo = ncm_4, descripcion = desc.ncm_4, by = ncm_5) %>%
            unique) %>%
    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "ncm_5", codigo = ncm_5, descripcion = desc.ncm_5, by = ncm_6) %>%
            unique) %>%
    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "ncm_6", codigo = ncm_6, descripcion = desc.ncm_6, by = ncm_7) %>%
            unique) %>%

    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "ncm_7", codigo = ncm_7, descripcion = desc.ncm_7, by = ncm_8) %>%
            unique) %>%

    rbind(codiguera_ncm_wide() %>%

            dplyr::transmute(variable = "ncm_8", codigo = ncm_8, descripcion = desc.ncm_8, by = ncm_9) %>%
            unique) %>%

    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "ncm_9", codigo = ncm_9, descripcion = desc.ncm_9, by = ncm_10) %>%
            unique) %>%

    rbind(codiguera_ncm_wide() %>%
            dplyr::transmute(variable = "ncm_10", codigo = ncm_10, descripcion = desc.ncm_10, by = NA) %>%
            unique)
}