Truncar descricoes

scripts/gera_correlacoes.R

@@ -174,7 +174,7 @@ write_parquet(correlacao_completa, "dados_gerados/dataset_naladi.parquet")
 # Processa e organiza descrições NCM --------------------------------------
 
 # obtem abas disponíveis
-abas <- excel_sheets(path_descricoes)
+abas <- readxl::excel_sheets(path_descricoes)
 # obtem nome da ultima aba
 ultimo_sh <- abas[length(abas)]
 # remove ultima aba
@@ -258,11 +258,24 @@ descricoes_por_sh <- descricoes_por_sh %>%
 # necessário escapar ' para não dar problema na geração dos tooltips dos
 # diagramas
 descricoes_por_sh <- descricoes_por_sh %>% 
-  mutate(descricao = str_replace_all(
+  mutate(
+    descricao = str_replace_all(
       descricao,
       "'",
       "\\\\'"
-  ))
+    )) %>% 
+  mutate(
+    descricao = str_replace_all(
+      descricao,
+      "\\r\\n",
+      " "
+    ),
+    descricao = str_trunc(
+      descricao,
+      1020,
+      'left'
+    )
+  )
 
 descricoes_por_sh %>% 
   write_parquet(