Merge pull request #1 from IronistM/dev-smartbind-001

Calling smartbind is problematic
simitpatel · Nov 8, 2017 · ea414d7 · ea414d7
2 parents 49d203b + 4b2dff3
commit ea414d7
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/speed-insights-package.R b/R/speed-insights-package.R
@@ -1,6 +1,3 @@
-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.
@@ -45,7 +42,7 @@ speedfinder2 <- function(url,strategy,key) {
 #' @export
 speedlist <- function(pagelist,strategy,key) {
   list1 <- lapply(pagelist,speedfinder2,strategy,key)
-  suppressWarnings(do.call("smartbind",list1))
+  suppressWarnings(do.call(gtools::smartbind,list1))
   }