У меня есть R-код, который я пробовал, однако по некоторым причинам этот код не работает.Я пробовал разные вещи, но это не работает.Мой вывод из кода точно такой же, как ввод.
read.csv("text1.csv")
resp <- read.csv("text1.csv", header=T)
resp=resp[-1]
x <- toJSON(unname(split(resp, 1:nrow(resp))))
cat(x)
y=fromJSON(x)
install.packages("magrittr")
library(magrittr)
z=fromJSON(x) %>% as.data.frame
exportJson <- toJSON(x)
write(exportJson, "test.json")
json_file <- "test.json"
json_data <- fromJSON(json_file)
asFrame <- do.call("rbind", lapply(json_data, as.data.frame))