Convert to csv json from FactChecks and Data Commons.org

datacommons_json_to_csv.R

if (!require("pacman")) install.packages("pacman")
pacman::p_load("jsonlite")
pacman::p_load("tidyverse")

#https://www.datacommons.org/docs/download.html
text <- readLines(con = "fact_checks_20180502.txt")
text <- stringr::str_remove_all(string = text, pattern = stringr::fixed('<script type=\"application/ld+json\">'))
text <- stringr::str_remove_all(string = text, pattern = stringr::fixed("</script>"))

txtList <- purrr::map(.x = text, .f = fromJSON, simplifyDataFrame = TRUE, flatten = TRUE)

df <- purrr::map_df(.x = txtList, .f = as.data.frame)

write_csv(x = df, path = "fact_checks_20180502.csv")

# could perhaps be accomplished more tidily with jsonld