library(tidyr)\nlibrary(dplyr)\nlibrary(repurrrsive)<\/code><\/pre>\n<\/p>\n
\u041f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0438 GitHub<\/h1>\n <\/p>\n
\u041d\u0430\u0447\u043d\u0435\u043c \u0441 gh_users<\/em>, \u0441\u043f\u0438\u0441\u043a\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0448\u0435\u0441\u0442\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f\u0445 GitHub. \u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a gh_users<\/em> \u0432 tibble<\/em> \u0444\u0440\u0435\u0439\u043c.:<\/p>\n<\/p>\n
users <- tibble( user = gh_users ) <\/code><\/pre>\n<\/p>\n
\u042d\u0442\u043e \u043a\u0430\u0436\u0435\u0442\u0441\u044f \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043d\u0435\u043b\u043e\u0433\u0438\u0447\u043d\u044b\u043c: \u0437\u0430\u0447\u0435\u043c \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u0442\u044c \u0441\u043f\u0438\u0441\u043e\u043a gh_users<\/em>, \u043a \u0431\u043e\u043b\u0435\u0435 \u0441\u043b\u043e\u0436\u043d\u043e\u0439 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0435 \u0434\u0430\u043d\u043d\u044b\u0445? \u041d\u043e \u0443 \u0434\u0430\u0442\u0430 \u0444\u0440\u0435\u0439\u043c\u0430 \u0435\u0441\u0442\u044c \u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u043f\u0440\u0435\u0438\u043c\u0443\u0449\u0435\u0441\u0442\u0432\u043e: \u043e\u043d \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u044f\u0435\u0442 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0432\u0435\u043a\u0442\u043e\u0440\u043e\u0432, \u0442\u0430\u043a \u0447\u0442\u043e \u0432\u0441\u0435 \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0432 \u043e\u0434\u043d\u043e\u043c \u043e\u0431\u044a\u0435\u043a\u0442\u0435.<\/p>\n<\/p>\n
\u041a\u0430\u0436\u0434\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 users<\/code> \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0441\u043e\u0431\u043e\u0439 \u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043a\u0430\u0436\u0434\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0441\u0442\u043e\u043b\u0431\u0435\u0446.<\/p>\n<\/p>\n
names(users$user[[1]])\n#> [1] "login" "id" "avatar_url" \n#> [4] "gravatar_id" "url" "html_url" \n#> [7] "followers_url" "following_url" "gists_url" \n#> [10] "starred_url" "subscriptions_url" "organizations_url" \n#> [13] "repos_url" "events_url" "received_events_url"\n#> [16] "type" "site_admin" "name" \n#> [19] "company" "blog" "location" \n#> [22] "email" "hireable" "bio" \n#> [25] "public_repos" "public_gists" "followers" \n#> [28] "following" "created_at" "updated_at"<\/code><\/pre>\n<\/p>\n
\u0415\u0441\u0442\u044c \u0434\u0432\u0430 \u0441\u043f\u043e\u0441\u043e\u0431\u0430 \u043f\u0440\u0435\u0432\u0440\u0430\u0442\u0438\u0442\u044c \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b \u0441\u043f\u0438\u0441\u043a\u0430 \u0432 \u0441\u0442\u043e\u043b\u0431\u0446\u044b. unnest_wider()<\/code> \u0431\u0435\u0440\u0435\u0442 \u043a\u0430\u0436\u0434\u044b\u0439 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 \u0438 \u0441\u043e\u0437\u0434\u0430\u0435\u0442 \u043d\u043e\u0432\u044b\u0439 \u0441\u0442\u043e\u043b\u0431\u0435\u0446:<\/p>\n<\/p>\n
users %>% unnest_wider(user)\n#> # A tibble: 6 x 30\n#> login id avatar_url gravatar_id url html_url followers_url\n#> <chr> <int> <chr> <chr> <chr> <chr> <chr> \n#> 1 gabo\u2026 6.60e5 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 2 jenn\u2026 5.99e5 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 3 jtle\u2026 1.57e6 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 4 juli\u2026 1.25e7 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 5 leep\u2026 3.51e6 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 6 masa\u2026 8.36e6 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> # \u2026 with 23 more variables: following_url <chr>, gists_url <chr>,\n#> # starred_url <chr>, subscriptions_url <chr>, organizations_url <chr>,\n#> # repos_url <chr>, events_url <chr>, received_events_url <chr>,\n#> # type <chr>, site_admin <lgl>, name <chr>, company <chr>, blog <chr>,\n#> # location <chr>, email <chr>, public_repos <int>, public_gists <int>,\n#> # followers <int>, following <int>, created_at <chr>, updated_at <chr>,\n#> # bio <chr>, hireable <lgl><\/code><\/pre>\n<\/p>\n
\u0412 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0441\u043e\u0441\u0442\u043e\u044f\u0449\u0443\u044e \u0438\u0437 30 \u0441\u0442\u043e\u043b\u0431\u0446\u043e\u0432, \u0438 \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u043e \u0438\u0437 \u043d\u0438\u0445 \u043d\u0430\u043c \u043d\u0435 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u044f\u0442\u0441\u044f, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0432\u043c\u0435\u0441\u0442\u043e unnest_wider()<\/code> \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c hoist()<\/code>. hoist()<\/code> \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043d\u0430\u043c \u0438\u0437\u0432\u043b\u0435\u043a\u0430\u0442\u044c \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0442\u043e\u0442 \u0436\u0435 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441, \u0447\u0442\u043e \u0438 purrr::pluck()<\/code>:<\/p>\n<\/p>\n
users %>% hoist(user, \n followers = "followers", \n login = "login", \n url = "html_url"\n)\n#> # A tibble: 6 x 4\n#> followers login url user \n#> <int> <chr> <chr> <list> \n#> 1 303 gaborcsardi https:\/\/github.com\/gaborcsardi <named list [27]>\n#> 2 780 jennybc https:\/\/github.com\/jennybc <named list [27]>\n#> 3 3958 jtleek https:\/\/github.com\/jtleek <named list [27]>\n#> 4 115 juliasilge https:\/\/github.com\/juliasilge <named list [27]>\n#> 5 213 leeper https:\/\/github.com\/leeper <named list [27]>\n#> 6 34 masalmon https:\/\/github.com\/masalmon <named list [27]><\/code><\/pre>\n<\/p>\n
hoist()<\/code> \u0443\u0434\u0430\u043b\u044f\u0435\u0442 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0435 \u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b \u0438\u0437 \u0441\u043f\u0438\u0441\u043a\u0430-\u0441\u0442\u043e\u043b\u0431\u0446\u0430 user<\/em>, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c hoist()<\/code> \u043a\u0430\u043a \u043f\u0435\u0440\u0435\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u043e\u0432 \u0438\u0437 \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0435\u0433\u043e \u0441\u043f\u0438\u0441\u043a\u0430 \u0434\u0430\u0442\u0430 \u0444\u0440\u0435\u0439\u043c\u0430 \u043a \u0435\u0433\u043e \u0432\u0435\u0440\u0445\u043d\u0435\u043c\u0443 \u0443\u0440\u043e\u0432\u043d\u044e.<\/p>\n<\/p>\n
\u0420\u0435\u043f\u043e\u0437\u0438\u0442\u043e\u0440\u0438\u0438 Github<\/h1>\n <\/p>\n
\u0412\u044b\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u043d\u0438\u0435 \u0441\u043f\u0438\u0441\u043a\u0430 gh_repos<\/code> \u043c\u044b \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u043c \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e, \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u044f \u0435\u0433\u043e \u0432 tibble<\/code>:<\/p>\n<\/p>\n
repos <- tibble(repo = gh_repos)\nrepos\n#> # A tibble: 6 x 1\n#> repo \n#> <list> \n#> 1 <list [30]>\n#> 2 <list [30]>\n#> 3 <list [30]>\n#> 4 <list [26]>\n#> 5 <list [30]>\n#> 6 <list [30]><\/code><\/pre>\n<\/p>\n
\u041d\u0430 \u044d\u0442\u043e\u0442 \u0440\u0430\u0437 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b user<\/em> \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0442 \u0441\u043e\u0431\u043e\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u0440\u0435\u043f\u043e\u0437\u0438\u0442\u043e\u0440\u0438\u0435\u0432, \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0430\u0449\u0438\u0445 \u044d\u0442\u043e\u043c\u0443 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044e. \u041a\u0430\u0436\u0434\u044b\u0439 \u0440\u0435\u043f\u043e\u0437\u0438\u0442\u043e\u0440\u0438\u0439 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u043c \u043d\u0430\u0431\u043b\u044e\u0434\u0435\u043d\u0438\u0435\u043c, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0441\u043e\u0433\u043b\u0430\u0441\u043d\u043e \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u0438 \u0430\u043a\u043a\u0443\u0440\u0430\u0442\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 (\u043f\u0440\u0438\u043c. tidy data)<\/em> \u043e\u043d\u0438 \u0434\u043e\u043b\u0436\u043d\u044b \u0441\u0442\u0430\u0442\u044c \u043d\u043e\u0432\u044b\u043c\u0438 \u0441\u0442\u0440\u043e\u043a\u0430\u043c\u0438, \u0432 \u0441\u0432\u044f\u0437\u0438 \u0441 \u0447\u0435\u043c \u043c\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c unnest_longer()<\/code> \u0430 \u043d\u0435 unnest_wider()<\/code>:<\/p>\n<\/p>\n
repos <- repos %>% unnest_longer(repo)\nrepos\n#> # A tibble: 176 x 1\n#> repo \n#> <list> \n#> 1 <named list [68]>\n#> 2 <named list [68]>\n#> 3 <named list [68]>\n#> 4 <named list [68]>\n#> 5 <named list [68]>\n#> 6 <named list [68]>\n#> 7 <named list [68]>\n#> 8 <named list [68]>\n#> 9 <named list [68]>\n#> 10 <named list [68]>\n#> # \u2026 with 166 more rows<\/code><\/pre>\n<\/p>\n
\u0422\u0435\u043f\u0435\u0440\u044c \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c unnest_wider()<\/code> \u0438\u043b\u0438 hoist()<\/code> :<\/p>\n<\/p>\n
repos %>% hoist(repo, \n login = c("owner", "login"), \n name = "name",\n homepage = "homepage",\n watchers = "watchers_count"\n)\n#> # A tibble: 176 x 5\n#> login name homepage watchers repo \n#> <chr> <chr> <chr> <int> <list> \n#> 1 gaborcsardi after <NA> 5 <named list [65]>\n#> 2 gaborcsardi argufy <NA> 19 <named list [65]>\n#> 3 gaborcsardi ask <NA> 5 <named list [65]>\n#> 4 gaborcsardi baseimports <NA> 0 <named list [65]>\n#> 5 gaborcsardi citest <NA> 0 <named list [65]>\n#> 6 gaborcsardi clisymbols "" 18 <named list [65]>\n#> 7 gaborcsardi cmaker <NA> 0 <named list [65]>\n#> 8 gaborcsardi cmark <NA> 0 <named list [65]>\n#> 9 gaborcsardi conditions <NA> 0 <named list [65]>\n#> 10 gaborcsardi crayon <NA> 52 <named list [65]>\n#> # \u2026 with 166 more rows<\/code><\/pre>\n<\/p>\n
\u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 c("owner", "login")<\/code>: \u044d\u0442\u043e \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043d\u0430\u043c \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f \u0438\u0437 \u0432\u043b\u043e\u0436\u0435\u043d\u043d\u043e\u0433\u043e \u0441\u043f\u0438\u0441\u043a\u0430 owner<\/code>. \u0410\u043b\u044c\u0442\u0435\u0440\u043d\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u043f\u043e\u0434\u0445\u043e\u0434 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0432\u0435\u0441\u044c \u0441\u043f\u0438\u0441\u043e\u043a owner<\/code> \u0438 \u0437\u0430\u0442\u0435\u043c \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 unnest_wider()<\/code> \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u0442\u044c \u043a\u0430\u0436\u0434\u044b\u0439 \u0435\u0433\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0432 \u0441\u0442\u043e\u043b\u0431\u0435\u0446:<\/p>\n<\/p>\n
repos %>% \n hoist(repo, owner = "owner") %>% \n unnest_wider(owner)\n#> # A tibble: 176 x 18\n#> login id avatar_url gravatar_id url html_url followers_url\n#> <chr> <int> <chr> <chr> <chr> <chr> <chr> \n#> 1 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 2 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 3 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 4 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 5 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 6 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 7 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 8 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 9 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> 10 gabo\u2026 660288 https:\/\/a\u2026 "" http\u2026 https:\/\u2026 https:\/\/api.\u2026\n#> # \u2026 with 166 more rows, and 11 more variables: following_url <chr>,\n#> # gists_url <chr>, starred_url <chr>, subscriptions_url <chr>,\n#> # organizations_url <chr>, repos_url <chr>, events_url <chr>,\n#> # received_events_url <chr>, type <chr>, site_admin <lgl>, repo <list><\/code><\/pre>\n<\/p>\n
\u0412\u043c\u0435\u0441\u0442\u043e \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0431\u044b \u0440\u0430\u0437\u043c\u044b\u0448\u043b\u044f\u0442\u044c \u043d\u0430\u0434 \u0432\u044b\u0431\u043e\u0440\u043e\u043c \u043d\u0443\u0436\u043d\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 unnest_longer()<\/code> \u0438\u043b\u0438 unnest_wider()<\/code> \u0432\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c unnest_auto()<\/code>. \u042d\u0442\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u044d\u0432\u0440\u0438\u0441\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0434\u043b\u044f \u043f\u043e\u0434\u0431\u043e\u0440\u0430 \u043d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u043f\u043e\u0434\u0445\u043e\u0434\u044f\u0449\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043b\u044f \u0442\u0440\u0430\u043d\u0441\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u0434\u0430\u043d\u043d\u044b\u0445, \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u0442 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u0435. <\/p>\n<\/p>\n
tibble(repo = gh_repos) %>% \n unnest_auto(repo) %>% \n unnest_auto(repo)\n#> Using `unnest_longer(repo)`; no element has names\n#> Using `unnest_wider(repo)`; elements have 68 names in common\n#> # A tibble: 176 x 67\n#> id name full_name owner private html_url description fork url \n#> <int> <chr> <chr> <lis> <lgl> <chr> <chr> <lgl> <chr>\n#> 1 6.12e7 after gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 Run Code i\u2026 FALSE http\u2026\n#> 2 4.05e7 argu\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 Declarativ\u2026 FALSE http\u2026\n#> 3 3.64e7 ask gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 Friendly C\u2026 FALSE http\u2026\n#> 4 3.49e7 base\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 Do we get \u2026 FALSE http\u2026\n#> 5 6.16e7 cite\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 Test R pac\u2026 TRUE http\u2026\n#> 6 3.39e7 clis\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 Unicode sy\u2026 FALSE http\u2026\n#> 7 3.72e7 cmak\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 port of cm\u2026 TRUE http\u2026\n#> 8 6.80e7 cmark gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 CommonMark\u2026 TRUE http\u2026\n#> 9 6.32e7 cond\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 <NA> TRUE http\u2026\n#> 10 2.43e7 cray\u2026 gaborcsa\u2026 <nam\u2026 FALSE https:\/\u2026 R package \u2026 FALSE http\u2026\n#> # \u2026 with 166 more rows, and 58 more variables: forks_url <chr>,\n#> # keys_url <chr>, collaborators_url <chr>, teams_url <chr>,\n#> # hooks_url <chr>, issue_events_url <chr>, events_url <chr>,\n#> # assignees_url <chr>, branches_url <chr>, tags_url <chr>,\n#> # blobs_url <chr>, git_tags_url <chr>, git_refs_url <chr>,\n#> # trees_url <chr>, statuses_url <chr>, languages_url <chr>,\n#> # stargazers_url <chr>, contributors_url <chr>, subscribers_url <chr>,\n#> # subscription_url <chr>, commits_url <chr>, git_commits_url <chr>,\n#> # comments_url <chr>, issue_comment_url <chr>, contents_url <chr>,\n#> # compare_url <chr>, merges_url <chr>, archive_url <chr>,\n#> # downloads_url <chr>, issues_url <chr>, pulls_url <chr>,\n#> # milestones_url <chr>, notifications_url <chr>, labels_url <chr>,\n#> # releases_url <chr>, deployments_url <chr>, created_at <chr>,\n#> # updated_at <chr>, pushed_at <chr>, git_url <chr>, ssh_url <chr>,\n#> # clone_url <chr>, svn_url <chr>, size <int>, stargazers_count <int>,\n#> # watchers_count <int>, language <chr>, has_issues <lgl>,\n#> # has_downloads <lgl>, has_wiki <lgl>, has_pages <lgl>,\n#> # forks_count <int>, open_issues_count <int>, forks <int>,\n#> # open_issues <int>, watchers <int>, default_branch <chr>,\n#> # homepage <chr><\/code><\/pre>\n<\/p>\n
\u041f\u0435\u0440\u0441\u043e\u043d\u0430\u0436\u0438 \u0418\u0433\u0440\u044b \u041f\u0440\u0435\u0441\u0442\u043e\u043b\u043e\u0432<\/h1>\n <\/p>\n
got_chars<\/code> \u0438\u043c\u0435\u0435\u0442 \u0438\u0434\u0435\u043d\u0442\u0438\u0447\u043d\u0443\u044e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 \u0441 gh_users<\/code>: \u044d\u0442\u043e \u043d\u0430\u0431\u043e\u0440 \u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0441\u043f\u0438\u0441\u043a\u043e\u0432, \u0433\u0434\u0435 \u043a\u0430\u0436\u0434\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0435\u0433\u043e \u0441\u043f\u0438\u0441\u043a\u0430 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0430\u0442\u0440\u0438\u0431\u0443\u0442 \u043f\u0435\u0440\u0441\u043e\u043d\u0430\u0436\u0430 \u0418\u0433\u0440\u044b \u041f\u0440\u0435\u0441\u0442\u043e\u043b\u043e\u0432. \u041f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u0438\u0435 got_chars<\/code> \u043a \u0442\u0430\u0431\u043b\u0438\u0447\u043d\u043e\u043c\u0443 \u0432\u0438\u0434\u0443 \u043c\u044b \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u043c \u0441 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0434\u0430\u0442\u0430 \u0444\u0440\u0435\u0439\u043c\u0430, \u0442\u0430\u043a \u0436\u0435 \u043a\u0430\u043a \u0438 \u0432 \u043f\u0440\u0438\u0432\u0435\u0434\u0451\u043d\u043d\u044b\u0445 \u0440\u0430\u043d\u0435\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u0430\u0445, \u0430 \u0437\u0430\u0442\u0435\u043c \u043f\u0435\u0440\u0435\u0432\u0435\u0434\u0451\u043c \u043a\u0430\u0436\u0434\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u0441\u0442\u043e\u043b\u0431\u0435\u0446:<\/p>\n<\/p>\n
chars <- tibble(char = got_chars)\nchars\n#> # A tibble: 30 x 1\n#> char \n#> <list> \n#> 1 <named list [18]>\n#> 2 <named list [18]>\n#> 3 <named list [18]>\n#> 4 <named list [18]>\n#> 5 <named list [18]>\n#> 6 <named list [18]>\n#> 7 <named list [18]>\n#> 8 <named list [18]>\n#> 9 <named list [18]>\n#> 10 <named list [18]>\n#> # \u2026 with 20 more rows\n\nchars2 <- chars %>% unnest_wider(char)\nchars2\n#> # A tibble: 30 x 18\n#> url id name gender culture born died alive titles aliases father\n#> <chr> <int> <chr> <chr> <chr> <chr> <chr> <lgl> <list> <list> <chr> \n#> 1 http\u2026 1022 Theo\u2026 Male Ironbo\u2026 In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> 2 http\u2026 1052 Tyri\u2026 Male "" In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> 3 http\u2026 1074 Vict\u2026 Male Ironbo\u2026 In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> 4 http\u2026 1109 Will Male "" "" In 2\u2026 FALSE <chr \u2026 <chr [\u2026 "" \n#> 5 http\u2026 1166 Areo\u2026 Male Norvos\u2026 In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> 6 http\u2026 1267 Chett Male "" At H\u2026 In 2\u2026 FALSE <chr \u2026 <chr [\u2026 "" \n#> 7 http\u2026 1295 Cres\u2026 Male "" In 2\u2026 In 2\u2026 FALSE <chr \u2026 <chr [\u2026 "" \n#> 8 http\u2026 130 Aria\u2026 Female Dornish In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> 9 http\u2026 1303 Daen\u2026 Female Valyri\u2026 In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> 10 http\u2026 1319 Davo\u2026 Male Wester\u2026 In 2\u2026 "" TRUE <chr \u2026 <chr [\u2026 "" \n#> # \u2026 with 20 more rows, and 7 more variables: mother <chr>, spouse <chr>,\n#> # allegiances <list>, books <list>, povBooks <list>, tvSeries <list>,\n#> # playedBy <list><\/code><\/pre>\n<\/p>\n
\u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 got_chars<\/code> \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043b\u043e\u0436\u043d\u0435\u0435, \u0447\u0435\u043c gh_users<\/code>, \u0442.\u043a. \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b \u0441\u043f\u0438\u0441\u043a\u0430 char<\/code> \u0441\u0430\u043c\u0438 \u043f\u043e \u0441\u0435\u0431\u0435 \u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0441\u043f\u0438\u0441\u043a\u043e\u043c, \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0441\u0442\u043e\u043b\u0431\u044b \u2014 \u0441\u043f\u0438\u0441\u043a\u0438:<\/p>\n<\/p>\n
chars2 %>% select_if(is.list)\n#> # A tibble: 30 x 7\n#> titles aliases allegiances books povBooks tvSeries playedBy \n#> <list> <list> <list> <list> <list> <list> <list> \n#> 1 <chr [3]> <chr [4]> <chr [1]> <chr [3]> <chr [2]> <chr [6]> <chr [1]>\n#> 2 <chr [2]> <chr [11]> <chr [1]> <chr [2]> <chr [4]> <chr [6]> <chr [1]>\n#> 3 <chr [2]> <chr [1]> <chr [1]> <chr [3]> <chr [2]> <chr [1]> <chr [1]>\n#> 4 <chr [1]> <chr [1]> <???> <chr [1]> <chr [1]> <chr [1]> <chr [1]>\n#> 5 <chr [1]> <chr [1]> <chr [1]> <chr [3]> <chr [2]> <chr [2]> <chr [1]>\n#> 6 <chr [1]> <chr [1]> <???> <chr [2]> <chr [1]> <chr [1]> <chr [1]>\n#> 7 <chr [1]> <chr [1]> <???> <chr [2]> <chr [1]> <chr [1]> <chr [1]>\n#> 8 <chr [1]> <chr [1]> <chr [1]> <chr [4]> <chr [1]> <chr [1]> <chr [1]>\n#> 9 <chr [5]> <chr [11]> <chr [1]> <chr [1]> <chr [4]> <chr [6]> <chr [1]>\n#> 10 <chr [4]> <chr [5]> <chr [2]> <chr [1]> <chr [3]> <chr [5]> <chr [1]>\n#> # \u2026 with 20 more rows<\/code><\/pre>\n<\/p>\n
\u0412\u0430\u0448\u0438 \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0438\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u0437\u0430\u0432\u0438\u0441\u044f\u0442 \u043e\u0442 \u0446\u0435\u043b\u0435\u0439 \u0430\u043d\u0430\u043b\u0438\u0437\u0430. \u0412\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u0432\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u0442\u044c \u0432 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043f\u043e \u043a\u0430\u0436\u0434\u043e\u0439 \u043a\u043d\u0438\u0433\u0435 \u0438 \u0441\u0435\u0440\u0438\u0430\u043b\u0435, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043f\u043e\u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u0435\u0440\u0441\u043e\u043d\u0430\u0436:<\/p>\n
<\/p>\n
chars2 %>% \n select(name, books, tvSeries) %>% \n pivot_longer(c(books, tvSeries), names_to = "media", values_to = "value") %>% \n unnest_longer(value)\n#> # A tibble: 180 x 3\n#> name media value \n#> <chr> <chr> <chr> \n#> 1 Theon Greyjoy books A Game of Thrones\n#> 2 Theon Greyjoy books A Storm of Swords\n#> 3 Theon Greyjoy books A Feast for Crows\n#> 4 Theon Greyjoy tvSeries Season 1 \n#> 5 Theon Greyjoy tvSeries Season 2 \n#> 6 Theon Greyjoy tvSeries Season 3 \n#> 7 Theon Greyjoy tvSeries Season 4 \n#> 8 Theon Greyjoy tvSeries Season 5 \n#> 9 Theon Greyjoy tvSeries Season 6 \n#> 10 Tyrion Lannister books A Feast for Crows\n#> # \u2026 with 170 more rows<\/code><\/pre>\n<\/p>\n
\u0418\u043b\u0438, \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c, \u0432\u044b \u0445\u043e\u0442\u0438\u0442\u0435 \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u0442 \u0432\u0430\u043c \u0441\u043e\u043f\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043f\u0435\u0440\u0441\u043e\u043d\u0430\u0436\u0430 \u0438 \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u0435:<\/p>\n
<\/p>\n
chars2 %>% \n select(name, title = titles) %>% \n unnest_longer(title)\n#> # A tibble: 60 x 2\n#> name title \n#> <chr> <chr> \n#> 1 Theon Greyjoy Prince of Winterfell \n#> 2 Theon Greyjoy Captain of Sea Bitch \n#> 3 Theon Greyjoy Lord of the Iron Islands (by law of the green lands)\n#> 4 Tyrion Lannister Acting Hand of the King (former) \n#> 5 Tyrion Lannister Master of Coin (former) \n#> 6 Victarion Greyjoy Lord Captain of the Iron Fleet \n#> 7 Victarion Greyjoy Master of the Iron Victory \n#> 8 Will "" \n#> 9 Areo Hotah Captain of the Guard at Sunspear \n#> 10 Chett "" \n#> # \u2026 with 50 more rows<\/code><\/pre>\n<\/p>\n
(\u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u043d\u0430 \u043f\u0443\u0441\u0442\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f ""<\/code> \u0432 \u043f\u043e\u043b\u0435 title<\/code>, \u044d\u0442\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043e \u0441 \u043e\u0448\u0438\u0431\u043a\u0430\u043c\u0438 \u0434\u043e\u043f\u0443\u0449\u0435\u043d\u043d\u044b\u043c\u0438 \u043f\u0440\u0438 \u0432\u0432\u043e\u0434\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 got_chars<\/code>: \u043d\u0430 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435 \u043f\u0435\u0440\u0441\u043e\u043d\u0430\u0436\u0438 \u0434\u043b\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043d\u0435\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u043e\u0432 \u043a\u043d\u0438\u0433 \u0438 \u0441\u0435\u0440\u0438\u0430\u043b\u043e\u0432 \u0432 \u043f\u043e\u043b\u0435 title<\/code> \u0434\u043e\u043b\u0436\u043d\u044b \u0438\u043c\u0435\u0442\u044c \u0432\u0435\u043a\u0442\u043e\u0440 \u0434\u043b\u0438\u043d\u044b 0, \u0430 \u043d\u0435 \u0432\u0435\u043a\u0442\u043e\u0440 \u0434\u043b\u0438\u043d\u044b 1, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0438\u0439 \u043f\u0443\u0441\u0442\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443.)<\/p>\n<\/p>\n
\u041c\u044b \u043c\u043e\u0436\u0435\u043c \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u0438\u0432\u0435\u0434\u0451\u043d\u043d\u044b\u0439 \u0432\u044b\u0448\u0435 \u043f\u0440\u0438\u043c\u0435\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044e unnest_auto()<\/code>. \u042d\u0442\u043e\u0442 \u043f\u043e\u0434\u0445\u043e\u0434 \u0443\u0434\u043e\u0431\u0435\u043d \u0434\u043b\u044f \u0440\u0430\u0437\u043e\u0432\u043e\u0433\u043e \u0430\u043d\u0430\u043b\u0438\u0437\u0430, \u043d\u043e \u043d\u0435 \u0441\u0442\u043e\u0438\u0442 \u043f\u043e\u043b\u0430\u0433\u0430\u0442\u044c\u0441\u044f \u043d\u0430 unnest_auto()<\/code> \u0434\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043d\u0430 \u0440\u0435\u0433\u0443\u043b\u044f\u0440\u043d\u043e\u0439 \u043e\u0441\u043d\u043e\u0432\u0435. \u0414\u0435\u043b\u043e \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0435\u0441\u043b\u0438 \u0432\u0430\u0448\u0430 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0434\u0430\u043d\u043d\u044b\u0445 \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u0441\u044f unnest_auto()<\/code> \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u043c\u0435\u043d\u044f\u0442\u044c \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u044b\u0439 \u043c\u0435\u0445\u0430\u043d\u0438\u0437\u043c \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u0445, \u0435\u0441\u043b\u0438 \u0438\u0437\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u043e\u043d \u0440\u0430\u0437\u0432\u043e\u0440\u0430\u0447\u0438\u0432\u0430\u043b \u0441\u0442\u043e\u043b\u0431\u0446\u044b-\u0441\u043f\u0438\u0441\u043a\u0438 \u0432 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f unnest_longer()<\/code>, \u0442\u043e \u043f\u0440\u0438 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0438 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u0432\u0445\u043e\u0434\u044f\u0449\u0438\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u043b\u043e\u0433\u0438\u043a\u0430 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0430 \u0432 \u043f\u043e\u043b\u044c\u0437\u0443 unnest_wider()<\/code>, \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0442\u0430\u043a\u043e\u0433\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u0430 \u043d\u0430 \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e\u0439 \u043e\u0441\u043d\u043e\u0432\u0435 \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u043a \u043d\u0435\u043f\u0440\u0435\u0434\u0432\u0438\u0434\u0435\u043d\u043d\u044b\u043c \u043e\u0448\u0438\u0431\u043a\u0430\u043c.<\/p>\n<\/p>\n
tibble(char = got_chars) %>% \n unnest_auto(char) %>% \n select(name, title = titles) %>% \n unnest_auto(title)\n#> Using `unnest_wider(char)`; elements have 18 names in common\n#> Using `unnest_longer(title)`; no element has names\n#> # A tibble: 60 x 2\n#> name title \n#> <chr> <chr> \n#> 1 Theon Greyjoy Prince of Winterfell \n#> 2 Theon Greyjoy Captain of Sea Bitch \n#> 3 Theon Greyjoy Lord of the Iron Islands (by law of the green lands)\n#> 4 Tyrion Lannister Acting Hand of the King (former) \n#> 5 Tyrion Lannister Master of Coin (former) \n#> 6 Victarion Greyjoy Lord Captain of the Iron Fleet \n#> 7 Victarion Greyjoy Master of the Iron Victory \n#> 8 Will "" \n#> 9 Areo Hotah Captain of the Guard at Sunspear \n#> 10 Chett "" \n#> # \u2026 with 50 more rows<\/code><\/pre>\n<\/p>\n
\u0413\u0435\u043e\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Google<\/h1>\n <\/p>\n
\u0414\u0430\u043b\u0435\u0435 \u043c\u044b \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0431\u043e\u043b\u0435\u0435 \u0441\u043b\u043e\u0436\u043d\u0443\u044e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 \u0434\u0430\u043d\u043d\u044b\u0445, \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c\u044b\u0445 \u043e\u0442 \u0441\u043b\u0443\u0436\u0431\u044b \u0433\u0435\u043e\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Google. \u041a\u044d\u0448\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0443\u0447\u0451\u0442\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u043f\u0440\u043e\u0442\u0438\u0432\u043e\u0440\u0435\u0447\u0438\u0442 \u0443\u0441\u043b\u043e\u0432\u0438\u044f\u043c \u0440\u0430\u0431\u043e\u0442\u044b \u0441 API Google maps, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u044f \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u043f\u0438\u0448\u0443 \u043f\u0440\u043e\u0441\u0442\u0443\u044e \u043e\u0431\u043e\u043b\u043e\u0447\u043a\u0443 \u043a API. \u041a\u043e\u0442\u043e\u0440\u0430\u044f \u043e\u0441\u043d\u043e\u0432\u0430\u043d\u0430 \u043d\u0430 \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0438 \u043a\u043b\u044e\u0447\u0430 API Google \u043a\u0430\u0440\u0442 \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0441\u0440\u0435\u0434\u044b; \u0435\u0441\u043b\u0438 \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0441\u0440\u0435\u0434\u044b \u0443 \u0432\u0430\u0441 \u043d\u0435 \u0441\u043e\u0445\u0440\u0430\u043d\u0451\u043d \u043a\u043b\u044e\u0447 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 API Google Maps, \u0444\u0440\u0430\u0433\u043c\u0435\u043d\u0442\u044b \u043a\u043e\u0434\u0430 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u044b\u0435 \u0432 \u044d\u0442\u043e\u043c \u0440\u0430\u0437\u0434\u0435\u043b\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0442\u044c\u0441\u044f \u043d\u0435 \u0431\u0443\u0434\u0443\u0442.<\/p>\n
<\/p>\n
has_key <- !identical(Sys.getenv("GOOGLE_MAPS_API_KEY"), "")\nif (!has_key) {\n message("No Google Maps API key found; code chunks will not be run")\n}\n\n# https:\/\/developers.google.com\/maps\/documentation\/geocoding\ngeocode <- function(address, api_key = Sys.getenv("GOOGLE_MAPS_API_KEY")) {\n url <- "https:\/\/maps.googleapis.com\/maps\/api\/geocode\/json"\n url <- paste0(url, "?address=", URLencode(address), "&key=", api_key)\n\n jsonlite::read_json(url)\n}<\/code><\/pre>\n<\/p>\n
\u0421\u043f\u0438\u0441\u043e\u043a, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u044d\u0442\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f, \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u0441\u043b\u043e\u0436\u0435\u043d:<\/p>\n
<\/p>\n
houston <- geocode("Houston TX")\nstr(houston)\n#> List of 2\n#> $ results:List of 1\n#> ..$ :List of 5\n#> .. ..$ address_components:List of 4\n#> .. .. ..$ :List of 3\n#> .. .. .. ..$ long_name : chr "Houston"\n#> .. .. .. ..$ short_name: chr "Houston"\n#> .. .. .. ..$ types :List of 2\n#> .. .. .. .. ..$ : chr "locality"\n#> .. .. .. .. ..$ : chr "political"\n#> .. .. ..$ :List of 3\n#> .. .. .. ..$ long_name : chr "Harris County"\n#> .. .. .. ..$ short_name: chr "Harris County"\n#> .. .. .. ..$ types :List of 2\n#> .. .. .. .. ..$ : chr "administrative_area_level_2"\n#> .. .. .. .. ..$ : chr "political"\n#> .. .. ..$ :List of 3\n#> .. .. .. ..$ long_name : chr "Texas"\n#> .. .. .. ..$ short_name: chr "TX"\n#> .. .. .. ..$ types :List of 2\n#> .. .. .. .. ..$ : chr "administrative_area_level_1"\n#> .. .. .. .. ..$ : chr "political"\n#> .. .. ..$ :List of 3\n#> .. .. .. ..$ long_name : chr "United States"\n#> .. .. .. ..$ short_name: chr "US"\n#> .. .. .. ..$ types :List of 2\n#> .. .. .. .. ..$ : chr "country"\n#> .. .. .. .. ..$ : chr "political"\n#> .. ..$ formatted_address : chr "Houston, TX, USA"\n#> .. ..$ geometry :List of 4\n#> .. .. ..$ bounds :List of 2\n#> .. .. .. ..$ northeast:List of 2\n#> .. .. .. .. ..$ lat: num 30.1\n#> .. .. .. .. ..$ lng: num -95\n#> .. .. .. ..$ southwest:List of 2\n#> .. .. .. .. ..$ lat: num 29.5\n#> .. .. .. .. ..$ lng: num -95.8\n#> .. .. ..$ location :List of 2\n#> .. .. .. ..$ lat: num 29.8\n#> .. .. .. ..$ lng: num -95.4\n#> .. .. ..$ location_type: chr "APPROXIMATE"\n#> .. .. ..$ viewport :List of 2\n#> .. .. .. ..$ northeast:List of 2\n#> .. .. .. .. ..$ lat: num 30.1\n#> .. .. .. .. ..$ lng: num -95\n#> .. .. .. ..$ southwest:List of 2\n#> .. .. .. .. ..$ lat: num 29.5\n#> .. .. .. .. ..$ lng: num -95.8\n#> .. ..$ place_id : chr "ChIJAYWNSLS4QIYROwVl894CDco"\n#> .. ..$ types :List of 2\n#> .. .. ..$ : chr "locality"\n#> .. .. ..$ : chr "political"\n#> $ status : chr "OK"<\/code><\/pre>\n<\/p>\n
\u041a \u0441\u0447\u0430\u0441\u0442\u044c\u044e, \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043f\u043e\u0448\u0430\u0433\u043e\u0432\u043e \u0440\u0435\u0448\u0438\u0442\u044c \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0443 \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u044d\u0442\u0438\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u0442\u0430\u0431\u043b\u0438\u0447\u043d\u044b\u0439 \u0432\u0438\u0434 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u0439 tidyr<\/code>. \u0427\u0442\u043e\u0431\u044b \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0437\u0430\u0434\u0430\u0447\u0443 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0441\u043b\u043e\u0436\u043d\u0435\u0435 \u0438 \u0440\u0435\u0430\u043b\u0438\u0441\u0442\u0438\u0447\u043d\u0435\u0435, \u044f \u043d\u0430\u0447\u043d\u0443 \u0441 \u0433\u0435\u043e\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0433\u043e\u0440\u043e\u0434\u043e\u0432:<\/p>\n<\/p>\n
city <- c ( "Houston" , "LA" , "New York" , "Chicago" , "Springfield" ) city_geo <- purrr::map (city, geocode) <\/code><\/pre>\n<\/p>\n
\u041f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u044f \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u044e \u0432 tibble<\/code>, \u0434\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 \u0434\u043e\u0431\u0430\u0432\u043b\u044e \u0441\u0442\u043e\u043b\u0431\u0435\u0446 \u0441 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435\u043c \u0433\u043e\u0440\u043e\u0434\u0430. <\/p>\n<\/p>\n
loc <- tibble(city = city, json = city_geo)\nloc\n#> # A tibble: 5 x 2\n#> city json \n#> <chr> <list> \n#> 1 Houston <named list [2]>\n#> 2 LA <named list [2]>\n#> 3 New York <named list [2]>\n#> 4 Chicago <named list [2]>\n#> 5 Springfield <named list [2]><\/code><\/pre>\n<\/p>\n
\u041f\u0435\u0440\u0432\u044b\u0439 \u0443\u0440\u043e\u0432\u0435\u043d\u044c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b status<\/code> \u0438 result<\/code>, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0440\u0430\u0437\u0432\u0435\u0440\u043d\u0443\u0442\u044c \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e unnest_wider()<\/code> :<\/p>\n<\/p>\n
loc %>%\n unnest_wider(json)\n#> # A tibble: 5 x 3\n#> city results status\n#> <chr> <list> <chr> \n#> 1 Houston <list [1]> OK \n#> 2 LA <list [1]> OK \n#> 3 New York <list [1]> OK \n#> 4 Chicago <list [1]> OK \n#> 5 Springfield <list [1]> OK<\/code><\/pre>\n<\/p>\n
\u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e results<\/code> \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043c\u043d\u043e\u0433\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u044b\u043c \u0441\u043f\u0438\u0441\u043a\u043e\u043c. \u0423 \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0430 \u0433\u043e\u0440\u043e\u0434\u043e\u0432 \u0435\u0441\u0442\u044c 1 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 (\u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0439 \u0443\u043d\u0438\u043a\u0430\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0435 API \u0433\u0435\u043e\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f), \u043d\u043e \u0443 \u0421\u043f\u0440\u0438\u043d\u0433\u0444\u0438\u043b\u0434\u0430 \u0438\u0445 \u0434\u0432\u0430. \u041c\u044b \u043c\u043e\u0436\u0435\u043c \u0432\u044b\u0442\u0430\u0449\u0438\u0442\u044c \u0438\u0445 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e unnest_longer()<\/code> :<\/p>\n<\/p>\n
loc %>%\n unnest_wider(json) %>% \n unnest_longer(results)\n#> # A tibble: 5 x 3\n#> city results status\n#> <chr> <list> <chr> \n#> 1 Houston <named list [5]> OK \n#> 2 LA <named list [5]> OK \n#> 3 New York <named list [5]> OK \n#> 4 Chicago <named list [5]> OK \n#> 5 Springfield <named list [5]> OK<\/code><\/pre>\n<\/p>\n
\u0422\u0435\u043f\u0435\u0440\u044c \u0432\u0441\u0435 \u043e\u043d\u0438 \u0438\u043c\u0435\u044e\u0442 \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b, \u0432 \u0447\u0451\u043c \u043c\u043e\u0436\u043d\u043e \u0443\u0431\u0435\u0434\u0438\u0442\u044c\u0441\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e unnest_wider()<\/code>:<\/p>\n<\/p>\n
loc %>%\n unnest_wider(json) %>% \n unnest_longer(results) %>% \n unnest_wider(results)\n#> # A tibble: 5 x 7\n#> city address_componen\u2026 formatted_addre\u2026 geometry place_id types status\n#> <chr> <list> <chr> <list> <chr> <lis> <chr> \n#> 1 Houst\u2026 <list [4]> Houston, TX, USA <named \u2026 ChIJAYWN\u2026 <lis\u2026 OK \n#> 2 LA <list [4]> Los Angeles, CA\u2026 <named \u2026 ChIJE9on\u2026 <lis\u2026 OK \n#> 3 New Y\u2026 <list [3]> New York, NY, U\u2026 <named \u2026 ChIJOwg_\u2026 <lis\u2026 OK \n#> 4 Chica\u2026 <list [4]> Chicago, IL, USA <named \u2026 ChIJ7cv0\u2026 <lis\u2026 OK \n#> 5 Sprin\u2026 <list [5]> Springfield, MO\u2026 <named \u2026 ChIJP5jI\u2026 <lis\u2026 OK<\/code><\/pre>\n<\/p>\n
\u041c\u044b \u043c\u043e\u0436\u0435\u043c \u043d\u0430\u0439\u0442\u0438 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0448\u0438\u0440\u043e\u0442\u044b \u0438 \u0434\u043e\u043b\u0433\u043e\u0442\u044b \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0433\u043e\u0440\u043e\u0434\u0430 \u0440\u0430\u0437\u0432\u0435\u0440\u043d\u0443\u0432 \u0441\u043f\u0438\u0441\u043e\u043a geometry<\/code>:<\/p>\n<\/p>\n
loc %>%\n unnest_wider(json) %>% \n unnest_longer(results) %>% \n unnest_wider(results) %>% \n unnest_wider(geometry)\n#> # A tibble: 5 x 10\n#> city address_compone\u2026 formatted_addre\u2026 bounds location location_type\n#> <chr> <list> <chr> <list> <list> <chr> \n#> 1 Hous\u2026 <list [4]> Houston, TX, USA <name\u2026 <named \u2026 APPROXIMATE \n#> 2 LA <list [4]> Los Angeles, CA\u2026 <name\u2026 <named \u2026 APPROXIMATE \n#> 3 New \u2026 <list [3]> New York, NY, U\u2026 <name\u2026 <named \u2026 APPROXIMATE \n#> 4 Chic\u2026 <list [4]> Chicago, IL, USA <name\u2026 <named \u2026 APPROXIMATE \n#> 5 Spri\u2026 <list [5]> Springfield, MO\u2026 <name\u2026 <named \u2026 APPROXIMATE \n#> # \u2026 with 4 more variables: viewport <list>, place_id <chr>, types <list>,\n#> # status <chr><\/code><\/pre>\n<\/p>\n
\u0410 \u0437\u0430\u0442\u0435\u043c \u043c\u0435\u0441\u0442\u043e\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435, \u0434\u043b\u044f \u0447\u0435\u0433\u043e \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0440\u0430\u0437\u0432\u0435\u0440\u043d\u0443\u0442\u044c location<\/code>:<\/p>\n<\/p>\n
loc %>%\n unnest_wider(json) %>%\n unnest_longer(results) %>%\n unnest_wider(results) %>%\n unnest_wider(geometry) %>%\n unnest_wider(location)\n#> # A tibble: 5 x 11\n#> city address_compone\u2026 formatted_addre\u2026 bounds lat lng location_type\n#> <chr> <list> <chr> <list> <dbl> <dbl> <chr> \n#> 1 Hous\u2026 <list [4]> Houston, TX, USA <name\u2026 29.8 -95.4 APPROXIMATE \n#> 2 LA <list [4]> Los Angeles, CA\u2026 <name\u2026 34.1 -118. APPROXIMATE \n#> 3 New \u2026 <list [3]> New York, NY, U\u2026 <name\u2026 40.7 -74.0 APPROXIMATE \n#> 4 Chic\u2026 <list [4]> Chicago, IL, USA <name\u2026 41.9 -87.6 APPROXIMATE \n#> 5 Spri\u2026 <list [5]> Springfield, MO\u2026 <name\u2026 37.2 -93.3 APPROXIMATE \n#> # \u2026 with 4 more variables: viewport <list>, place_id <chr>, types <list>,\n#> # status <chr><\/code><\/pre>\n<\/p>\n
\u041e\u043f\u044f\u0442\u044c \u0436\u0435, unnest_auto()<\/code> \u0443\u043f\u0440\u043e\u0449\u0430\u0435\u0442 \u043e\u043f\u0438\u0441\u0430\u043d\u043d\u0443\u044e \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u044e \u0441 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u043c\u0438 \u0440\u0438\u0441\u043a\u0430\u043c\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u0432\u044b\u0437\u0432\u0430\u043d\u044b \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0435\u043c \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u0432\u0445\u043e\u0434\u044f\u0449\u0438\u0445 \u0434\u0430\u043d\u043d\u044b\u0445:<\/p>\n<\/p>\n
loc %>%\n unnest_auto(json) %>%\n unnest_auto(results) %>%\n unnest_auto(results) %>%\n unnest_auto(geometry) %>%\n unnest_auto(location)\n#> Using `unnest_wider(json)`; elements have 2 names in common\n#> Using `unnest_longer(results)`; no element has names\n#> Using `unnest_wider(results)`; elements have 5 names in common\n#> Using `unnest_wider(geometry)`; elements have 4 names in common\n#> Using `unnest_wider(location)`; elements have 2 names in common\n#> # A tibble: 5 x 11\n#> city address_compone\u2026 formatted_addre\u2026 bounds lat lng location_type\n#> <chr> <list> <chr> <list> <dbl> <dbl> <chr> \n#> 1 Hous\u2026 <list [4]> Houston, TX, USA <name\u2026 29.8 -95.4 APPROXIMATE \n#> 2 LA <list [4]> Los Angeles, CA\u2026 <name\u2026 34.1 -118. APPROXIMATE \n#> 3 New \u2026 <list [3]> New York, NY, U\u2026 <name\u2026 40.7 -74.0 APPROXIMATE \n#> 4 Chic\u2026 <list [4]> Chicago, IL, USA <name\u2026 41.9 -87.6 APPROXIMATE \n#> 5 Spri\u2026 <list [5]> Springfield, MO\u2026 <name\u2026 37.2 -93.3 APPROXIMATE \n#> # \u2026 with 4 more variables: viewport <list>, place_id <chr>, types <list>,\n#> # status <chr><\/code><\/pre>\n<\/p>\n
\u041c\u044b \u0442\u0430\u043a\u0436\u0435 \u043c\u043e\u0436\u0435\u043c \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u043d\u0430 \u043f\u0435\u0440\u0432\u044b\u0439 \u0430\u0434\u0440\u0435\u0441 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0433\u043e\u0440\u043e\u0434\u0430:<\/p>\n
<\/p>\n
loc %>%\n unnest_wider(json) %>%\n hoist(results, first_result = 1) %>%\n unnest_wider(first_result) %>%\n unnest_wider(geometry) %>%\n unnest_wider(location)\n#> # A tibble: 5 x 11\n#> city address_compone\u2026 formatted_addre\u2026 bounds lat lng location_type\n#> <chr> <list> <chr> <list> <dbl> <dbl> <chr> \n#> 1 Hous\u2026 <list [4]> Houston, TX, USA <name\u2026 29.8 -95.4 APPROXIMATE \n#> 2 LA <list [4]> Los Angeles, CA\u2026 <name\u2026 34.1 -118. APPROXIMATE \n#> 3 New \u2026 <list [3]> New York, NY, U\u2026 <name\u2026 40.7 -74.0 APPROXIMATE \n#> 4 Chic\u2026 <list [4]> Chicago, IL, USA <name\u2026 41.9 -87.6 APPROXIMATE \n#> 5 Spri\u2026 <list [5]> Springfield, MO\u2026 <name\u2026 37.2 -93.3 APPROXIMATE \n#> # \u2026 with 4 more variables: viewport <list>, place_id <chr>, types <list>,\n#> # status <chr><\/code><\/pre>\n<\/p>\n
\u0418\u043b\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c hoist()<\/code> \u0434\u043b\u044f \u043c\u043d\u043e\u0433\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u0433\u043e \u043f\u043e\u0433\u0440\u0443\u0436\u0435\u043d\u0438\u044f, \u0447\u0442\u043e\u0431\u044b \u043f\u0435\u0440\u0435\u0439\u0442\u0438 \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043a lat<\/code> \u0438 lng<\/code>. <\/p>\n<\/p>\n
loc %>%\n hoist(json,\n lat = list("results", 1, "geometry", "location", "lat"),\n lng = list("results", 1, "geometry", "location", "lng")\n )\n#> # A tibble: 5 x 4\n#> city lat lng json \n#> <chr> <dbl> <dbl> <list> \n#> 1 Houston 29.8 -95.4 <named list [2]>\n#> 2 LA 34.1 -118. <named list [2]>\n#> 3 New York 40.7 -74.0 <named list [2]>\n#> 4 Chicago 41.9 -87.6 <named list [2]>\n#> 5 Springfield 37.2 -93.3 <named list [2]><\/code><\/pre>\n<\/p>\n
\u0414\u0438\u0441\u043a\u043e\u0433\u0440\u0430\u0444\u0438\u044f \u0428\u0430\u0440\u043b\u044b \u0413\u0435\u043b\u044c\u0444\u0430\u043d\u0434<\/h1>\n <\/p>\n
\u0412 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0438 \u043c\u044b \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0441\u0430\u043c\u0443\u044e \u0441\u043b\u043e\u0436\u043d\u0443\u044e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044e \u2014 \u0434\u0438\u0441\u043a\u043e\u0433\u0440\u0430\u0444\u0438\u044e \u0428\u0430\u0440\u043b\u044b \u0413\u0435\u043b\u044c\u0444\u0430\u043d\u0434. \u041a\u0430\u043a \u0438 \u0432 \u043f\u0440\u0438\u0432\u0435\u0434\u0451\u043d\u043d\u044b\u0445 \u0432\u044b\u0448\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u0430\u0445, \u043c\u044b \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u043c \u0441 \u043a\u043e\u043d\u0432\u0435\u0440\u0442\u0430\u0446\u0438\u0438 \u0441\u043f\u0438\u0441\u043a\u0430 \u0432 \u0434\u0430\u0442\u0430 \u0444\u0440\u0435\u0439\u043c \u0441 \u043e\u0434\u043d\u0438\u043c \u0441\u0442\u043e\u043b\u0431\u0446\u043e\u043c, \u0430 \u0437\u0430\u0442\u0435\u043c \u0440\u0430\u0441\u0448\u0438\u0440\u0438\u043c \u0435\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043a\u0430\u0436\u0434\u044b\u0439 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 \u0431\u044b\u043b \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u043c \u0441\u0442\u043e\u043b\u0431\u0446\u043e\u043c. \u0422\u0430\u043a\u0436\u0435 \u044f \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u044e \u0441\u0442\u043e\u043b\u0431\u0435\u0446 date_added<\/code> \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0444\u043e\u0440\u043c\u0430\u0442 \u0434\u0430\u0442\u044b \u0438 \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u0432 R.<\/p>\n<\/p>\n
discs <- tibble(disc = discog) %>% \n unnest_wider(disc) %>% \n mutate(date_added = as.POSIXct(strptime(date_added, "%Y-%m-%dT%H:%M:%S"))) \ndiscs\n#> # A tibble: 155 x 5\n#> instance_id date_added basic_information id rating\n#> <int> <dttm> <list> <int> <int>\n#> 1 354823933 2019-02-16 17:48:59 <named list [11]> 7496378 0\n#> 2 354092601 2019-02-13 14:13:11 <named list [11]> 4490852 0\n#> 3 354091476 2019-02-13 14:07:23 <named list [11]> 9827276 0\n#> 4 351244906 2019-02-02 11:39:58 <named list [11]> 9769203 0\n#> 5 351244801 2019-02-02 11:39:37 <named list [11]> 7237138 0\n#> 6 351052065 2019-02-01 20:40:53 <named list [11]> 13117042 0\n#> 7 350315345 2019-01-29 15:48:37 <named list [11]> 7113575 0\n#> 8 350315103 2019-01-29 15:47:22 <named list [11]> 10540713 0\n#> 9 350314507 2019-01-29 15:44:08 <named list [11]> 11260950 0\n#> 10 350314047 2019-01-29 15:41:35 <named list [11]> 11726853 0\n#> # \u2026 with 145 more rows<\/code><\/pre>\n<\/p>\n
\u041d\u0430 \u044d\u0442\u043e\u043c \u0443\u0440\u043e\u0432\u043d\u0435 \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0442\u043e\u043c, \u043a\u043e\u0433\u0434\u0430 \u043a\u0430\u0436\u0434\u044b\u0439 \u0434\u0438\u0441\u043a \u0431\u044b\u043b \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d \u0432 \u0434\u0438\u0441\u043a\u043e\u0433\u0440\u0430\u0444\u0438\u044e \u0428\u0430\u0440\u043b\u044b, \u043d\u043e \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u043d\u0435 \u0432\u0438\u0434\u0438\u043c \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u043e\u0431 \u044d\u0442\u0438\u0445 \u0434\u0438\u0441\u043a\u0430\u0445. \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0438\u0442\u044c \u0441\u0442\u043e\u043b\u0431\u0435\u0446 basic_information<\/code>:<\/p>\n<\/p>\n
discs %>% unnest_wider(basic_information)\n#> Column name `id` must not be duplicated.\n#> Use .name_repair to specify repair.<\/code><\/pre>\n<\/p>\n
\u041a \u0441\u043e\u0436\u0430\u043b\u0435\u043d\u0438\u044e \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u043e\u0448\u0438\u0431\u043a\u0443, \u0442.\u043a. \u0432\u043d\u0443\u0442\u0440\u0438 \u0441\u043f\u0438\u0441\u043a\u0430 basic_information<\/code> \u0435\u0441\u0442\u044c \u043e\u0434\u043d\u043e\u0438\u043c\u0451\u043d\u043d\u044b\u0439 \u0441\u0442\u043e\u043b\u0431\u0435\u0446 basic_information<\/code>. \u041f\u0440\u0438 \u0432\u043e\u0437\u043d\u0438\u043a\u043d\u043e\u0432\u0435\u043d\u0438\u0438 \u043f\u043e\u0434\u043e\u0431\u043d\u043e\u0439 \u043e\u0448\u0438\u0431\u043a\u0438, \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0431\u044b \u0431\u044b\u0441\u0442\u0440\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0435\u0451 \u043f\u0440\u0438\u0447\u0438\u043d\u0443 \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c names_repair = "unique"<\/code>:<\/p>\n<\/p>\n
discs %>% unnest_wider(basic_information, names_repair = "unique")\n#> New names:\n#> * id -> id...6\n#> * id -> id...14\n#> # A tibble: 155 x 15\n#> instance_id date_added labels year artists id...6 thumb title\n#> <int> <dttm> <list> <int> <list> <int> <chr> <chr>\n#> 1 354823933 2019-02-16 17:48:59 <list\u2026 2015 <list \u2026 7.50e6 http\u2026 Demo \n#> 2 354092601 2019-02-13 14:13:11 <list\u2026 2013 <list \u2026 4.49e6 http\u2026 Obse\u2026\n#> 3 354091476 2019-02-13 14:07:23 <list\u2026 2017 <list \u2026 9.83e6 http\u2026 I \n#> 4 351244906 2019-02-02 11:39:58 <list\u2026 2017 <list \u2026 9.77e6 http\u2026 O\u00eddo\u2026\n#> 5 351244801 2019-02-02 11:39:37 <list\u2026 2015 <list \u2026 7.24e6 http\u2026 A Ca\u2026\n#> 6 351052065 2019-02-01 20:40:53 <list\u2026 2019 <list \u2026 1.31e7 http\u2026 Tash\u2026\n#> 7 350315345 2019-01-29 15:48:37 <list\u2026 2014 <list \u2026 7.11e6 http\u2026 Demo \n#> 8 350315103 2019-01-29 15:47:22 <list\u2026 2015 <list \u2026 1.05e7 http\u2026 Let \u2026\n#> 9 350314507 2019-01-29 15:44:08 <list\u2026 2017 <list \u2026 1.13e7 "" Sub \u2026\n#> 10 350314047 2019-01-29 15:41:35 <list\u2026 2017 <list \u2026 1.17e7 http\u2026 Demo \n#> # \u2026 with 145 more rows, and 7 more variables: formats <list>,\n#> # cover_image <chr>, resource_url <chr>, master_id <int>,\n#> # master_url <chr>, id...14 <int>, rating <int><\/code><\/pre>\n<\/p>\n
\u041f\u0440\u043e\u0431\u043b\u0435\u043c\u0430 \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e basic_information<\/code> \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u0435\u0442 \u0441\u0442\u043e\u043b\u0431\u0435\u0446 id \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0442\u0430\u043a\u0436\u0435 \u0445\u0440\u0430\u043d\u0438\u0442\u0441\u044f \u043d\u0430 \u0432\u0435\u0440\u0445\u043d\u0435\u043c \u0443\u0440\u043e\u0432\u043d\u0435, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043f\u0440\u043e\u0441\u0442\u043e \u0443\u0434\u0430\u043b\u0438\u0442\u044c \u0435\u0433\u043e:<\/p>\n<\/p>\n
discs %>% \n select(-id) %>% \n unnest_wider(basic_information)\n#> # A tibble: 155 x 14\n#> instance_id date_added labels year artists id thumb title\n#> <int> <dttm> <list> <int> <list> <int> <chr> <chr>\n#> 1 354823933 2019-02-16 17:48:59 <list\u2026 2015 <list \u2026 7.50e6 http\u2026 Demo \n#> 2 354092601 2019-02-13 14:13:11 <list\u2026 2013 <list \u2026 4.49e6 http\u2026 Obse\u2026\n#> 3 354091476 2019-02-13 14:07:23 <list\u2026 2017 <list \u2026 9.83e6 http\u2026 I \n#> 4 351244906 2019-02-02 11:39:58 <list\u2026 2017 <list \u2026 9.77e6 http\u2026 O\u00eddo\u2026\n#> 5 351244801 2019-02-02 11:39:37 <list\u2026 2015 <list \u2026 7.24e6 http\u2026 A Ca\u2026\n#> 6 351052065 2019-02-01 20:40:53 <list\u2026 2019 <list \u2026 1.31e7 http\u2026 Tash\u2026\n#> 7 350315345 2019-01-29 15:48:37 <list\u2026 2014 <list \u2026 7.11e6 http\u2026 Demo \n#> 8 350315103 2019-01-29 15:47:22 <list\u2026 2015 <list \u2026 1.05e7 http\u2026 Let \u2026\n#> 9 350314507 2019-01-29 15:44:08 <list\u2026 2017 <list \u2026 1.13e7 "" Sub \u2026\n#> 10 350314047 2019-01-29 15:41:35 <list\u2026 2017 <list \u2026 1.17e7 http\u2026 Demo \n#> # \u2026 with 145 more rows, and 6 more variables: formats <list>,\n#> # cover_image <chr>, resource_url <chr>, master_id <int>,\n#> # master_url <chr>, rating <int><\/code><\/pre>\n<\/p>\n
\u0412 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0430\u043b\u044c\u0442\u0435\u0440\u043d\u0430\u0442\u0438\u0432\u044b, \u043c\u044b \u043c\u043e\u0433\u043b\u0438 \u0431\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c hoist()<\/code>:<\/p>\n<\/p>\n
discs %>% \n hoist(basic_information,\n title = "title",\n year = "year",\n label = list("labels", 1, "name"),\n artist = list("artists", 1, "name")\n )\n#> # A tibble: 155 x 9\n#> instance_id date_added title year label artist\n#> <int> <dttm> <chr> <int> <chr> <chr> \n#> 1 354823933 2019-02-16 17:48:59 Demo 2015 Tobi\u2026 Mollot\n#> 2 354092601 2019-02-13 14:13:11 Obse\u2026 2013 La V\u2026 Una B\u2026\n#> 3 354091476 2019-02-13 14:07:23 I 2017 La V\u2026 S.H.I\u2026\n#> 4 351244906 2019-02-02 11:39:58 O\u00eddo\u2026 2017 La V\u2026 Rata \u2026\n#> 5 351244801 2019-02-02 11:39:37 A Ca\u2026 2015 Kato\u2026 Ivy (\u2026\n#> 6 351052065 2019-02-01 20:40:53 Tash\u2026 2019 High\u2026 Tashme\n#> 7 350315345 2019-01-29 15:48:37 Demo 2014 Mind\u2026 Desgr\u2026\n#> 8 350315103 2019-01-29 15:47:22 Let \u2026 2015 Not \u2026 Phant\u2026\n#> 9 350314507 2019-01-29 15:44:08 Sub \u2026 2017 Not \u2026 Sub S\u2026\n#> 10 350314047 2019-01-29 15:41:35 Demo 2017 Pres\u2026 Small\u2026\n#> # \u2026 with 145 more rows, and 3 more variables: basic_information <list>,\n#> # id <int>, rating <int><\/code><\/pre>\n<\/p>\n
\u0417\u0434\u0435\u0441\u044c \u044f \u0431\u044b\u0441\u0442\u0440\u043e \u0438\u0437\u0432\u043b\u0435\u043a\u0430\u044e \u0438\u043c\u044f \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u043b\u0435\u0439\u0431\u043b\u0430 \u0438 \u0438\u0441\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044f \u043f\u043e \u0438\u043d\u0434\u0435\u043a\u0441\u0443, \u043f\u043e\u0433\u0440\u0443\u0437\u0438\u0432\u0448\u0438\u0441\u044c \u0432\u043e \u0432\u043b\u043e\u0436\u0435\u043d\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a.<\/p>\n
<\/p>\n
\u0411\u043e\u043b\u0435\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u043f\u043e\u0434\u0445\u043e\u0434 \u0437\u0430\u043a\u043b\u044e\u0447\u0430\u0435\u0442\u0441\u044f \u0432 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0445 \u0442\u0430\u0431\u043b\u0438\u0446 \u0434\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044f \u0438 \u043b\u0435\u0439\u0431\u043b\u0430:<\/p>\n
<\/p>\n
discs %>% \n hoist(basic_information, artist = "artists") %>% \n select(disc_id = id, artist) %>% \n unnest_longer(artist) %>% \n unnest_wider(artist)\n#> # A tibble: 167 x 8\n#> disc_id join name anv tracks role resource_url id\n#> <int> <chr> <chr> <chr> <chr> <chr> <chr> <int>\n#> 1 7496378 "" Mollot "" "" "" https:\/\/api.discog\u2026 4.62e6\n#> 2 4490852 "" Una B\u00e8stia\u2026 "" "" "" https:\/\/api.discog\u2026 3.19e6\n#> 3 9827276 "" S.H.I.T. (\u2026 "" "" "" https:\/\/api.discog\u2026 2.77e6\n#> 4 9769203 "" Rata Negra "" "" "" https:\/\/api.discog\u2026 4.28e6\n#> 5 7237138 "" Ivy (18) "" "" "" https:\/\/api.discog\u2026 3.60e6\n#> 6 13117042 "" Tashme "" "" "" https:\/\/api.discog\u2026 5.21e6\n#> 7 7113575 "" Desgraciad\u2026 "" "" "" https:\/\/api.discog\u2026 4.45e6\n#> 8 10540713 "" Phantom He\u2026 "" "" "" https:\/\/api.discog\u2026 4.27e6\n#> 9 11260950 "" Sub Space \u2026 "" "" "" https:\/\/api.discog\u2026 5.69e6\n#> 10 11726853 "" Small Man \u2026 "" "" "" https:\/\/api.discog\u2026 6.37e6\n#> # \u2026 with 157 more rows\n\ndiscs %>% \n hoist(basic_information, format = "formats") %>% \n select(disc_id = id, format) %>% \n unnest_longer(format) %>% \n unnest_wider(format) %>% \n unnest_longer(descriptions)\n#> # A tibble: 280 x 5\n#> disc_id descriptions text name qty \n#> <int> <chr> <chr> <chr> <chr>\n#> 1 7496378 Numbered Black Cassette 1 \n#> 2 4490852 LP <NA> Vinyl 1 \n#> 3 9827276 "7"" <NA> Vinyl 1 \n#> 4 9827276 45 RPM <NA> Vinyl 1 \n#> 5 9827276 EP <NA> Vinyl 1 \n#> 6 9769203 LP <NA> Vinyl 1 \n#> 7 9769203 Album <NA> Vinyl 1 \n#> 8 7237138 "7"" <NA> Vinyl 1 \n#> 9 7237138 45 RPM <NA> Vinyl 1 \n#> 10 13117042 "7"" <NA> Vinyl 1 \n#> # \u2026 with 270 more rows<\/code><\/pre>\n<\/p>\n
\u0417\u0430\u0442\u0435\u043c \u0432\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u043f\u0440\u0438\u0441\u043e\u0435\u0434\u0438\u043d\u0438\u0442\u044c \u0438\u0445 \u043e\u0431\u0440\u0430\u0442\u043d\u043e \u043a \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u043c\u0443 \u043d\u0430\u0431\u043e\u0440\u0443 \u0434\u0430\u043d\u043d\u044b\u0445 \u043f\u043e \u043c\u0435\u0440\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438.<\/p>\n
<\/p>\n
\u0417\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435<\/h1>\n <\/p>\n
\u0412 \u044f\u0434\u0440\u043e \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 tidyverse<\/code> \u0432\u0445\u043e\u0434\u044f\u0442 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u0445 \u043f\u0430\u043a\u0435\u0442\u043e\u0432 \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u0451\u043d\u043d\u044b\u0435 \u043e\u0431\u0449\u0435\u0439 \u0444\u0438\u043b\u043e\u0441\u043e\u0444\u0438\u0435\u0439 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0434\u0430\u043d\u043d\u044b\u0445. <\/p>\n<\/p>\n
\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u043c\u044b \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u043b\u0438 \u0441\u0435\u043c\u0435\u0439\u0441\u0442\u0432\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0439 unnest_*()<\/code>, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u044b \u043d\u0430 \u0440\u0430\u0431\u043e\u0442\u0443 \u0441 \u0438\u0437\u0432\u043b\u0435\u0447\u0435\u043d\u0438\u0435\u043c \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0438\u0437 \u0432\u043b\u043e\u0436\u0435\u043d\u043d\u044b\u0445 \u0441\u043f\u0438\u0441\u043a\u043e\u0432. \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u0430\u043a\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0434\u0440\u0443\u0433\u0438\u0445 \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0443\u043f\u0440\u043e\u0449\u0430\u044e\u0442 \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441\u043e\u0433\u043b\u0430\u0441\u043d\u043e \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u0438 Tidy Data<\/em>.<\/p>\n\u0418\u0441\u0442\u043e\u0447\u043d\u0438\u043a: habr.com<\/a> <\/p>\n","protected":false,"gt_translate_keys":[{"key":"rendered","format":"html"}]},"excerpt":{"rendered":"\u0412 \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0435 \u0441\u043b\u0443\u0447\u0430\u0435\u0432 \u043f\u0440\u0438 \u0440\u0430\u0431\u043e\u0442\u0435 \u0441 \u043e\u0442\u0432\u0435\u0442\u043e\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u043c \u043e\u0442 API, \u0438\u043b\u0438 \u0441 \u043b\u044e\u0431\u044b\u043c\u0438 \u0434\u0440\u0443\u0433\u0438\u043c\u0438 \u0434\u0430\u043d\u043d\u044b\u043c\u0438 \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u043c\u0435\u044e\u0442 \u0441\u043b\u043e\u0436\u043d\u0443\u044e \u0434\u0440\u0435\u0432\u043e\u0432\u0438\u0434\u043d\u0443\u044e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443, \u0432\u044b \u0441\u0442\u0430\u043b\u043a\u0438\u0432\u0430\u0435\u0442\u0435\u0441\u044c \u0441 \u0444\u043e\u0440\u043c\u0430\u0442\u0430\u043c\u0438 JSON \u0438 XML. \u042d\u0442\u0438 \u0444\u043e\u0440\u043c\u0430\u0442\u044b \u0438\u043c\u0435\u044e\u0442 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u043f\u0440\u0435\u0438\u043c\u0443\u0449\u0435\u0441\u0442\u0432: \u043e\u043d\u0438 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043a\u043e\u043c\u043f\u0430\u043a\u0442\u043d\u043e \u0445\u0440\u0430\u043d\u044f\u0442 \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0442 \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c \u0438\u0437\u043b\u0438\u0448\u043d\u0435\u0433\u043e \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438. \u041c\u0438\u043d\u0443\u0441\u043e\u043c \u0434\u0430\u043d\u043d\u044b\u0445 \u0444\u043e\u0440\u043c\u0430\u0442\u043e\u0432 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0438\u0445 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0438 \u0430\u043d\u0430\u043b\u0438\u0437\u0430. \u041d\u0435\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0435\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e […]<\/p>\n","protected":false,"gt_translate_keys":[{"key":"rendered","format":"html"}]},"author":1,"featured_media":76298,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[688],"tags":[],"class_list":["post-76297","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-administrirovanie"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t
![\"\u0420\u0430\u0437\u0432\u043e\u0440\u0430\u0447\u0438\u0432\u0430\u0435\u043c](\"\/wp-content\/uploads\/2020\/04\/4d41c31ddcad8949f2f996898009476b.jpg\")
\n<\/p>\n