Copy active IB database to local data-folder

appsettings.json

@@ -2,7 +2,7 @@
 	"InterBase": {
 		"driver": "InterBase ODBC driver",
 		"server": "localhost",
-		"database": "D:/KoeEnEiwit/KoeEnEiwit.IB",
+		"database": "D:/KoeEnEiwit/R-InterBase/Data/KoeEnEiwit.IB",
 		"username": "SYSDBA",
 		"password": "masterkey"
 	},

testKoeEnEiwit.R

@@ -3,11 +3,21 @@ cat("\nStart uitvoeren script 'testKoeEnEiwit.R' \n")
 # Leegmaken van environment
 rm(list=ls())
 
+# Define where active database is located
+vDriveLetter <- "S:" # drive letter used for the location of the IB database
+vPathIB      <- paste0(vDriveLetter, "/InetPub/databases/Webapplicaties/KoeEnEiwit")
+vFileName    <- "KOEENEIWIT.IB"
+rm(vDriveLetter)
+
 rdirectory <- dirname(rstudioapi::getActiveDocumentContext()$path)
 setwd(rdirectory)
 #setwd(commandArgs(trailingOnly = TRUE)[1])
 getwd()
 
+# Create local copy of IB database
+file.copy(file.path(vPathIB, vFileName), "./Data", overwrite = T)
+rm(vPathIB, vFileName)
+
 # Verkrijgen van relevante libraries en functies
 source('./Shared/helperFunctionsInterBase.R')