R/as.ba_db.R

In c5sire/brapi: Client to Access Breeding Databases Using BrAPI

#' as.ba_db
#'
#' @param secure logical; default: false
#' @param protocol character
#' @param db character
#' @param port integer; default: 80
#' @param apipath character; default: ''
#' @param multicrop logical; default: false
#' @param crop character
#' @param user character; default: ''
#' @param password character; default: ''
#' @param token character; default: ''
#' @param granttype character; default: 'password'
#' @param clientid character; default: 'rbrapi'
#' @param bms logical; default: false
#' @param version character; default: 'v1'
#'
#' @return ba_db class
#' @author Reinhard Simon, Maikel Verouden
#' @example inst/examples/ex-as_ba_db.R
#' @family brapiutils
#' @export
as.ba_db <- function(secure = FALSE,
                     protocol = "http://",
                     db = "127.0.0.1",
                     port = 80,
                     apipath = NULL,
                     multicrop = FALSE,
                     crop = "",
                     user = "",
                     password = "",
                     token = "",
                     granttype = "password",
                     clientid = "rbrapi",
                     bms = FALSE,
                     version = 'v1')  {
  check_ba(secure = secure,
           protocol = protocol,
           db = db,
           port = port,
           apipath = apipath,
           multicrop = multicrop,
           crop = crop,
           user = user,
           password = password,
           token = token,
           granttype = granttype,
           clientid = clientid,
           bms = bms,
           version = version)
  out <- list(secure = secure,
              protocol = protocol,
              db = db,
              port = port,
              apipath = apipath,
              multicrop = multicrop,
              crop = crop,
              user = user,
              password = password,
              token = token,
              granttype = granttype,
              clientid = clientid,
              bms = bms,
              version = version,
              crops = "",
              calls = "")
  class(out) <- c(class(out), "ba_db", "ba", "ba_con")
  return(out)
}