Prepare for new Container

Dockerfile

@@ -1,7 +1,7 @@
 #FROM sneumann/metfamily-base:latest
-FROM sneumann/metfamily-base:4.3.2
+#FROM sneumann/metfamily-base:4.3.2
 #FROM sneumann/metfamily-base:4.0.5
-#FROM sneumann/metfamily-base:3.6.3
+FROM sneumann/metfamily-base:3.6.3
 
 MAINTAINER Steffen Neumann <[email protected]>
 

inst/MetFamily/server.R

@@ -443,16 +443,12 @@ shinyServer(
     ## about page
     output$rInfo <- renderText({
       print(paste("init rInfo"))
-      #paste(R.Version()$version.string, "\nwd: ", getwd(), sep = "")
       paste(
         R.Version()$version.string, 
-        "\nMetFamily build: ", metFamilyBuilt, "-", system(command = "hostname", intern = TRUE),
+        "\nMetFamily build: ", metFamilyAppVersion, "-", system(command = "hostname", intern = TRUE),
         "\nMetFamily package: ", packageVersion,
-        #"\n", getwd(),
-        #"\n", paste(list.files(path = getwd(), all.files = F, full.names = F, recursive = T, include.dirs = F), collapse = "\n"),
         sep = ""
       )
-      #R.Version()$version.string
     })
     output$ipbImage <- renderImage({
       file <- getFile("logo_ipb_en.png")

inst/MetFamily/version.R

@@ -1,13 +1,10 @@
 ## MetFamily properties
+
 toolName       <- "MetFamily"
 toolVersion    <- "1.0"    
-metFamilyBuilt <- "1.3.2"
+metFamilyAppVersion <- "1.3.3"
 
-if ("MetFamily" %in% rownames(installed.packages())) {
-  packageVersion <- package.version("MetFamily")
-} else {
-  packageVersion <- "not packaged"
-}
+packageVersion <- package.version("MetFamily")