R/addSlash.R

In ssaxe-usgs/saxey: Misc Functions

#' Add Forward Slash to Path
#'
#' Adds a forward slash (\code{"/"}) to a string if missing
#' @param x String.
#' @export
#' @return String with forward slash

addSlash <- function(x){
  if ( last( x ) != '/' ) return( paste0( x, '/' ) )
  return(x)
}