Commit 0657d562 authored by liiskolb's avatar liiskolb

empty multiquery fix

parent d5f574b0
......@@ -103,8 +103,10 @@ gost <- function(query,
qnames = paste("query", seq(1, length(query)), sep = "_")
names(query) = qnames
}
query = lapply(query, function(x) x[!is.na(x)])
# remove NA/NULL elements from list
query = lapply(query, function(x) x[!is.na(x)])
# remove empty queries from list
query = query[lapply(query, length) > 0]
}
else{
query = query[!is.na(query)]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment