From 4f4cd07a9ef72c53bbfa53eda835f19dc9f9ad72 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 25 Jan 2017 18:39:48 +0100
Subject: Initial commit

---
 R/install_PELMO.R | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 R/install_PELMO.R

(limited to 'R')

diff --git a/R/install_PELMO.R b/R/install_PELMO.R
new file mode 100644
index 0000000..02b1064
--- /dev/null
+++ b/R/install_PELMO.R
@@ -0,0 +1,36 @@
+#' Download FOCUS PELMO from the official site and unzip into the package installation directory
+#'
+#' @importFrom clipr write_clip
+#' @param version The FOCUS PELMO version to install
+#' @export
+install_PELMO <- function(version = "5.5.3", local_zip = NULL) {
+  pkg_dir <- system.file(package = "PELMO.installeR")
+  setup_dir <- file.path(pkg_dir, paste0("PELMO_", gsub("\\.", "", version), "_setup"))
+  if (!dir.exists(setup_dir)) dir.create(setup_dir)
+
+  if (is.null(local_zip)) {
+    PELMO_file <- paste0("FOCUS_PELMO_", gsub("\\.", "_", version), ".zip")
+    PELMO_url <- paste0("http://esdac.jrc.ec.europa.eu/public_path/projects_data/focus/gw/software/",
+                        PELMO_file)
+    PELMO_zip <- tempfile(fileext=".zip")
+    download.file(PELMO_url, PELMO_zip)
+  } else {
+    if (file.exists(local_zip)) {
+      PELMO_zip <- local_zip
+    } else {
+      stop(local_zip, " does not exist")
+    }
+  }
+
+  unzip(PELMO_zip, exdir = setup_dir, junkpaths = TRUE)
+  oldwd <- setwd(setup_dir)
+  message("The FOCUS PELMO installer will now start.")
+  message("Please select the following directory in the installation process:")
+  PELMO_dest_dir <- paste0("Z:", gsub("/", "\\\\", pkg_dir),
+                           "\\FOCUSPELMO.", gsub("\\.", "", version))
+  message(PELMO_dest_dir)
+  message("This is now being pasted to the system clipboard")
+  write_clip(PELMO_dest_dir)
+  system("wine setup.exe")
+  setwd(oldwd)
+}
-- 
cgit v1.2.1