R/make_hyperlink.R

#' Makes HTML hyper link
#' @param files character vector of filenames
#' @return link command vector
#' @details Used in making HTML files
#' @export
#' 
make.hyperlink <- function(files,links){
  
  link.command <- rep("",length(files))
  
  for(file.iter in 1:length(files)){
    link.command[file.iter] <- paste0("<a href=\"file:///",files[file.iter],"\">",links[file.iter],"</a>")
    
    
    
  }
  return(link.command)
  
}
gelfondjal/IT2 documentation built on May 17, 2019, 12:15 a.m.