R/parse_GBQualifier.R

In Hide-Fun/metabarcode: matabar; tools for metabarcoding

#' Parse GBQualifier
#'
#' This function use internally parse_xml.
#' @param .GBQualifier GBQualifier
#' @export
#' @examples
#' GBFeature_quals <- list(GBQualifier = list(
#'                    "GBQualifier_name" = "organism",
#'                    "GBQualifier_value" = "Ceratobasidiaceae sp."))
#'
#' parse_GBQualifier(.GBQualifier = GBFeature_quals)
parse_GBQualifier = function(.GBQualifier = list()) {
  .GBQualifier <- purrr::flatten(.GBQualifier)
  rlt <- tibble::tibble(
    name = .GBQualifier[[1]],
    value = .GBQualifier[[2]]
  )
  return(rlt)
}