From 1815ce6d92d78c9718c88f058b4fb0849f476064 Mon Sep 17 00:00:00 2001 From: simitpatel Date: Sat, 2 Apr 2016 13:27:04 -0500 Subject: [PATCH] Initial commit First publication of the gpagespeed package --- .Rbuildignore | 2 ++ .gitignore | 4 +++ DESCRIPTION | 24 ++++++++++++++++++ NAMESPACE | 5 ++++ R/speed-insights-package.R | 51 ++++++++++++++++++++++++++++++++++++++ gpagespeed.Rproj | 21 ++++++++++++++++ man/speedfinder.Rd | 23 +++++++++++++++++ man/speedfinder2.Rd | 13 ++++++++++ man/speedlist.Rd | 24 ++++++++++++++++++ tests/testthat.R | 20 +++++++++++++++ vignettes/my-vignette.Rmd | 48 +++++++++++++++++++++++++++++++++++ 11 files changed, 235 insertions(+) create mode 100644 .Rbuildignore create mode 100644 .gitignore create mode 100644 DESCRIPTION create mode 100644 NAMESPACE create mode 100644 R/speed-insights-package.R create mode 100644 gpagespeed.Rproj create mode 100644 man/speedfinder.Rd create mode 100644 man/speedfinder2.Rd create mode 100644 man/speedlist.Rd create mode 100644 tests/testthat.R create mode 100644 vignettes/my-vignette.Rmd diff --git a/.Rbuildignore b/.Rbuildignore new file mode 100644 index 0000000..91114bf --- /dev/null +++ b/.Rbuildignore @@ -0,0 +1,2 @@ +^.*\.Rproj$ +^\.Rproj\.user$ diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..09a72cb --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +.Rproj.user +.Rhistory +.RData +inst/doc diff --git a/DESCRIPTION b/DESCRIPTION new file mode 100644 index 0000000..7627aed --- /dev/null +++ b/DESCRIPTION @@ -0,0 +1,24 @@ +Package: gpagespeed +Title: Google Page Speed API +Version: 0.0.0.9000 +Authors@R: person("Simit", "Patel", email = "simitp@gmail.com", role = c("aut", "cre")) +Description: A way to call the Google Page Speed Insights API directly into your + R console. The package offers two functions that return results the API in the + form of a data frame. The first function, speedfinder, is to call the results + on a single URL, while the second function, speedlist, accepts a list of URLs + and returns a single dataframe with results from the API for all the URLs in the + list. +Depends: + R (>= 3.2.3) +Imports: + RJSONIO, + gtools +Suggests: + dplyr, + knitr, + rmarkdown, + testthat +License: GPL-3 +LazyData: true +RoxygenNote: 5.0.1 +VignetteBuilder: knitr diff --git a/NAMESPACE b/NAMESPACE new file mode 100644 index 0000000..e3a49f0 --- /dev/null +++ b/NAMESPACE @@ -0,0 +1,5 @@ +# Generated by roxygen2: do not edit by hand + +export(speedfinder) +export(speedfinder2) +export(speedlist) diff --git a/R/speed-insights-package.R b/R/speed-insights-package.R new file mode 100644 index 0000000..107b343 --- /dev/null +++ b/R/speed-insights-package.R @@ -0,0 +1,51 @@ +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. +#' +#' @param url A URL on which to run the Google Page Speed Insights test. +#' @param strategy Whether the URL should be evaluated in a mobile or desktop context. Accordingly, acceptable values +#' are either the string "mobile" or the string "desktop". +#' @param key A unique key obtainable from Google by registering for free as a Google developer. +#' @examples +#' speedfinder("https://www.cars.com","mobile",key) + +#' @export +speedfinder <- function(url,strategy,key) { + pid <- 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) +} + +#' Function within speedlist +#' +#' Speedfinder2 is a function utilized by speedlist to allow a list of URLs to be submitted to the Google Page Speed +#' Insights API. + +#' @export +speedfinder2 <- function(url,strategy,key) { + pid <- 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])) +} + +#' Speed results for a list of URLs +#' +#' The speedlist function submits a list of URLs to the Google Page Speed Insights API, and returns a dataframe in which +#' each row contains the results from the API for a unique URL in the list. +#' +#' @param url A list of URLs on which to run the Google Page Speed Insights test. +#' @param strategy Whether the list of URLs should be evaluated in a mobile or desktop context. Accordingly, acceptable values +#' are either the string "mobile" or the string "desktop". +#' @param key A unique key obtainable from Google by registering for free as a Google developer. +#' @examples +#' speedlist(listofURLs,"mobile",key) + +#' @export +speedlist <- function(pagelist,strategy,key) { + list1 <- lapply(pagelist,speedfinder2,strategy,key) + suppressWarnings(do.call("smartbind",list1)) + } + + diff --git a/gpagespeed.Rproj b/gpagespeed.Rproj new file mode 100644 index 0000000..cba1b6b --- /dev/null +++ b/gpagespeed.Rproj @@ -0,0 +1,21 @@ +Version: 1.0 + +RestoreWorkspace: No +SaveWorkspace: No +AlwaysSaveHistory: Default + +EnableCodeIndexing: Yes +UseSpacesForTab: Yes +NumSpacesForTab: 2 +Encoding: UTF-8 + +RnwWeave: Sweave +LaTeX: pdfLaTeX + +AutoAppendNewline: Yes +StripTrailingWhitespace: Yes + +BuildType: Package +PackageUseDevtools: Yes +PackageInstallArgs: --no-multiarch --with-keep.source +PackageRoxygenize: rd,collate,namespace diff --git a/man/speedfinder.Rd b/man/speedfinder.Rd new file mode 100644 index 0000000..3b6a15a --- /dev/null +++ b/man/speedfinder.Rd @@ -0,0 +1,23 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/speed-insights-package.R +\name{speedfinder} +\alias{speedfinder} +\title{Speed results for 1 URL} +\usage{ +speedfinder(url, strategy, key) +} +\arguments{ +\item{url}{A URL on which to run the Google Page Speed Insights test.} + +\item{strategy}{Whether the URL should be evaluated in a mobile or desktop context. Accordingly, acceptable values +are either the string "mobile" or the string "desktop".} + +\item{key}{A unique key obtainable from Google by registering for free as a Google developer.} +} +\description{ +The speedfinder function returns the Google Page Speed Insights test results for a single URL as a dataframe. +} +\examples{ +speedfinder("https://www.cars.com","mobile",key) +} + diff --git a/man/speedfinder2.Rd b/man/speedfinder2.Rd new file mode 100644 index 0000000..3b28d61 --- /dev/null +++ b/man/speedfinder2.Rd @@ -0,0 +1,13 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/speed-insights-package.R +\name{speedfinder2} +\alias{speedfinder2} +\title{Function within speedlist} +\usage{ +speedfinder2(url, strategy, key) +} +\description{ +Speedfinder2 is a function utilized by speedlist to allow a list of URLs to be submitted to the Google Page Speed +Insights API. +} + diff --git a/man/speedlist.Rd b/man/speedlist.Rd new file mode 100644 index 0000000..7120c59 --- /dev/null +++ b/man/speedlist.Rd @@ -0,0 +1,24 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/speed-insights-package.R +\name{speedlist} +\alias{speedlist} +\title{Speed results for a list of URLs} +\usage{ +speedlist(pagelist, strategy, key) +} +\arguments{ +\item{strategy}{Whether the list of URLs should be evaluated in a mobile or desktop context. Accordingly, acceptable values +are either the string "mobile" or the string "desktop".} + +\item{key}{A unique key obtainable from Google by registering for free as a Google developer.} + +\item{url}{A list of URLs on which to run the Google Page Speed Insights test.} +} +\description{ +The speedlist function submits a list of URLs to the Google Page Speed Insights API, and returns a dataframe in which +each row contains the results from the API for a unique URL in the list. +} +\examples{ +speedlist(listofURLs,"mobile",key) +} + diff --git a/tests/testthat.R b/tests/testthat.R new file mode 100644 index 0000000..8f89111 --- /dev/null +++ b/tests/testthat.R @@ -0,0 +1,20 @@ +library(testthat) +library(gpagespeed) + +context("gpagespeed functions") + +test_check("gpagespeed") + +test_that("speedfinder function", { + expect_equal(class(speedfinder("https://www.cars.com","mobile","AIzaSyCj7QgHqxx81JtITkkZaLTfPM2GEvx8U1Q")), + class(data.frame())) + expect_equal(nrow(speedfinder("https://www.cars.com","mobile","AIzaSyCj7QgHqxx81JtITkkZaLTfPM2GEvx8U1Q")), 1) + }) + +test_that("speedlist function", { + expect_equal(class(speedlist(c("https://www.cars.com","https://www.yahoo.com","https://www.techmeme.com"), + "mobile","AIzaSyCj7QgHqxx81JtITkkZaLTfPM2GEvx8U1Q")), + class(data.frame())) + expect_equal(nrow(speedlist(c("https://www.cars.com","https://www.yahoo.com","https://www.techmeme.com"), + "mobile","AIzaSyCj7QgHqxx81JtITkkZaLTfPM2GEvx8U1Q")), 3) +}) diff --git a/vignettes/my-vignette.Rmd b/vignettes/my-vignette.Rmd new file mode 100644 index 0000000..5bf91e2 --- /dev/null +++ b/vignettes/my-vignette.Rmd @@ -0,0 +1,48 @@ +--- +title: "Introduction to gpagespeed" +author: "Simit Patel" +date: "`r Sys.Date()`" +output: rmarkdown::html_vignette +vignette: > + %\VignetteIndexEntry{Introduction to gpagespeed} + %\VignetteEngine{knitr::rmarkdown} + %\VignetteEncoding{UTF-8} +--- + +## gpagespeed Introduction + +gpagespeed is a package designed to facilitate utilization of the Google PageSpeed Insights API. The PageSpeed Insights API provides insight into how Google's bots evaluate a given page, and the factors that web developers may wish to consider in building pages that will render faster. See Google's [documentation on the PageSpeed Insights API](https://developers.google.com/speed/docs/insights/about) to learn more about what the API offers as well as practical examples of its usage. + +The PageSpeed Insights API returns a numeric summary of the results of each page, as well as recommendations in text format. Currently, this package is designed to support only retrieving the numeric summary, which includes the overall speed score as well as metrics pertaining to the number of file requests and sizes in kilobytes of images, HTML, CSS, and JavaScript. The package offers two functions: __speedfinder__ and __speedlist__. These functions are documented below. + +## Functions in gpagespeed + +1.__speedfinder.__ The speedfinder function returns a dataframe with a single observation and columsn of numeric data as its response. It accepts three arguments: + + *_url_: The url argument refers to the url of the document on which the PageSpeed Insights API should be run and the corresponding summary metrics returned. + *_strategy_: This argument should have one of two potential text string inputs: "desktop" or "mobile" to denote the device context that the PageSpeed Insights API should use in its evaluation. + *_key_: This is the key that is required to use the API. [Visit Google's Developer Console](https://developers.google.com/console/help/using-keys) to obtain your free key. + + +1.__speedlist.__ The speedlist function is like the speedfinder function, but allows processing of many URLs and returns a dataframe in which each observation corresponds to a unique URL. Like speedfinder, it accepts three arguments: + + *_pagelist_: A list object in which each item in the list is a URL listed as a character string. + *_strategy_: This argument should have one of two potential text string inputs: "desktop" or "mobile" to denote the device context that the PageSpeed Insights API should use in its evaluation. + *_key_: This is the key that is required to use the API. [Visit Google's Developer Console](https://developers.google.com/console/help/using-keys) to obtain your free key. + +## Example Usage + +Below are examples of how the __speedfinder__ and __speedlist__ functions could be called in an R script. + +```{r, results='hide'} +#get speed metrics for a single URL and assign it to a variable + +df1 <- speedfinder("https://www.cars.com","mobile","atextkeyigotfromgoogle111") + +#get speed metrics for a list of URLs and have it all returned in a single dataframe + +df2 <- speedlist(c("https://www.cars.com","http://www.yahoo.com","http://www.techmeme.com"), + "mobile","atextkeyigotfromgoogle111") + +``` +