Dev (#57)

* Hotfix: configs not being detected * Bumped patch number
statistikZH · Jul 31, 2023 · 26fe963 · 26fe963
1 parent ae54fd0
commit 26fe963
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: statR
 Title: statR
-Version: 2.3.1
+Version: 2.3.2
 Authors@R: as.person(c(
     "Andrea Schnell <andrea.schnell@statistik.ji.zh.ch> [aut]",
     "Michelle Donzallaz <michelle.donzallaz@statistik.ji.zh.ch> [aut]",

diff --git a/NEWS.md b/NEWS.md
@@ -1,7 +1,11 @@
+# statR 2.3.2
+
+## Bugfix
+* Fixed a problem where user configurations were not being applied properly
+
 # statR 2.3.1
 
 ## Bugfixes
-
 * Fixed a problem with user configurations on Windows systems
 
 # statR 2.3.0

diff --git a/R/user_config.R b/R/user_config.R
@@ -17,7 +17,8 @@ readUserConfig <- function(name = "default") {
   # config_file <- paste0(config_path, name)
 
   config_path <- system.file("extdata/config", package = "statR")
-  config_file <- paste0(c(config_path, "name"), collapse = "/")
+  config_file <- paste0(c(config_path, name), collapse = "/")
+
 
   if (file.exists(config_file)) {
     config <- yaml::read_yaml(config_file)
@@ -56,7 +57,8 @@ readUserConfig <- function(name = "default") {
 writeUserConfig <- function(name, config_list) {
   # config_path <- system.file("extdata/config/", package = "statR")
   config_path <- system.file("extdata/config", package = "statR")
-  config_file <- paste0(c(config_path, "name"), collapse = "/")
+  config_file <- paste0(c(config_path, name), collapse = "/")
+
 
   config_list[["statR_config_name"]] <- name
   # yaml::write_yaml(config_list, paste0(config_path, name))
@@ -83,7 +85,8 @@ setActiveConfig <- function(name, persistent = FALSE) {
   # config_path <- system.file("extdata/config/", package = "statR")
   # config_file <- paste0(config_path, name)
   config_path <- system.file("extdata/config", package = "statR")
-  config_file <- paste0(c(config_path, "name"), collapse = "/")
+  config_file <- paste0(c(config_path, name), collapse = "/")
+
 
 
   if (getActiveConfigName() != name & file.exists(config_file)) {