Added install_github_r_package for installing r packages from remotes

NAMESPACE

@@ -184,6 +184,7 @@ export(image_delete)
 export(image_rename)
 export(image_transfer)
 export(images)
+export(install_github_r_package)
 export(install_r_package)
 export(key)
 export(key_create)

R/debian.R

@@ -23,11 +23,11 @@ NULL
 #' @export
 debian_add_swap <- function(droplet) {
   droplet_ssh(droplet,
-    "fallocate -l 4G /swapfile",
-    "chmod 600 /swapfile",
-    "mkswap /swapfile",
-    "sudo swapon /swapfile",
-    "sudo echo \"/swapfile   none    swap    sw    0   0\" >> /etc/fstab"
+              "fallocate -l 4G /swapfile",
+              "chmod 600 /swapfile",
+              "mkswap /swapfile",
+              "sudo swapon /swapfile",
+              "sudo echo \"/swapfile   none    swap    sw    0   0\" >> /etc/fstab"
   )
 }
 
@@ -86,8 +86,8 @@ debian_install_opencpu <- function(droplet, version = "1.5") {
 #' @export
 debian_apt_get_update <- function(droplet) {
   droplet_ssh(droplet,
-    "sudo apt-get update -qq",
-    "sudo apt-get upgrade -y"
+              "sudo apt-get update -qq",
+              "sudo apt-get upgrade -y"
   )
 }
 
@@ -96,7 +96,7 @@ debian_apt_get_update <- function(droplet) {
 #' @param ... Arguments to apt-get install.
 debian_apt_get_install <- function(droplet, ...) {
   droplet_ssh(droplet,
-    paste0("sudo apt-get install -y --force-yes ", paste(..., collapse = " "))
+              paste0("sudo apt-get install -y --force-yes ", paste(..., collapse = " "))
   )
 }
 
@@ -108,6 +108,48 @@ debian_apt_get_install <- function(droplet, ...) {
 #' @param repo CRAN mirror to use.
 install_r_package <- function(droplet, package, repo = "http://cran.rstudio.com") {
   droplet_ssh(droplet,
-    sprintf("Rscript -e \"install.packages(\'%s\', repos=\'%s/\')\"", package, repo)
+              sprintf("Rscript -e \"install.packages(\'%s\', repos=\'%s/\')\"", package, repo)
   )
 }
+
+#' @rdname debian
+#' @export
+#' @param package Name of R package to install.
+#' @param repo CRAN mirror to use.
+install_github_r_package <- function(droplet, package, repo = "http://cran.rstudio.com") {
+  tf <- tempdir()
+  randName <- paste(sample(c(letters, LETTERS), size = 10,
+                           replace = TRUE), collapse = "")
+  tff <- file.path(tf, randName)
+  on.exit({
+    if (file.exists(tff)) {
+      file.remove(tff)
+    }
+  })
+  command = "Rscript -e \"cat(requireNamespace('remotes', quietly = TRUE))\""
+  droplet_ssh(droplet, paste0(command, " > /tmp/",
+                                         randName), verbose = FALSE)
+  droplet_download(droplet, paste0("/tmp/", randName),
+                              tf, verbose = FALSE)
+  droplet_ssh(droplet, paste0("rm /tmp/", randName),
+                         verbose = FALSE)
+
+  have_remotes <- readLines(tff, warn = FALSE)
+  if (length(have_remotes) == 1) {
+    if (have_remotes %in% c("TRUE", "FALSE")) {
+      have_remotes = as.logical(have_remotes)
+    } else {
+      have_remotes = FALSE
+    }
+  } else {
+    have_remotes = FALSE
+  }
+  if (!have_remotes) {
+    install_r_package(droplet, "remotes", repo = repo)
+  }
+
+ droplet_ssh(
+    droplet,
+    sprintf("Rscript -e \"remotes::install_github('%s')\"",
+            package))
+}

R/droplet-ssh.R

@@ -78,24 +78,25 @@ droplet_ssh <- function(droplet, ..., user = "root", keyfile = NULL, ssh_passwd
 
 #' @export
 #' @rdname droplet_ssh
-droplet_upload <- function(droplet, local, remote, user = "root", keyfile = NULL, 
+droplet_upload <- function(droplet, local, remote, user = "root", keyfile = NULL,
   ssh_passwd = NULL, verbose = FALSE) {
 
   check_for_a_pkg("ssh")
   droplet <- as.droplet(droplet)
-  do_scp(droplet, local, remote, user, 
-    keyfile = keyfile, ssh_passwd = ssh_passwd, 
+  do_scp(droplet, local, remote, user,
+    keyfile = keyfile, ssh_passwd = ssh_passwd,
     verbose = verbose)
 }
 
+
 #' @export
 #' @rdname droplet_ssh
 droplet_download <- function(droplet, remote, local, user = "root",
   keyfile = NULL, ssh_passwd = NULL, verbose = FALSE, overwrite = FALSE) {
 
   check_for_a_pkg("ssh")
   droplet <- as.droplet(droplet)
-  do_scp(droplet, local, remote, user, scp = "download", 
+  do_scp(droplet, local, remote, user, scp = "download",
     keyfile, ssh_passwd, verbose = verbose)
 }