#' A letter counting function
#'
#' This function counts letters
#' @param which string would you like to count the letters of
#' @keywords string count
#' @export
#' @examples
#' file.name()
file.name = function(path, original_file_name = "", extension = NA, new_text = ""){
library(tools)
little_filename = file_path_sans_ext( basename(original_file_name) )
if(!is.na(extension)){
extension0 = gsub("\\.", "", extension)
}else{
extension0 = file_ext(path)
}
out_path = file_path_sans_ext(path)
path_one = paste0( file.path(out_path, little_filename), new_text,".", extension0)
return(path_one)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.