Вопрос по R (помогите, очень нужно) Опции

[Fedor_Petuhov]

Подскажите, мне нужно распарсить json file из датасета

json_file <- fromJSON(paste(readLines("9729093289.json"), collapse=""))
json_file <- purrr::map_df(temp, function(x) {
purrr::map(jsonlite::fromJSON(x), function(y) ifelse(is.null(y), NA, y))
})

js <- as.data.frame(json_file)


json_file <- fromJSON(json_file)
lapply(
js[, 14],
function (txt.list) {
r.list <-8345231(parse(text = txt.list))
split(r.list$text, r.list$class)
}
)

ошибка

Error in split.default(r.list$text, r.list$class) :
first argument must be a vector

как победить?

Прикрепленные файлы

 9729093289.zip ( 4,66 килобайт ) Кол-во скачиваний: 247

 

[Fedor_Petuhov]

Но в любом случае сможете помочь?

[p2004r]

Но в любом случае сможете помочь?

Зачем?

Код

> str(8345231(parse(text=js[,14][1])))
List of 7
$ alias               :8322456 [1:2] "by-ceo" "by-founder"
$ count               : num [1:2] 9 44
$ filters             :List of 2
  ..$ : list()
  ..$ : list()
$ name                :8322456 [1:2] "Через руководителей" "Через учредителей"
$ straightList        : logi [1:2] NA NA
$ straightListSubtitle:8322456 [1:2] "Учрежденные организации" "Учрежденные организации"
$ subjects            :List of 2
  ..$ :List of 9
  .. ..$ coCeo            :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 5
  .. .. .. .. ..$ balance : logi [1:3] NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:3] "9 июня 2012" "25 апреля 2012" "25 апреля 2012"
  .. .. .. .. ..$ label   :8322456 [1:3] "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена"
  .. .. .. .. ..$ name    :8322456 [1:3] "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"КОМПЛЕКС-М\""
  .. .. .. .. ..$ ogrn    :8322456 [1:3] "1127746459026" "1127746328797" "1127746328808"
  .. .. ..$ total: num 3
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 3 организаций"
  .. ..$ coFounded        :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 7
  .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:5] "9 июня 2012" "25 апреля 2012" "9 июня 2012" "21 февраля 2013" ...
  .. .. .. .. ..$ label   :8322456 [1:5] "Деятельность прекращена" "Деятельность прекращена" NA NA ...
  .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"МОДУЛЬ-М\"" "ООО \"ФОРТУНА\"" ...
  .. .. .. .. ..$ ogrn    :8322456 [1:5] "1127746459026" "1127746328797" "1127746457827" "5087746164468" ...
  .. .. .. .. ..$ share   :8322456 [1:5] "100%" "100%" "100%" "100%" ...
  .. .. .. .. ..$ sum     :8322456 [1:5] "10 000 руб" "10 000 руб" "10 000 руб" "300 010 руб" ...
  .. .. ..$ total: num 5
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций"
  .. ..$ id               :8322456 "402507024490"
  .. ..$ ipInfo           :List of 5
  .. .. ..$ balance : logi NA
  .. .. ..$ dateFrom:8322456 "7 декабря 2004"
  .. .. ..$ label   :8322456 "Деятельность прекращена"
  .. .. ..$ name    :8322456 "Епифанов Олег Николаевич"
  .. .. ..$ ogrn    :8322456 "304402534200116"
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : num 9
  .. ..$ name             :8322456 "ЕПИФАНОВ ОЛЕГ НИКОЛАЕВИЧ"
  ..$ :List of 9
  .. ..$ coCeo            :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 5
  .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:5] "22 ноября 2010" "25 сентября 2003" "17 мая 2004" "7 октября 2003" ...
  .. .. .. .. ..$ label   :8322456 [1:5] NA "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"МЕДИАПРО\"" "ООО \"МЕГАИНТЕЛ\"" "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" ...
  .. .. .. .. ..$ ogrn    :8322456 [1:5] "1037739909305" "1027710030138" "1037700256901" "1027700291761" ...
  .. .. ..$ total: num 22
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 22 организаций"
  .. ..$ coFounded        :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 7
  .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:5] "17 мая 2004" "8 октября 2003" "14 января 2003" "31 мая 2005" ...
  .. .. .. .. ..$ label   :8322456 [1:5] "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456 [1:5] "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" "ООО \"БЕГУН СЕРВИС\"" "ООО \"ХАКА ГРУПП\"" ...
  .. .. .. .. ..$ ogrn    :8322456 [1:5] "1037700256901" "1027700291761" "1027700323892" "1057747135599" ...
  .. .. .. .. ..$ share   : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ sum     :8322456 [1:5] "10 000 руб" "8 400 руб" "10 000 руб" "10 000 руб" ...
  .. .. ..$ total: num 22
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 22 организаций"
  .. ..$ id               :8322456 "773713390842"
  .. ..$ ipInfo           : logi NA
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : num 44
  .. ..$ name             :8322456 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА"
