fixed bug in olden if output variables have special characters

fawda123 · Jan 4, 2018 · d440925 · d440925
1 parent d4d843d
commit d440925
Show file tree

Hide file tree

Showing 16 changed files with 12 additions and 26 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,4 +27,4 @@ Depends:
 Authors@R: person(given = "Marcus W.", family = "Beck",
     role = c("aut","cre"),
     email = "[email protected]")
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1
diff --git a/R/NeuralNetTools_old.R b/R/NeuralNetTools_old.R
@@ -118,7 +118,7 @@ olden.default <- function(mod_in, x_names, y_names, out_var = NULL, bar_plot = T
 
   # stop if out_var is not a named variable
   if(!out_var %in% y_names) stop(paste('out_var must match one:', paste(y_names, collapse = ', ')))
-  else out_ind <- grep(out_var, y_names)
+  else out_ind <- grep(out_var, y_names, fixed = TRUE)
 
   #change variables names to user sub 
   if(!is.null(x_lab)){

diff --git a/man/bias_lines.Rd b/man/bias_lines.Rd
diff --git a/man/bias_points.Rd b/man/bias_points.Rd
diff --git a/man/garson.Rd b/man/garson.Rd
diff --git a/man/get_ys.Rd b/man/get_ys.Rd
diff --git a/man/layer_lines.Rd b/man/layer_lines.Rd
diff --git a/man/layer_points.Rd b/man/layer_points.Rd
diff --git a/man/lekgrps.Rd b/man/lekgrps.Rd
diff --git a/man/lekprofile.Rd b/man/lekprofile.Rd
diff --git a/man/neuraldat.Rd b/man/neuraldat.Rd
diff --git a/man/neuralskips.Rd b/man/neuralskips.Rd
diff --git a/man/neuralweights.Rd b/man/neuralweights.Rd
diff --git a/man/olden.Rd b/man/olden.Rd
diff --git a/man/plotnet.Rd b/man/plotnet.Rd
diff --git a/man/pred_sens.Rd b/man/pred_sens.Rd