ifelse fix

Author: andrjohns

R/model.R

@@ -1149,8 +1149,8 @@ sample <- function(data = NULL,
                    show_messages = TRUE,
                    show_exceptions = TRUE,
                    diagnostics = c("divergences", "treedepth", "ebfmi"),
-                   save_metric = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL),
-                   save_cmdstan_config = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL),
+                   save_metric = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL },
+                   save_cmdstan_config = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL },
                    # deprecated
                    cores = NULL,
                    num_cores = NULL,
@@ -1361,7 +1361,7 @@ sample_mpi <- function(data = NULL,
                        show_messages = TRUE,
                        show_exceptions = TRUE,
                        diagnostics = c("divergences", "treedepth", "ebfmi"),
-                       save_cmdstan_config = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL),
+                       save_cmdstan_config = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL },
                        # deprecated
                        validate_csv = TRUE) {
 
@@ -1507,7 +1507,7 @@ optimize <- function(data = NULL,
                      history_size = NULL,
                      show_messages = TRUE,
                      show_exceptions = TRUE,
-                     save_cmdstan_config = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL)) {
+                     save_cmdstan_config = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL }) {
   procs <- CmdStanProcs$new(
     num_procs = 1,
     show_stderr_messages = show_exceptions,
@@ -1641,7 +1641,7 @@ laplace <- function(data = NULL,
                     draws = NULL,
                     show_messages = TRUE,
                     show_exceptions = TRUE,
-                    save_cmdstan_config = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL)) {
+                    save_cmdstan_config = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL }) {
   if (cmdstan_version() < "2.32") {
     stop("This method is only available in cmdstan >= 2.32", call. = FALSE)
   }
@@ -1797,7 +1797,7 @@ variational <- function(data = NULL,
                         draws = NULL,
                         show_messages = TRUE,
                         show_exceptions = TRUE,
-                        save_cmdstan_config = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL)) {
+                        save_cmdstan_config = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL }) {
   procs <- CmdStanProcs$new(
     num_procs = 1,
     show_stderr_messages = show_exceptions,
@@ -1942,7 +1942,7 @@ pathfinder <- function(data = NULL,
                        calculate_lp = NULL,
                        show_messages = TRUE,
                        show_exceptions = TRUE,
-                       save_cmdstan_config = ifelse(cmdstan_version() > "2.34.0", TRUE, NULL)) {
+                       save_cmdstan_config = if (cmdstan_version() > "2.34.0") { TRUE } else { NULL }) {
   procs <- CmdStanProcs$new(
     num_procs = 1,
     show_stderr_messages = show_exceptions,