> str(js[,14][[1]])
'data.frame':    2 obs. of  7 variables:
$ alias               :8322456  "by-ceo" "by-founder"
$ count               : int  9 44
$ filters             :List of 2
  ..$ : list()
  ..$ : list()
$ name                :8322456  "Через руководителей" "Через учредителей"
$ straightList        : logi  NA NA
$ straightListSubtitle:8322456  "Учрежденные организации" "Учрежденные организации"
$ subjects            :List of 2
  ..$ :'data.frame':    1 obs. of  9 variables:
  .. ..$ coCeo            :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    3 obs. of  5 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "9 июня 2012" "25 апреля 2012" "25 апреля 2012"
  .. .. .. .. ..$ label   :8322456  "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена"
  .. .. .. .. ..$ name    :8322456  "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"КОМПЛЕКС-М\""
  .. .. .. .. ..$ ogrn    :8322456  "1127746459026" "1127746328797" "1127746328808"
  .. .. ..$ total: int 3
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 3 организаций"
  .. ..$ coFounded        :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    5 obs. of  7 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "9 июня 2012" "25 апреля 2012" "9 июня 2012" "21 февраля 2013" ...
  .. .. .. .. ..$ label   :8322456  "Деятельность прекращена" "Деятельность прекращена" NA NA ...
  .. .. .. .. ..$ name    :8322456  "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"МОДУЛЬ-М\"" "ООО \"ФОРТУНА\"" ...
  .. .. .. .. ..$ ogrn    :8322456  "1127746459026" "1127746328797" "1127746457827" "5087746164468" ...
  .. .. .. .. ..$ share   :8322456  "100%" "100%" "100%" "100%" ...
  .. .. .. .. ..$ sum     :8322456  "10 000 руб" "10 000 руб" "10 000 руб" "300 010 руб" ...
  .. .. ..$ total: int 5
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций"
  .. ..$ id               :8322456 "402507024490"
  .. ..$ ipInfo           :'data.frame':    1 obs. of  5 variables:
  .. .. ..$ balance : logi NA
  .. .. ..$ dateFrom:8322456 "7 декабря 2004"
  .. .. ..$ label   :8322456 "Деятельность прекращена"
  .. .. ..$ name    :8322456 "Епифанов Олег Николаевич"
  .. .. ..$ ogrn    :8322456 "304402534200116"
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : int 9
  .. ..$ name             :8322456 "ЕПИФАНОВ ОЛЕГ НИКОЛАЕВИЧ"
  ..$ :'data.frame':    1 obs. of  9 variables:
  .. ..$ coCeo            :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    5 obs. of  5 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "22 ноября 2010" "25 сентября 2003" "17 мая 2004" "7 октября 2003" ...
  .. .. .. .. ..$ label   :8322456  NA "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456  "ООО \"МЕДИАПРО\"" "ООО \"МЕГАИНТЕЛ\"" "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" ...
  .. .. .. .. ..$ ogrn    :8322456  "1037739909305" "1027710030138" "1037700256901" "1027700291761" ...
  .. .. ..$ total: int 22
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 22 организаций"
  .. ..$ coFounded        :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    5 obs. of  7 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "17 мая 2004" "8 октября 2003" "14 января 2003" "31 мая 2005" ...
  .. .. .. .. ..$ label   :8322456  "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456  "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" "ООО \"БЕГУН СЕРВИС\"" "ООО \"ХАКА ГРУПП\"" ...
  .. .. .. .. ..$ ogrn    :8322456  "1037700256901" "1027700291761" "1027700323892" "1057747135599" ...
  .. .. .. .. ..$ share   : logi  NA NA NA NA NA
  .. .. .. .. ..$ sum     :8322456  "10 000 руб" "8 400 руб" "10 000 руб" "10 000 руб" ...
  .. .. ..$ total: int 22
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 22 организаций"
  .. ..$ id               :8322456 "773713390842"
  .. ..$ ipInfo           : logi NA
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : int 44
  .. ..$ name             :8322456 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА"
>