在rvest中获取并设置cookies

在发出后续web请求之前，如何检查会话cookie并指定这些cookie

我想刮一页，但我不能提交cookies

我在使用维斯特图书馆

我的代码：

library(rvest)
WP <- html_session("http://www.wp.pl/")
headers <- httr::headers(WP)
cookies <- unlist(headers[names(headers) == "set-cookie"])
crumbs <- stringr::str_split_fixed(cookies, "; ", 4)
# method 1
stringr::str_split_fixed(crumbs[, 1], "=", 2)
# method 2
cookies(WP)

库（rvest）
可湿性粉剂
请记住，这是建立在图书馆之上的
由于一些我无法解释的原因，这段代码不起作用

这样就行了：

library(httr)
library(rvest)

httr::GET("http://www.wp.pl/", 
    set_cookies(`_SMIDA` = "7cf9ea4bfadb60bbd0950e2f8f4c279d",
                `__utma` = "29983421.138599299.1413649536.1413649536.1413649536.1",
                `__utmb` = "29983421.5.10.1413649536",
                `__utmc` = "29983421",
                `__utmt` = "1",
                `__utmz` = "29983421.1413649536.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)")) %>%
    read_html %>%  # Sample rvest code
    read_table(fill=TRUE) # Sample rvest code