Fix logical error in subset statement

cjendres1 · Nov 3, 2023 · 38fa70e · 38fa70e
1 parent ba00194
commit 38fa70e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/nhanes_search.R b/R/nhanes_search.R
@@ -213,7 +213,7 @@ nhanesSearchTableNames <- function(pattern=NULL, ystart=NULL, ystop=NULL, includ
   }
   df <- data.frame(hurl |> html_elements(xpath=xpath) |> html_table())
 
-  df <- subset(df, grep(paste(pattern,collapse="|"), Doc.File))
+  df <- subset(df, Doc.File %in% grep(paste(pattern,collapse="|"), Doc.File, value=TRUE))
   if(nrow(df)==0) {return(NULL)}
   if(!includerdc) {
     df <- subset(df, !(Data.File == 'RDC Only'))