R/mi_split_str.R

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

#' Split the string into individual characters and complete the character vector to the maximum length.
#' @param str The string to be splited.
#' @param pad_len The length of longest ID, i.e. the maxlength.
#' @export
#' @return Splited character vector.
#' @examples
#' string_test <- "Good Job"
#' length <- 15
#' mi_split_str(string_test, length)
mi_split_str <- function(str, pad_len) {
	#Cut a single ID character and convert it to a vector.
	str %>%
	as.character() %>%
	strsplit(split = "") %>%
	unlist() %>%
	#Determine the length of ID characters, select the maximum character length, and use "*" to fill in the missing positions of all ID characters.
	c(., rep("*", ifelse((pad_len - length(.)) > 0, pad_len - length(.), 0))) %>%
	.[1:pad_len] %>%
	set_names(str_c("pos", 1:pad_len))
}