Вопрос по 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 килобайт ) Кол-во скачиваний: 248

 

[p2004r]

Подскажите, мне нужно распарсить 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

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

Ну вот прочитано в список, дальше что?

Код

> str(jsonlite::fromJSON("9729093289.json"))
List of 20
$ balanceCollection: NULL
$ checkMap         :List of 5
  ..$ blocks            :'data.frame':    6 obs. of  3 variables:
  .. ..$ comment : logi [1:6] NA NA NA NA NA NA
  .. ..$ items   :List of 6
  .. .. ..$ :'data.frame':    11 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:11] "red" NA NA "red" ...
  .. .. .. ..$ name :8322456 [1:11] "Контрагент существует" "Статус контрагента" "Уставный капитал" "Руководитель является единственным учредителем" ...
  .. .. .. ..$ value:8322456 [1:11] "Меньше года" "Действует" "55 000 руб" "Да" ...
  .. .. ..$ :'data.frame':    5 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:5] "red" "red" "red" "red" ...
  .. .. .. ..$ name :8322456 [1:5] "Выручка" "Чистая прибыль (убыток)" "Основные средства" "Долгосрочные инвестиции" ...
  .. .. .. ..$ value:8322456 [1:5] "Баланс не найден" "Баланс не найден" "Баланс не найден" "Баланс не найден" ...
  .. .. ..$ :'data.frame':    8 obs. of  3 variables:
  .. .. .. ..$ class: logi [1:8] NA NA NA NA NA NA ...
  .. .. .. ..$ name :8322456 [1:8] "Суды в роли ответчика" "Дела о банкротстве" "Изменения в деле о банкротстве за последний месяц" "Исполнительные производства" ...
  .. .. .. ..$ value:8322456 [1:8] "Нет" "Нет" "Нет" "Нет" ...
  .. .. ..$ :'data.frame':    7 obs. of  3 variables:
  .. .. .. ..$ class: logi [1:7] NA NA NA NA NA NA ...
  .. .. .. ..$ name :8322456 [1:7] "Проверки госорганов" "Суды в роли истца" "Выигранные или размещенные госконтракты" "Последнее изменение в ЕГРЮЛ" ...
  .. .. .. ..$ value:8322456 [1:7] "-" "Нет" "Нет" "14 июня 2017 ? Представление сведений о регистрации юридического лица в качестве страхователя в территориальном органе пенсионн"| __truncated__ ...
  .. .. ..$ :'data.frame':    7 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:7] NA NA NA NA ...
  .. .. .. ..$ name :8322456 [1:7] "Суды в роли истца или ответчика" "Филиалы" "Представительства" "Заключено или размещено госконтрактов за год" ...
  .. .. .. ..$ value:8322456 [1:7] "Нет" "Нет" "Нет" "Нет" ...
  .. .. ..$ :'data.frame':    6 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:6] "red" NA NA NA ...
  .. .. .. ..$ name :8322456 [1:6] "Контрагент существует" "Организационная форма" "Выручка за 2015" "Чистая прибыль (убыток)" ...
  .. .. .. ..$ value:8322456 [1:6] "Меньше 3 лет" NA "Баланс не найден" "Баланс не найден" ...
  .. ..$ subtitle:8322456 [1:6] "Проверка на фирму-однодневку" "Проверка финансового состояния за последний год" "Проверка добросовестности" "Проверка деловой активности за последний год" ...
  ..$ downloadButtonUrl : NULL
  ..$ showDownloadButton: logi FALSE
  ..$ showPrintButton   : logi FALSE
  ..$ title             :8322456 "Итоги проверки ООО \"ПОЛИС-ЭКСПО\""
