Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- getwd()
- setwd("C:/Users/21357562/Desktop")
- getwd()
- Sys.setlocale("LC_ALL","pt_BR.UTF-8")
- install.packages("jsonlite")
- library(jsonlite)
- reclamacao_2009 <- jsonlite::fromJSON(file.choose())
- #O comando readlines lê as linhas uma a uma
- #a variavel string é para direcionar o comando a ler tudo que é texto
- #paste serve para concatenar
- reclamacao_string <- paste(readLines("reclamacao_2009.json"), collapse = "")
- reclamacao_2009 <- jsonlite::fromJSON(reclamacao_string)
- install.packages("RJSONIO")
- library(RJSONIO)
- reclamacao_2009 <- RJSONIO::fromJSON(reclamacao_string)
- reclamacao_2009_2<- RJSONIO::fromJSON("reclamacao_2009.json")
- install.packages("data.table")
- library(data.table)
- dados_2009 <- rbindlist(l = reclamacao_2009_2, fill = TRUE)
- rm(reclamacao_2009,reclamacao_2009_2, reclamacao_string)
- dados_2009_limpos <- dados_2009[dados_2009$UF != "N/D",]
- sub_json<- jsonlite::toJSON(dados_2009_limpos)
- write(sub_json, "reclamacao_2009_limpo.json")
- sub_json2 <- RJSONIO :: toJSON(dados_2009_limpos, pretty = TRUE)
- write(sub_json2, "reclamacao_2009_limpo_2.json")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement