handle 0 articles returned inside RISMed R package

In RISMed R package EUtilsSummary.R apply the following change around line 20:

old code:
```
EMPTYCHECK <- length(grep("<eSearchResult><Count>0<\\/Count>", lines))!=0
```

replacement code:
```
EMPTYCHECK <- length(grep("<Count>0<\\/Count>", lines))!=0
```