Update lookup.R

Author: jgabry

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])