R/ba_db.R

In CIP-RIU/brapi: Client to Access Breeding Databases Using BrAPI

#' ba_db
#'
#' A white list of known brapi databases.
#'
#' @return list
#' @author Reinhard Simon
#' @example inst/examples/ex-ba_db.R
#' @family brapiutils
#' @export
ba_db <- function() {
  apiary <- as.ba_db(secure = TRUE,
                          protocol = "https://",
                          db = "private-anon-3d3307a632-brapi.apiary-mock.com",
                          port = 80,
                          multicrop = FALSE,
                          crop = "wheat",
                          bms = FALSE)
  bms_test <- as.ba_db(secure = FALSE,
                       protocol = "http://",
                       db = "34.226.132.187",
                       port = 48080,
                       apipath = "bmsapi",
                       multicrop = TRUE,
                       crop = "",
                       user = "",
                       password = "",
                       bms = TRUE)
  cassavabase <- as.ba_db(secure = TRUE,
                          protocol = "https://",
                          db = "cassavabase.org",
                          port = 80,
                          multicrop = FALSE,
                          crop = "Cassava",
                          bms = FALSE)
  cropontology  <- as.ba_db(secure = FALSE,
                            protocol = "http://",
                            db = "cropontology.org",
                            port = 80,
                            multicrop = FALSE,
                            crop = "",
                            bms = FALSE)
  eu_sol <- as.ba_db(secure = TRUE,
                     protocol = "https://",
                     db = "www.eu-sol.wur.nl",
                     apipath = "webapi",
                     multicrop = TRUE,
                     crop = "tomato",
                     bms = FALSE)
  genesys <- as.ba_db(secure = TRUE,
                     protocol = "https://",
                     db = "www.genesys-pgr.org",
                     apipath = "",
                     multicrop = FALSE,
                     crop = "pigeonpea",
                     bms = FALSE)
  germinate <- as.ba_db(secure = TRUE,
                        protocol = "https://",
                        db = "ics.hutton.ac.uk",
                        port = 80,
                        apipath = "germinate-demo/cactuar-devel",
                        multicrop = FALSE,
                        crop = "Cactuar",
                        bms = FALSE)
  icrisat_prod <- as.ba_db(secure = FALSE,
                       protocol = "http://",
                       db = "bms.icrisat.org",
                       port = 48080,
                       apipath = "bmsapi",
                       multicrop = TRUE,
                       crop = "chickpea",
                       user = "",
                       password = "",
                       granttype = "password",
                       clientid = "rbrapi",
                       bms = TRUE)
  mgis <- as.ba_db(secure = TRUE,
                   protocol = "https://",
                   db = "www.crop-diversity.org",
                   port = 80,
                   apipath = "mgis",
                   multicrop = FALSE,
                   crop = "musa",
                   user = "",
                   password = "",
                   bms = FALSE)
  musabase <- as.ba_db(secure = TRUE,
                       protocol = "https://",
                       db = "musabase.org",
                       port = 80,
                       multicrop = FALSE,
                       crop = "musa",
                       bms = FALSE)
  ricebase <- as.ba_db(secure = TRUE,
                       protocol = "https://",
                       db = "ricebase.org",
                       port = 80,
                       multicrop = FALSE,
                       crop = "rice",
                       bms = FALSE)
  snpseek <- as.ba_db(secure = FALSE,
                      protocol = "http://",
                      db = "snp-seek.irri.org",
                      port = 80,
                      apipath = "ws",
                      user = "snpseek-user",
                      password = "snpseek-user-pass",
                      multicrop = FALSE,
                      crop = "rice",
                      token = "",
                      bms = FALSE)
  sweetpotatobase <- as.ba_db(secure = TRUE,
                              protocol = "https://",
                              db = "sweetpotatobase.org",
                              port = 80,
                              multicrop = FALSE,
                              crop = "SweetPotato",
                              bms = FALSE)
  terraref <- as.ba_db(secure = TRUE,
                       protocol = "https://",
                       db = "brapi.workbench.terraref.org",
                       port = 80,
                       multicrop = TRUE,
                       crop = c("wheat", "sorghum"),
                       bms = FALSE)
  testserver <- as.ba_db(secure = TRUE,
                         protocol = "https://",
                         db = "test-server.brapi.org",
                         port = 80,
                         multicrop = FALSE,
                         crop = "crop1",
                         bms = FALSE)
  t3s <- as.ba_db(secure = TRUE,
                  protocol = "https://",
                  db = "triticeaetoolbox.org",
                  port = 443,
                  apipath = "wheat",
                  multicrop = TRUE,
                  crop = "wheat",
                  user = "",
                  password = "",
                  bms = FALSE,
                  version = "v1.2")
  tto <- as.ba_db(secure = TRUE,
                  protocol = "https://",
                  db = "triticeaetoolbox.org",
                  port = 80,
                  apipath = "",
                  multicrop = TRUE,
                  crop = "oat",
                  user = "",
                  password = "",
                  bms = FALSE)
  ttw <- as.ba_db(secure = TRUE,
                  protocol = "https://",
                  db = "triticeaetoolbox.org",
                  port = 80,
                  apipath = "",
                  multicrop = TRUE,
                  crop = "wheat",
                  user = "",
                  password = "",
                  bms = FALSE)
  yambase <- as.ba_db(secure = TRUE,
                      protocol = "https://",
                      db = "yambase.org",
                      port = 80,
                      multicrop = FALSE,
                      crop = "yam",
                      bms = FALSE)
  out <- list(apiary = apiary,
              bms_test = bms_test,
              cassavabase = cassavabase,
              cropontology = cropontology,
              eu_sol = eu_sol,
              genesys = genesys,
              germinate_test = germinate,
              icrisat_prod = icrisat_prod,
              mgis = mgis,
              musabase = musabase,
              ricebase = ricebase,
              snpseek = snpseek,
              sweetpotatobase = sweetpotatobase,
              terraref = terraref,
              testserver = testserver,
              t3s = t3s,
              tto = tto,
              ttw = ttw,
              yambase = yambase)
  class(out) <- "ba_db_list"
  return(out)
}