if (FALSE) { # interactive()
# Get a few traits:
my_traits <- get_traits(trait_term = 'stroke', exact_term = FALSE,
progress_bar = FALSE)
#
# Subsetting by position
#
my_traits[1]
#
# Subsetting by EFO trait identifier (character)
#
my_traits['EFO_0000712']
}
Run the code above in your browser using DataLab