Read properties file in lib_location if it exists

Author: jefshe

R/backend_corenlp.R

@@ -88,11 +88,16 @@ cnlp_init_corenlp <- function(language, anno_level = 2, lib_location = NULL,
     lib_location <- file.path(system.file("extdata", package="cleanNLP"),
                     "/stanford-corenlp-full-2018-10-05")
 
-  # set properties that are not "corenlp" properties
+  # set properties
   volatiles$corenlp$language <- language
   volatiles$corenlp$lib_location <- lib_location
   volatiles$corenlp$mem <- mem
   volatiles$corenlp$verbose <- verbose
+  volatiles$corenlp$properties <- list()
+
+  fin <- file.path(lib_location, "/properties.rds")
+  if (file.exists(fin))
+    volatiles$corenlp$properties <- readRDS(fin)
 
   # German models
   if (language == "de" & anno_level == 0) {
@@ -377,22 +382,13 @@ setup_corenlp_backend_raw <- function(keys, values, clear = FALSE) {
     stop("values must be a character vector")
 
   # read current parameter file
-  if (!clear) {
-    fin <- file.path(system.file("extdata", package="cleanNLP"),
-      "properties.rds")
-    if (file.exists(fin))
-      prop <- readRDS(fin)
-    else
-      prop <- list()
-  } else prop <- list()
+  if (clear) {
+      volatiles$corenlp$properties <- list()
+  }
 
   # insert new keys and values
   for (i in seq_along(keys))
-    prop[[keys[i]]] <- values[i]
-
-  # save new parameter file
-  saveRDS(prop, file.path(system.file("extdata",
-    package="cleanNLP"), "properties.rds"))
+    volatiles$corenlp$properties[[keys[i]]] <- values[i]
 }
 
 init_corenlp_backend <- function() {
@@ -413,12 +409,11 @@ init_corenlp_backend <- function() {
   }
 
   # Parse default parameters
-  fp <- file.path(system.file("extdata",package="cleanNLP"),
-    "properties.rds")
-  if (!file.exists(fp)) {
+  if (length(volatiles$corenlp$properties) == 0) {
     setup_corenlp_backend_raw("en")
   }
-  properties <- readRDS(fp)
+  
+  properties <- volatiles$corenlp$properties
   keys <- names(properties)
   values <- as.character(properties)
   lang <- volatiles$corenlp$language