Add startx to rpc_rr_example to allow a virtual X11 for plotting

Author: snoweye

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pbdRPC
 Version: 0.2-0
-Date: 2017-01-01
+Date: 2017-07-15
 Title: Programming with Big Data -- Remote Procedure Call
 Authors@R: c(person("Wei-Chen", "Chen", role = c("aut", "cre"), email =
         "[email protected]"), person("Drew", "Schmidt", role="ctb"))
@@ -18,6 +18,6 @@ URL: http://r-pbd.org/
 BugReports: http://group.r-pbd.org/
 MailingList: Please send questions and comments regarding pbdR to
         [email protected]
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1
 NeedsCompilation: yes
 Maintainer: Wei-Chen Chen <[email protected]>

NAMESPACE

@@ -23,5 +23,6 @@ export(srpc)
 export(ssh)
 export(start_cs)
 export(start_rr)
+export(startx_rr)
 export(tunnel)
 importFrom(tools,pskill)

R/111_control.r

@@ -13,7 +13,7 @@
 #' 
 # #' @param unix,macos,windows
 #'
-#' @param check,kill,start,preload
+#' @param check,kill,start,startx,preload
 #' RPC remoter commands used by \code{\link{check_rr}()},
 #' \code{\link{kill_rr}()}, or \code{\link{start_rr}()}.
 #' RPC pbdCS commands used by \code{\link{check_cs}()},
@@ -106,12 +106,14 @@ RPC.RR <- function(
   check = "ps ax|grep '[r]emoter::server'",
   kill = "kill -9 $(ps ax|grep '[r]emoter::server'|awk '{print $1}')",
   start = "nohup Rscript -e 'remoter::server()' > .rrlog 2>&1 < /dev/null &",
+  startx = "nohup xvfb-run Rscript -e 'remoter::server()' > .rrlog 2>&1 < /dev/null &",
   preload = "source ~/work-my/00_set_devel_R; "
 ){
   list(
     check = check,
     kill = kill,
     start = start,
+    startx = startx,
     preload = preload
   )
 }

R/rpc_rr_example.r

@@ -116,3 +116,19 @@ start_rr <- function(machine, cmd = .pbd_env$RPC.RR$start,
 
   invisible(ret)
 }
+
+
+#' @rdname rpc_rr_example
+#' @export
+startx_rr <- function(machine, cmd = .pbd_env$RPC.RR$startx,
+    preload = .pbd_env$RPC.RR$preload)
+{
+  check.is.machine(machine)
+  
+  cmd.all <- paste0(preload, cmd)
+  ret <- suppressWarnings(
+    rpc(cmd = cmd.all, machine = machine)
+  )
+  
+  invisible(ret)
+}