Use workaround for tapply() on older versions or R

R/chrome.R

@@ -125,6 +125,20 @@ chrome_check <- function(verbose, check = TRUE) {
   list(yaml = cyml, platform = chromeplat)
 }
 
+# The same as tapply(x, y, identity), but works on older versions of R.
+tapply_identity <- function(x, y) {
+  args <- c(
+    list(
+      function(x, ...) setNames(list(data.frame(...)), x),
+      y
+    ),
+    x,
+    USE.NAMES = FALSE
+  )
+
+  as.array(do.call(mapply, args))
+}
+
 chrome_ver <- function(platform, version) {
   chromever <- list_versions("chromedriver")[[platform]]
   chromever <- if (identical(version, "latest")) {

R/predl_chrome_for_testing.R

@@ -37,10 +37,7 @@ predl_chrome_for_testing <- function(url, platform, history,
   }
   extracted <- do.call(rbind, lapply(ver_data, unwrap))
   app_links <- tapply(extracted, extracted$platform, identity)
-  print(names(app_links))
-  print(platform)
   app_links <- app_links[platform]
-  print(app_links)
   assign_directory(app_links, appname)
 }