From f5c0bc5b5016468a3bf82bb052bb0df0a745cded Mon Sep 17 00:00:00 2001 From: IronistM Date: Fri, 10 Nov 2017 09:57:29 +0200 Subject: [PATCH] Don't store data as factor, store numerical data as numeric --- R/speed-insights-package.R | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/R/speed-insights-package.R b/R/speed-insights-package.R index b3ee7bc..0f5bc80 100644 --- a/R/speed-insights-package.R +++ b/R/speed-insights-package.R @@ -15,8 +15,11 @@ #' @export speedfinder <- function(url,strategy,key,filter_third_party_resources=FALSE) { pid <- RJSONIO::fromJSON(paste0("https://www.googleapis.com/pagespeedonline/v2/runPagespeed?url=",url,"&strategy=",strategy,"&key=",key,"&filter_third_party_resources=",filter_third_party_resources)) - frame1 <- cbind(as.data.frame(pid[2]),as.data.frame(pid[3]),as.data.frame(pid[5]),as.data.frame(pid[6])) + tmp <- as.data.frame(pid[6], stringsAsFactors=FALSE) + tmp <- as.data.frame(lapply(tmp, as.numeric), stringsAsFactors=FALSE) + frame1 <- cbind(as.data.frame(pid[2], stringsAsFactors=FALSE),as.data.frame(pid[3], stringsAsFactors=FALSE),as.data.frame(pid[5], stringsAsFactors=FALSE), tmp) rbind.data.frame(data.frame(), frame1,make.row.names=FALSE) + } #' Function within speedlist @@ -32,7 +35,9 @@ speedfinder <- function(url,strategy,key,filter_third_party_resources=FALSE) { #' @export speedfinder2 <- function(url,strategy,key,filter_third_party_resources=FALSE) { pid <- RJSONIO::fromJSON(paste0("https://www.googleapis.com/pagespeedonline/v2/runPagespeed?url=",url,"&strategy=",strategy,"&key=",key,"&filter_third_party_resources=",filter_third_party_resources)) - frame1 <- cbind(as.data.frame(pid[2]),as.data.frame(pid[3]),as.data.frame(pid[5]),as.data.frame(pid[6])) + tmp <- as.data.frame(pid[6], stringsAsFactors=FALSE) + tmp <- as.data.frame(lapply(tmp, as.numeric), stringsAsFactors=FALSE) + frame1 <- cbind(as.data.frame(pid[2], stringsAsFactors=FALSE),as.data.frame(pid[3], stringsAsFactors=FALSE),as.data.frame(pid[5], stringsAsFactors=FALSE), tmp) } #' Speed results for a list of URLs