$ courtPractice    : NULL
$ digest           :List of 1
  ..$ items:'data.frame':    5 obs. of  3 variables:
  .. ..$ class:8322456 [1:5] "green" "green" "green" "green" ...
  .. ..$ items:List of 5
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. ..$ text :8322456 [1:5] "Нет дел о банкротстве" "Не участвует в судах" "Нет в реестре массовых руководителей" "Нет дисквалифицированных лиц" ...
$ docRequestText   :8322456 "Здравствуйте.<br /><br />В сервисе ?Главбух. Проверка контрагентов? ООО \"ПОЛИС-ЭКСПО\" определяется как компания со средним ри"| __truncated__
$ egr              :List of 6
  ..$ date      : NULL
  ..$ id        : NULL
  ..$ newRequest: NULL
  ..$ ogrn      :8322456 "1177746570253"
  ..$ state     :8322456 "notExists"
  ..$ text      :8322456 "Выписки пока нет"
$ egrChanges       :List of 3
  ..$ blocks:'data.frame':    1 obs. of  3 variables:
  .. ..$ alias:8322456 "done"
  .. ..$ items:List of 1
  .. .. ..$ :'data.frame':    4 obs. of  7 variables:
  .. .. .. ..$ code      :8322456 [1:4] "13300" "13400" "11201" "13200"
  .. .. .. ..$ date      :8322456 [1:4] "2017-06-14T00:00:00" "2017-06-13T00:00:00" "2017-06-08T00:00:00" "2017-06-08T00:00:00"
  .. .. .. ..$ docs      :List of 4
  .. .. .. .. ..$ :8322456(0)
  .. .. .. .. ..$ :8322456(0)
  .. .. .. .. ..$ :8322456 [1:4] "Р11001 ЗАЯВЛЕНИЕ О СОЗДАНИИ ЮЛ" "ДОКУМЕНТ ОБ ОПЛАТЕ ГОСУДАРСТВЕННОЙ ПОШЛИНЫ" "УСТАВ ЮЛ" "РЕШЕНИЕ О СОЗДАНИИ ЮЛ"
  .. .. .. .. ..$ :8322456(0)
  .. .. .. ..$ grn       :8322456 [1:4] "6177747376537" "6177747331778" "1177746570253" "6177747152511"
  .. .. .. ..$ id        :8322456 [1:4] "2b3fd09d-a932-484c-8757-3cfaf6e8b54d" "dc329991-041d-4e1b-990b-55afcdf716e9" "7bbc8409-1fcd-4125-b68e-17d4ce62ba19" "1d73027c-7b77-4371-831e-d3faacc52172"
  .. .. .. ..$ registrant:8322456 [1:4] "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве"
  .. .. .. ..$ type      :8322456 [1:4] "Представление сведений о регистрации юридического лица в качестве страхователя в территориальном органе пенсионного фонда росси"| __truncated__ "Представление сведений о регистрации юридического лица в качестве страхователя в исполнительном органе фонда социального страхо"| __truncated__ "Создание юридического лица" "Представление сведений об учете юридического лица в налоговом органе"
  .. ..$ title:8322456 "Внесенные"
  ..$ title :8322456 "Изменения в ЕГРЮЛ"
  ..$ total : int 4
