R/return_NA_pluck.R

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

#' return_NA_pluck
#'
#' return_NA_pluck
#' @param .x list
#' @param ... element of list
#' @param .default return NA
#' @export
return_NA_pluck = function(.x, ..., .default = NA) {
  rlt <- purrr::pluck(.x = .x, ..., .default = .default)
  return(rlt)
}