simplify query string sent to RISmed - returns additional matching articles from pubmed

[leeevans]

in pubmed.R

original code: (queryFilter is actually set higher up in the source code but it's shown here for comparision)

queryFilter <- "hasabstract[text] AND English[lang] AND humans[MeSH Terms]"
query <- paste(shQuote(URLencode(meshTags$MESH_SOURCE_NAME[i],reserved = TRUE)),
                     queryFilter,sep=" AND ")

example code showing removal of shQuote, URLencode and addition of parentheses:

queryFilter <- " AND hasabstract[text] AND English[lang] AND humans[MeSH Terms]"
query <- paste0("(",meshTags$MESH_SOURCE_NAME[i], ")", queryFilter)