Как поместить sh a json объект в массив, используя R - PullRequest
Новая
       3

Как поместить sh a json объект в массив, используя R

0 голосов
/ 14 февраля 2020

Я попробовал несколько методов, чтобы поместить sh json объект в массив и сохранить в том же формате, что и в приведенном ниже примере, но безуспешно.

Есть ли у кого-нибудь решение, чтобы сделать это в R?

Спасибо вам

РЕДАКТИРОВАТЬ:

Я нашел решение. 

library(jsonlite)

#Set an empty list
list1 <- vector(mode = 'list', length = 2)

# data example
json_data <- list(object1 = list(birthday = '2000-02-14', Age = '20'), 
              object2 = list(Candidate_Number = '1999283', first_attempt = TRUE), 
              object3 = list(name = 'John E.', result = list(), study_hours = 150, GPA = 3.8, exam_infos = list(cost = 800, location = 'F3C6V9', past_exams = list(list(exam_name = 'Science', score = 'passed'), list(exam_name = 'Geometric', score = 'passed')))), 
              object4 = list(study_manual_used = 'Physics Theory', version_found = list(Digital = '1999-01-01', Paper = '1999-01-01')))

# append data into json
for(i in length(list1)){

  list1[[i]] <- json_data

}

# Write to json on his home
write(toJSON(list1, auto_unbox = TRUE, pretty = TRUE), file.path(Sys.getenv()['USERPROFILE'], 'file.json'))

1 Ответ

0 голосов
/ 14 февраля 2020

Для сохранения объекта как JSON вы можете использовать пакет rjson. 

library("rjson")

# example data
list1 <- list()
list1[[1]] <- c(created_at="1910-02-03", id="212", field="1")
list1[[2]] <- c(created_at="1910-01-02", id="218", field="3")

# to json
toJSON(list1)

и 

write(toJSON(list1), "file.json")

Если проблема заключается в том, что вы создали data.frame и вам нужно вернуть его в json. Вы должны сделать это список за строкой как: 

# example data
dta <- as.data.frame(rbind(c(created_at="1910-02-03", id="212", field="1"), c(created_at="1910-01-02", id="218", field="3")))

# to json
toJSON(list(dta[1,],dta[2,]))
...