if (FALSE) { # interactive()
# Get all publications in the PGS Catalog:
all_pub <- get_publications(interactive = FALSE, progress_bar = FALSE)
#
# Subsetting by position
#
all_pub[1:5]
#
# Subsetting by publication identifier (character)
#
all_pub['PGP000001']
}
Run the code above in your browser using DataLab