remove unnecessary(?) use of tail()

amices · Jul 25, 2024 · 82522e4 · 82522e4
1 parent e34a1b5
commit 82522e4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_trace.R b/R/plot_trace.R
@@ -49,7 +49,7 @@ plot_trace <- function(data, vrb = "all") {
   # select variable to plot from list of imputed variables
   vrb <- rlang::enexpr(vrb)
   if (is.call(vrb))
-    vrb <- as.character(vrb) |> utils::tail(-1)
+    vrb <- as.character(vrb)[-1]
   if (is.symbol(vrb))
     vrb <- as.character(vrb)