$ executions       : NULL
$ goscontracts     : NULL
$ info             :List of 27
  ..$ address                                      :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "8 июня 2017"
  .. ..$ text    :8322456 "119633, Москва, Боровское шоссе, 21, квартира 216"
  .. ..$ title   :8322456 "Адрес"
  ..$ aoReestrHolder                               : NULL
  ..$ blockInn                                     :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "9729093289"
  .. ..$ title   :8322456 "ИНН"
  ..$ blockKpp                                     :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "772901001"
  .. ..$ title   :8322456 "КПП"
  ..$ blockOgrn                                    :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "1177746570253"
  .. ..$ title   :8322456 "ОГРН"
  ..$ capital                                      :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "8 июня 2017"
  .. ..$ text    :8322456 "55 000 руб"
  .. ..$ title   :8322456 "Уставный капитал"
  ..$ email                                        : NULL
  ..$ filials                                      : NULL
  ..$ filialsAndRepresentitivesCaption             : NULL
  ..$ formationDate                                :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "8 июня 2017"
  .. ..$ text    :8322456 "8 июня 2017 ? создание юридического лица"
  .. ..$ title   :8322456 "Существует меньше года"
  ..$ founders                                     :List of 2
  .. ..$ items:'data.frame':    1 obs. of  10 variables:
  .. .. ..$ alerts            :List of 1
  .. .. .. ..$ : list()
  .. .. ..$ dateFrom          :8322456 "8 июня 2017"
  .. .. ..$ delegates         : logi NA
  .. .. ..$ encumbrances      : logi NA
  .. .. ..$ inn               :8322456 "773203847708"
  .. .. ..$ linkedEntityButton: logi NA
  .. .. ..$ name              :8322456 "Мянзелев Андрей Иммратович"
  .. .. ..$ ogrn              : logi NA
  .. .. ..$ share             :'data.frame':    1 obs. of  4 variables:
  .. .. .. ..$ alerts  :List of 1
  .. .. .. .. ..$ : list()
  .. .. .. ..$ dateFrom: logi NA
  .. .. .. ..$ text    :8322456 "100%"
  .. .. .. ..$ title   :8322456 "Доля в уставном капитале"
  .. .. ..$ shareSumm         :8322456 "55 000 руб"
  .. ..$ title:8322456 "Учредители"
  ..$ fssRegistration                              :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "13 июня 2017"
  .. ..$ text    :8322456 "772109334477211"
  .. ..$ title   :8322456 "ФСС"
  ..$ inn                                          :8322456 "9729093289"
  ..$ name                                         :8322456 "ООО \"ПОЛИС-ЭКСПО\""
  ..$ new_activities                               :List of 2
  .. ..$ items:8322456 [1:8] "46.32 Торговля оптовая мясом и мясными продуктами" "46.33 Торговля оптовая молочными продуктами, яйцами и пищевыми маслами и жирами" "46.34 Торговля оптовая напитками" "46.35 Торговля оптовая табачными изделиями" ...
  .. ..$ title:8322456 "Дополнительные виды деятельности"
  ..$ new_activity                                 :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "46.90 Торговля оптовая неспециализированная"
  .. ..$ title   :8322456 "Основной вид деятельности 46.90"
  ..$ new_ceos                                     :List of 2
  .. ..$ items:'data.frame':    1 obs. of  6 variables:
  .. .. ..$ alerts            :List of 1
  .. .. .. ..$ : list()
  .. .. ..$ dateFrom          :8322456 "8 июня 2017"
  .. .. ..$ fio               :8322456 "Мянзелев Андрей Иммратович"
  .. .. ..$ inn               :8322456 "773203847708"
  .. .. ..$ linkedEntityButton:'data.frame':    1 obs. of  3 variables:
  .. .. .. ..$ id  :8322456 "773203847708"
  .. .. .. ..$ tab :8322456 "by-ceo"
  .. .. .. ..$ text:8322456 "Перейти к 10 связанным компаниям"
  .. .. ..$ post              :8322456 "Генеральный директор"
  .. ..$ title:8322456 "Лица, действующие без доверенности"
  ..$ new_fullName                                 :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ПОЛИС-ЭКСПО\""
  .. ..$ title   :8322456 "Полное наименование"
  ..$ ogrn                                         :8322456 "1177746570253"
  ..$ pfrRegistration                              :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "13 июня 2017"
  .. ..$ text    :8322456 "087816014781"
  .. ..$ title   :8322456 "ПФР"
  ..$ pravopreemniki                               : NULL
  ..$ pravopreemnikiAndPravopredshestvennikiCaption: NULL
  ..$ predshestvenniki                             : NULL
  ..$ representitives                              : NULL
  ..$ status                                       :List of 5
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ subtext : NULL
  .. ..$ text    :8322456 "Действующая организация"
  .. ..$ title   : NULL
  ..$ upravOrg                                     : NULL
  ..$ warnings                                     : list()
