我發現了一個腳本,通過在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