From 9b125be05c3fd54e1855662f6755489a5810219c Mon Sep 17 00:00:00 2001
From: Rik de Wijn <rdwijn@pamgene.com>
Date: Wed, 15 Apr 2015 14:23:45 +0000
Subject: [PATCH] First commit

---
 InstallPamCloud.r | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+), 0 deletions(-)
 create mode 100644 InstallPamCloud.r

diff --git a/InstallPamCloud.r b/InstallPamCloud.r
new file mode 100644
index 0000000..72e4687
--- /dev/null
+++ b/InstallPamCloud.r
@@ -0,0 +1,73 @@
+
+
+checkpack <- function(packagename){
+  if (! (packagename %in% installed.packages() ) ){
+    install.packages(packagename, repos = "http://cran.rstudio.com/", dependencies = TRUE)
+  }
+  library(packagename,character.only = TRUE)
+}
+
+PamCloud.getBinaryURL= function(url  = "https://pamcloud.pamgene.com/jackrabbit/repository/default/PamCloud/BioNavigator/Resources/readme.txt", credentials = login.dialog()){
+  checkpack("RCurl")
+  if(!is.null(credentials)){
+    aFile = getBinaryURL(url, userpwd = paste(credentials$user,credentials$pw, sep = ":"), ssl.verifypeer = FALSE)
+  } else{
+    aFile = getBinaryURL(url, ssl.verifypeer = FALSE)
+  }
+  return(aFile)
+}
+
+PamCloud.checkAccess = function(credentials = login.dialog()){
+  aFile = PamCloud.getBinaryURL(credentials = credentials)
+  return(substring(rawToChar(aFile),1,33) == "<PamCloud Bionavigator Resources>")
+}
+
+PamCloud.installPackage = function(packageUrl, tmpDir = "C:\\temp"){
+  nPack = length(packageUrl)
+  print(paste("Installing", nPack, "packages"))
+  credentials = login.dialog()
+  if(!PamCloud.checkAccess(credentials)){
+    stop("PamCloud access denied or not available")
+  }
+  
+
+  for (i in 1:nPack){
+    aFile = PamCloud.getBinaryURL(packageUrl[i], credentials)
+    
+    if (!file.exists("C:\\temp")){
+      tmpDir = getwd();
+    }
+    pckFile = file.path(tmpDir, basename(packageUrl[i]))     
+    writeBin(aFile, pckFile)
+    install.packages(pckFile, repos = NULL)
+  }
+}
+
+login.dialog = function(){
+  checkpack("tcltk")
+  credentials = list(user = "PamCloud User Name", pw = "pass") 
+  onok = function(){tkcget
+                    tkdestroy(tt)
+  }
+  tt = tktoplevel()
+  label.user = tklabel(tt, text = "User Name")
+  userVal = tclVar(init = credentials$user)
+  entry.user =  tkentry(tt, textvariable = userVal)
+  label.pw = tklabel(tt, text = "Password")
+  pwVal = tclVar(init = credentials$pw)
+  entry.pw = tkentry(tt, textvariable = pwVal, show = "*")
+  button.ok = tkbutton(tt, text = "OK", command =onok)
+  tkpack(label.user)
+  tkpack(entry.user)
+  tkpack(label.pw)
+  tkpack(entry.pw)
+  tkpack(button.ok)
+  tkfocus(tt)
+  tkwait.window(tt)
+  credentials$user = tclvalue(userVal)
+  credentials$pw = tclvalue(pwVal)
+  return(credentials)
+}
+
+checkpack("RCurl")
+PamCloud.installPackage(packageUrl = "https://pamcloud.pamgene.com/jackrabbit/repository/default/PamCloud/BioNavigator/Resources/PamCloud_1.0.zip")
\ No newline at end of file
--
libgit2 0.21.4