Me parece que hay un código repetido en la tabla de ciiu4 a ciiu3 ciiu4_ciiu3 <- codigueras::ciiu4_ciiu3 %>% mutate(ciiu3 = case_when(ciiu4=='2391' ~ '2691', TRUE ~ ciiu3))
Me parece que hay un código repetido en la tabla de ciiu4 a ciiu3
ciiu4_ciiu3 <- codigueras::ciiu4_ciiu3 %>%
mutate(ciiu3 = case_when(ciiu4=='2391' ~ '2691',
TRUE ~ ciiu3))