regex parsing warnings in `ns_data`

[sckott]

res <- ns_data(uid = c('ELEMENT_GLOBAL.2.100925', 'ELEMENT_GLOBAL.2.104470'))
#> Warning message:
#> In if (!grepl("ELEMENT_GLOBAL", x)) { :
#>   the condition has length > 1 and only the first element will be used