Форум врачей-аспирантов

Здравствуйте, гость ( Вход | Регистрация )

> Вопрос по R (помогите, очень нужно)
Fedor_Petuhov
сообщение 17.07.2017 - 18:18
Сообщение #1





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



Подскажите, мне нужно распарсить 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 килобайт ) Кол-во скачиваний: 243
 
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
 
Открыть тему
Ответов (1 - 12)
p2004r
сообщение 17.07.2017 - 19:00
Сообщение #2





Группа: Пользователи
Сообщений: 1091
Регистрация: 26.08.2010
Пользователь №: 22699



Цитата(Fedor_Petuhov @ 17.07.2017 - 18:18) *
Подскажите, мне нужно распарсить 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()


Signature
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
Fedor_Petuhov
сообщение 17.07.2017 - 19:26
Сообщение #3





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



p2004r, я имел ввиду перевести его в формат дата фрейма.

т.е. мне надо посмотреть какие там поля есть.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
p2004r
сообщение 17.07.2017 - 20:04
Сообщение #4





Группа: Пользователи
Сообщений: 1091
Регистрация: 26.08.2010
Пользователь №: 22699



Цитата(Fedor_Petuhov @ 17.07.2017 - 19:26) *
т.е. мне надо посмотреть какие там поля есть.


ну так вот они все поля приведены в выводе str()

зачем куда то эту структуру данных еще дополнительно преобразовывать? пользоваться надо smile.gif


Signature
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
Fedor_Petuhov
сообщение 17.07.2017 - 20:17
Сообщение #5





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



нет, поймите, мне нужно так
4-ая колонка распарсилась при таком скрипте

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

а вот 14-ая выдала ошибку, у меня просто не один джейсон, их много.
Эскизы прикрепленных изображений
Прикрепленное изображение
 
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
p2004r
сообщение 17.07.2017 - 22:36
Сообщение #6





Группа: Пользователи
Сообщений: 1091
Регистрация: 26.08.2010
Пользователь №: 22699



Цитата(Fedor_Petuhov @ 17.07.2017 - 20:17) *
нет, поймите, мне нужно так
4-ая колонка распарсилась при таком скрипте

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

а вот 14-ая выдала ошибку, у меня просто не один джейсон, их много.



Ну тогда напишите минимальный (или хотя бы просто работающий) пример, демонстрирующий ошибку.



Signature
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
Fedor_Petuhov
сообщение 18.07.2017 - 11:37
Сообщение #7





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



p2004r, а я его написал
#грузим данные джойсон из папки
setwd("datajson")
getwd()

library(jsonlite)
js <- list.files(path = "datajson", pattern="*.json", full.names=TRUE)
js <- purrr::map_df(js, function(x) {
purrr::map(jsonlite::fromJSON(x), function(y) ifelse(is.null(y), NA, y))
})
#check output
nrow(js)
colnames(js)
#transform json to data frame
js <- as.data.frame(js)

tmp.1 <- lapply(
js1[,14],
function (txt.list) {
r.list <-8345231(parse(text = txt.list))
ret.val <- split(r.list$text, r.list$class)
ret.val$linkedEntitiesByCeoNumList <- c(ret.val$linkedEntitiesByCeoNumList, rep(NA, 20 - length(ret.val$linkedEntitiesByCeoNumList))) # код будет работать максимум с 20 полями каждого вида
ret.val$linkedEntitiesByFounderNumList <- c(ret.val$linkedEntitiesByFounderNumList, rep(NA, 20 - length(ret.val$linkedEntitiesByFounderNumList)))
ret.val$linkedEntitiesChildrenNumList <- c(ret.val$linkedEntitiesChildrenNumList, rep(NA, 20 - length(ret.val$linkedEntitiesChildrenNumList)))
ret.val <- do.call(c, ret.val)
do.call(data.frame, c(ret.val, list(stringsAsFactors = FALSE)))
}
)
tmp.1 <- do.call(rbind, tmp.1)
js <- cbind(js, tmp.1)


Error in split.default(r.list$text, r.list$class) :
first argument must be a vector
4.
split.default(r.list$text, r.list$class)
3.
split(r.list$text, r.list$class)
2.
FUN(X[[i]], ...)
1.
lapply(my.df1[, 14], function(txt.list) {
r.list <-8345231(parse(text = txt.list))
ret.val <- split(r.list$text, r.list$class)
ret.val$linkedEntitiesByCeoNumList <- c(ret.val$linkedEntitiesByCeoNumList, ...


а если вы будете смотреть 4-ую переменную то этот же код на ура отработает

Сообщение отредактировал Fedor_Petuhov - 18.07.2017 - 13:18
Прикрепленные файлы
Прикрепленный файл  datajson.zip ( 503,72 килобайт ) Кол-во скачиваний: 227
 
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
p2004r
сообщение 18.07.2017 - 14:03
Сообщение #8





Группа: Пользователи
Сообщений: 1091
Регистрация: 26.08.2010
Пользователь №: 22699



Цитата(Fedor_Petuhov @ 18.07.2017 - 11:37) *
p2004r, а я его написал


теперь сравните этот код с тем, что был в первом (да и собственно всех кроме последнего) постах...


Signature
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
Fedor_Petuhov
сообщение 18.07.2017 - 14:24
Сообщение #9





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



Так, почему то тут число вместо функции e v a l это не мой косяк, видимо при копировании произошло. Форум это функцию в число конвертирует

Сообщение отредактировал Fedor_Petuhov - 18.07.2017 - 14:25
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
Fedor_Petuhov
сообщение 18.07.2017 - 14:25
Сообщение #10





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



Но в любом случае сможете помочь?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
p2004r
сообщение 21.07.2017 - 22:21
Сообщение #11





Группа: Пользователи
Сообщений: 1091
Регистрация: 26.08.2010
Пользователь №: 22699



Цитата(Fedor_Petuhov @ 18.07.2017 - 14:25) *
Но в любом случае сможете помочь?


Зачем?

Код
> 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 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА"
>


Signature
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
Fedor_Petuhov
сообщение 31.07.2017 - 20:15
Сообщение #12





Группа: Пользователи
Сообщений: 29
Регистрация: 10.02.2017
Пользователь №: 29307



p2004r, а можете, пожалуйста, подсказать по этому файлу

есть id 1 и соответствующий ему номер файла json
есть еще столбец id2/
Как мне сопоставить значения id1 и id2 чтобы названия jsonов упорядочились соответственно id2
я пробовал так
acc=read.xlsx("путь к файлц")
df.new <- acc[order(acc$id2),]
но это не то, просто по возрастанию идет упорядочивание

т.е. Нужно не просто упорядочить id2 по возрастанию, нужно именно сопоставить. Например найти значение 2 в id2, а затем 2 в id1 и напротив 2-ки id2 поставить название json файла, который в столбце
json стоит около двойки столбца id1. Так можете подсказать?

а все, функция merge мне в помощь
А что касается вашего вопроса "Зачем?"
Да затем, что мне никак их в data frame не перевести)
Прикрепленные файлы
Прикрепленный файл  10тыщ.zip ( 185,15 килобайт ) Кол-во скачиваний: 244
 
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 
p2004r
сообщение 6.08.2017 - 14:32
Сообщение #13





Группа: Пользователи
Сообщений: 1091
Регистрация: 26.08.2010
Пользователь №: 22699



Цитата(Fedor_Petuhov @ 31.07.2017 - 20:15) *
А что касается вашего вопроса "Зачем?"
Да затем, что мне никак их в data frame не перевести)


не только лишь каждый сделает это через e v a l smile.gif


Signature
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
 

Добавить ответ в эту темуОткрыть тему