J'ai trouvé un script par un généreux camarade sur GitHub pour accéder à la page Speed Insights si R.Utiliser R pour accéder à Google Page Speed Insights
Cependant son scénario tire une poignée de variables du test. J'ai cherché partout pour la documentation ne peut rien trouver de plus. Est-ce que quelqu'un sait comment tirer plus de données fournies par 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))
}
Bien que ce lien puisse répondre à la question, il est préférable d'inclure les parties essentielles de la réponse ici et fournir le lien pour référence. Les réponses à lien uniquement peuvent devenir invalides si la page liée change. - [À revoir] (/ review/low-quality-posts/13883624) – coatless
Exactement! Edité avec quelques améliorations. – Joy