Update lookup.R

stan-dev · Feb 7, 2024 · 8d84771 · 8d84771
1 parent f5f0cf6
commit 8d84771
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rstan/rstan/R/lookup.R b/rstan/rstan/R/lookup.R
@@ -31,7 +31,7 @@ lookup <- function(FUN, ReturnType = character()) {
   if(FUN == "nrow") FUN <- "NROW"
   if(FUN == "ncol") FUN <- "NCOL"
 
-  keep_cols <- !(colnames(rosetta) == "RFunction")
+  keep_cols <- colnames(rosetta) != "RFunction"
   if(exists(FUN)) {
     matches <- as.logical(charmatch(rosetta$RFunction, FUN, nomatch = 0L))
     if(any(matches)) return(rosetta[matches, keep_cols, drop = FALSE])