ajusta dados de descrições

scripts/gera_correlacoes.R

@@ -255,9 +255,16 @@ descricoes_por_sh <- descricoes_por_sh %>%
   bind_rows(descricoes_atuais) %>% 
   distinct()
 
+# 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(
+    descricao,
+    "'",
+    "\\\\'"
+  ))
+
 descricoes_por_sh %>% 
   write_parquet(
     "dados_gerados/descricoes_ncm.parquet"
   )
-
-