R/String_to_Range.R

In CL-CHEN-Lab/User_interface_for_Kronos_scRT: R-package and Shiny App interface for the analysis of single cell replication timing data

#' converts a string representing a range of values into an array of integers
#'
#' @return an array of integers ranging from the first to the last number in the string
#'
#' @importFrom  stringr str_detect str_split
#'
#' @param x, a string
#' @param div, symbol used to indicate a range
#'
#'@export
#'
String_to_Range = Vectorize(function(x, div = ':') {
  if (stringr::str_detect(x, div)) {
    x = stringr::str_split(x, div)[[1]]
    return(as.numeric(x[1]):as.numeric(x[2]))
  } else{
    return(x)
  }
}, vectorize.args = 'x')