R/function0-formatdir_f.R

In junyitt/tfunction: tfunction for Trading Purposes

#' formatdir_f function
#'
#' This function formats adds backslash to directory string without backslash
#' @param dir directory
#' @keywords format directory backslash
#' @export
#' @examples
#' formatdir_f(dir = "C:/Users/User/tempmplus")
#'

formatdir_f <- function(dir){
      
      dir <- as.character(dir)
      n <- nchar(dir)
      
      if( substr(dir, n, n) == "/" ){
            return(dir)
            
      }else{
            return(paste0(dir, "/"))
      }
      
}