httr GET Response http 0861 ru Date 2019

Пакет httr (функция GET) Response [http: //0861. ru/] Date: 2019 -10 -30 01: 38

Пакет httr (функция headers) $server [1] "nginx-reuseport/1. 13. 4" $date [1] "Wed, 30 Oct

Работа с API портала открытых данных РФ dataset_id <- "7708234640 -HDFU-1152110030001 -2013 -1 -24

Slides: 14

Download presentation

Пакет httr (функция GET) Response [http: //0861. ru/] Date: 2019 -10 -30 01: 38 Status: 200 Content-Type: text/html library(httr) Size: 2. 68 k. B res <- GET("http: //0861. ru/") <!DOCTYPE html> res <html> <head> Функция GET используется для создания запросов <meta http-equiv="Content-Type" content="text/html; chars. . . <title>List of Courses</title> </head> <body> --------------------- <b> Текущие материалы (2019 год) </b>. . . 8

Пакет httr (функция headers) $server [1] "nginx-reuseport/1. 13. 4" $date [1] "Wed, 30 Oct 2019 01: 38: 34 GMT" library(httr) $`content-type` res <- GET("http: //0861. ru/") [1] "text/html" headers(res) $`transfer-encoding` [1] "chunked" Функция headers используется для вывода подробной информации о заголовках $connection [1] "keep-alive" $`keep-alive` [1] "timeout=30" $vary [1] "Accept-Encoding" $`last-modified` [1] "Fri, 20 Sep 2019 11: 40: 52 GMT" 9

Работа с API портала открытых данных РФ dataset_id <- "7708234640 -HDFU-1152110030001 -2013 -1 -24 -44 -1" params <- c("dataset", dataset_id) dataset <- get. Data(params) dataset$title dataset$modified params <- c(params, "version") versions <- get. Data(params) mrv <- versions[nrow(versions), 1] params <- c(params, mrv) content <- c(params, "content") doc <- get. Data(content) head(doc) 13