R/timeStampAndMove.R

In notsynonymous/SWA: A package to assist in devloping SEM metrics based on driver data

#' Time stamp, and then move
#' takes a dataframe and moves it to the Data folder built for the R portable, with an added name extension, then adds a time stamp.
#' @name timeStampAndMove
#' 
#' @param dataframe the name of the dataframe
#' @param extension a really fun name
#' 
#' @returns None
#' 
#' @examples
#' d1 <- c(1:5)
#' d2 <- c(2:6)
#' d3 <- c(3:7)
#' mat <- cbind(d1, d2, d3)
#' mat <- as.data.frame(mat)
#' colnames(mat) <- c(1:3)
#' rownames(mat) <- c(1:5)
#' timeStampAndMove(mat, "Omyjjiodi")
#' @export
#' @md

timeStampAndMove <- function(dataframe, extension){
	tableName <- paste0(format(Sys.time(), "%H%M%S_"), paste0(Sys.Date(), extension))
	write.csv(dataframe, tableName)
	file.copy(tableName, paste0(paste0("C:/Users/", Sys.getenv("USERNAME")), "/Documents/R/Data")) 
	file.remove(tableName)
}