にアクセスするにはRを使用して、私は彼のスクリプトは唯一のテストからの変数の一握りを引っ張っているしかし、R.Googleのページスピードの洞察に
かかわらページスピード洞察にアクセスするには、GitHubの上寛大な仲間でスクリプトを見つけました。私は何かを見つけることができないため、文書を一掃しました。 pagespeedが提供するデータをもっと引き出す方法を知っている人はいますか?
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))
}
このリンクは質問に答えるかもしれませんが、答えの本質的な部分をここに含めて参考にしてください。リンクされたページが変更された場合、リンクのみの回答は無効になります。 - [レビューから](/レビュー/低品質の投稿/ 13883624) – coatless
あなたはあります!いくつか改善されて編集されました。 – Joy