R/ctod.R

In larajx/cosmic:

#' Write out dataframe to the desktop
#'
#' @param df Name of object.  Can be anything like a dataframe, tibble, etc.
#'
#' @return
#' @export
#'
#' @examples
ctod <- function(df) {

        path_name <- str_c("/Users/l.rodriguez/Library/CloudStorage/OneDrive-MNEMO/Desktop/", substitute(df), ".csv")
        write.csv(df, path_name)
}