R/mi_get_padlen.R

In MantaID: A Machine-Learning Based Tool to Automate the Identification of Biological Database IDs

#' Get max length of ID data.
#' @param data A dataframe.
#' @importFrom dplyr pull
#' @return An int object.
#' @export
#' @examples
#' data(mi_data_rawID)
#' mi_get_padlen(mi_data_rawID)
mi_get_padlen <- function(data) {
  data %>%
    pull("ID") %>%
    map(nchar) %>%
    unlist() %>%
    max()
}