У нас есть функция R, которая обычно читает файл JSON и передает файл JSON в правильный фрейм данных. Пожалуйста, смотрите следующий код. Однако при вводе файла JSON в этот раз появляется сообщение об ошибке. Кто-нибудь, пожалуйста, дайте мне знать, если я могу как-нибудь исправить эту ошибку? Большое вам спасибо !!
options(
JSON.path="C:\\Desktop\\JSON"
)
tableFromErsiJSON <- function (file, text, use.aliases=FALSE) {
if (missing(file) && !missing(text)) {
d <- jsonlite::fromJSON(text)
} else {
if (!grepl("\\.JSON$", file, ignore.case=TRUE)) file <- paste(file, "JSON", sep=".")
wd <- getwd()
setwd(getOption("JSON.path"))
if (!file.exists(file)) stop(sprintf("cannot open file '%s': No such file or directory", file))
d <- jsonlite::fromJSON(file)
setwd(wd)
}
fields <- d$fields
d <- d$features$attributes
if (use.aliases) colnames(d) <- fields$alias
for (i in which(fields$type == "esriFieldTypeDate")) d[, i] <- as.Date(as.POSIXct(d[, i] / 1000, origin="1970-01-01"))
d
}
CUS<- tableFromErsiJSON("CUSTOMER") %>%
#gather("Repair", "Date", seq(16, by=5, length.out=10))
#head(as.data.frame(gis)); quit()
gis <- tableFromErsiJSON("UTILITY.ssGravityMain")
Однако ошибка выглядит так:
Ошибка в parse_con (txt, bigint_as_char): ошибка синтаксического анализа: преждевременный EOF
(right here) ------^
Кто-нибудь может мне помочь ?? Большое вам спасибо !!