R/removeLeadingSlashes.R

In KWB-R/kwb.utils: General Utility Functions Developed at KWB

#' Remove Leading Slashes of Strings
#'
#' @param x vector of character
#' @return modified version of \code{x} with all leading slashes in all elements
#'   of \code{x} removed
#' @export
#' @examples
#' removeLeadingSlashes(c("a", "/b", "//c"))
removeLeadingSlashes <- function(x)
{
  gsub("^/+", "", x)
}