# How long does it take to get the definition of a single ID from viral sequences?
# setup
devtools::load_all('~/Coding/restez')
restez_path_set('~/Desktop/viral')
db_delete(everything = TRUE)
restez_path_set('~/Desktop/viral')
db_download(preselection = '13')
restez_connect()
db_create()
restez_disconnect()
# get def
devtools::load_all('~/Coding/restez')
restez_path_set('~/Desktop/viral')
restez_connect()
id <- sample(list_db_ids(), 1)
system.time(gb_definition_get(id))
# user system elapsed
# 0.048 0.000 0.024
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.