我发现了一个脚本,通过在GitHub上慷慨的家伙访问网页速度洞察虽然R.使用R键访问谷歌网页速度洞察
但是他的剧本只拉从测试少数几个变量。我已经查找了所有的文档无法找到更多。有谁知道如何提取更多的pagepeed提供的数据?
library(RJSONIO)
library(gtools)
#' Speed results for 1 URL
#'
#' The speedfinder function returns the Google Page Speed Insights test results for a single URL as a dataframe.
#' speedfinder("https://www.cars.com","mobile",key)
speedfinder <- function(url,strategy,key) {
pid <- RJSONIO::fromJSON(paste0("https://www.googleapis.com/pagespeedonline/v2/runPagespeed?url=",url,"&strategy=",strategy,"&key=",key))
frame1 <- cbind(as.data.frame(pid[2]),as.data.frame(pid[3]),as.data.frame(pid[5]),as.data.frame(pid[6]))
rbind.data.frame(data.frame(), frame1,make.row.names=FALSE)
}
speedfinder2 <- function(url,strategy,key) {
pid <- RJSONIO::fromJSON(paste0("https://www.googleapis.com/pagespeedonline/v2/runPagespeed?url=",url,"&strategy=",strategy,"&key=",key))
frame1 <- cbind(as.data.frame(pid[2]),as.data.frame(pid[3]),as.data.frame(pid[5]),as.data.frame(pid[6]))
}
speedlist <- function(pagelist,strategy,key) {
list1 <- lapply(pagelist,speedfinder2,strategy,key)
suppressWarnings(do.call("smartbind",list1))
}
尽管此链接可能会回答问题,但最好在此处包含答案的重要部分并提供供参考的链接。如果链接页面更改,则仅链接答案可能会失效。 - [来自评论](/ review/low-quality-posts/13883624) – coatless
正确的你!进行了一些改进编辑。 – Joy