$ inspections      : NULL
$ isActive         : logi TRUE
$ licenses         : NULL
$ linkedEntities   :List of 3
  ..$ tabs :'data.frame':    1 obs. of  7 variables:
  .. ..$ alias               :8322456 "by-ceo"
  .. ..$ count               : int 10
  .. ..$ filters             :List of 1
  .. .. ..$ : list()
  .. ..$ name                :8322456 "Через руководителей"
  .. ..$ straightList        : logi NA
  .. ..$ straightListSubtitle:8322456 "Учрежденные организации"
  .. ..$ subjects            :List of 1
  .. .. ..$ :'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 [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ dateFrom:8322456 [1:5] "2 июня 2017" "2 июня 2017" "2 июня 2017" "22 июня 2017" ...
  .. .. .. .. .. .. ..$ label   : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"ТРИСТАН-ГРУПП\"" "ООО \"ЭКВИЛИБРИ\"" "ООО \"ПОЛИС-ЭКСПО\"" "ООО \"РИБС-ТРЕЙД\"" ...
  .. .. .. .. .. .. ..$ ogrn    :8322456 [1:5] "1177746548836" "1177746551762" "1177746551575" "1177746618884" ...
  .. .. .. .. ..$ total: int 5
  .. .. .. ..$ coCeoSubtitle    :8322456 "Руководитель 5 организаций"
  .. .. .. ..$ coFounded        :'data.frame':    1 obs. of  2 variables:
  .. .. .. .. ..$ items:List of 1
  .. .. .. .. .. ..$ :'data.frame':    5 obs. of  7 variables:
  .. .. .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ dateFrom:8322456 [1:5] "2 июня 2017" "2 июня 2017" "2 июня 2017" "22 июня 2017" ...
  .. .. .. .. .. .. ..$ label   : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"ТРИСТАН-ГРУПП\"" "ООО \"ЭКВИЛИБРИ\"" "ООО \"ПОЛИС-ЭКСПО\"" "ООО \"РИБС-ТРЕЙД\"" ...
  .. .. .. .. .. .. ..$ ogrn    :8322456 [1:5] "1177746548836" "1177746551762" "1177746551575" "1177746618884" ...
  .. .. .. .. .. .. ..$ share   :8322456 [1:5] "100%" "100%" "100%" "100%" ...
  .. .. .. .. .. .. ..$ sum     :8322456 [1:5] "90 000 руб" "70 000 руб" "55 000 руб" "80 000 руб" ...
  .. .. .. .. ..$ total: int 5
  .. .. .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций"
  .. .. .. ..$ id               :8322456 "773203847708"
  .. .. .. ..$ ipInfo           : logi NA
  .. .. .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. .. .. ..$ linkCount        : int 10
  .. .. .. ..$ name             :8322456 "МЯНЗЕЛЕВ АНДРЕЙ ИММРАТОВИЧ"
  ..$ title:8322456 "Связанные организации"
  ..$ total: int 10
$ reports          :List of 3
  ..$ enabled: logi TRUE
  ..$ reports:'data.frame':    2 obs. of  3 variables:
  .. ..$ href   :8322456 [1:2] "/site/details/ogrn/1177746570253/reports/detailed/" "/site/details/ogrn/1177746570253/egr-xml"
  .. ..$ name   :8322456 [1:2] "По контрагенту" "XML из ЕГРЮЛ (отладочный)"
  .. ..$ visible: logi [1:2] TRUE TRUE
  ..$ text   :8322456 "Скачать отчет"
$ semaphore        :List of 3
  ..$ class:8322456 "doc-lights_state_yellow"
  ..$ text :8322456 "Контрагент работает недавно, получите рекомендации его клиентов"
  ..$ title:8322456 "Рекомендуем проверить"
$ size             : NULL
$ tabs             :'data.frame':    9 obs. of  7 variables:
  ..$ active : logi [1:9] TRUE FALSE FALSE FALSE TRUE TRUE ...
  ..$ alias  :8322456 [1:9] "main" "finance" "court-practice" "executions" ...
  ..$ default: logi [1:9] TRUE FALSE FALSE FALSE FALSE FALSE ...
  ..$ name   :8322456 [1:9] "Основное" "Баланс" "Арбитраж" "Приставы" ...
  ..$ order  : int [1:9] 1 2 3 4 5 6 7 8 9
  ..$ total  :8322456 [1:9] NA NA NA NA ...
  ..$ visible: logi [1:9] TRUE TRUE TRUE TRUE TRUE TRUE ...
$ type             :8322456 "org_entity"
$ warnings         : list()