## Not run: ------------------------------------
# out <- federation_search("cellular")
# out$query
# out$messages
# out$result$total
# out$result$categories
# head(out$result$results)
#
# head( federation_search("cellular")$result$results )
# head( federation_search("cellular", strict=TRUE)$result$results )
# federation_search("cellular", snippetCount=3)
#
# federation_search("cellular", verbose = TRUE)
## ---------------------------------------------
Run the code above in your browser using DataLab