R/db-init.R

In utubun/keggr: KEGG API

# prepare utility db

# create a connection
con <- DBI::dbConnect(RSQLite::SQLite(), './data/kegger.db')

dbs <- readxl::read_xlsx('./data/keggerdb.xlsx', sheet = 1)

# Push table into db

DBI::dbWriteTable(con, 'verbs', dbs, overwrite = TRUE)

org <- kegg(verb = 'list', db = 'organism') |>
    dplyr::select(taxid, kid)

DBI::dbWriteTable(con, 'org', org, overwrite = TRUE)

DBI::dbDisconnect(con)