From b36de4a4b3b84db8dc3c814899a64b65f11a2a36 Mon Sep 17 00:00:00 2001
From: Yann Richet <148054082+richetyann@users.noreply.github.com>
Date: Tue, 31 Oct 2023 15:53:59 +0100
Subject: [PATCH] fix file:// path

---
 R/install.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/install.R b/R/install.R
index c544160..e21c416 100644
--- a/R/install.R
+++ b/R/install.R
@@ -157,7 +157,7 @@ setup.Model <- function(model, edit.script=FALSE) {
         attr(node,"command") <- normalizePath(script)
         cplugin = file.path(FUNZ_HOME,"plugins","calc",paste0(model,".cplugin.jar"))
         if (file.exists(cplugin))
-          attr(node,"cplugin") <- paste0("file:/",normalizePath(cplugin))
+          attr(node,"cplugin") <- paste0("file://",normalizePath(cplugin))
       }
     if (isTRUE(node == "[ comment ]")) {
       node <- NA
@@ -171,7 +171,7 @@ setup.Model <- function(model, edit.script=FALSE) {
     attr(node,"command") <- normalizePath(script)
     cplugin = file.path(FUNZ_HOME,"plugins","calc",paste0(model,".cplugin.jar"))
     if (file.exists(cplugin))
-      attr(node,"cplugin") <- paste0("file:/",normalizePath(cplugin))
+      attr(node,"cplugin") <- paste0("file://",normalizePath(cplugin))
   }
   calculator.xml$CALCULATOR[[i+1]] <- node
   names(calculator.xml$CALCULATOR)[[i+1]] <- "CODE"