#' file_path_sans_ext
#' @name file_path_sans_ext
#' @description borrowed from tools package
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
file_path_sans_ext <- function (x)
{
sub("([^.]+)\\.[[:alnum:]]+$", "\\1", x)
}
#' file_ext
#' @name file_ext
#' @description borrowed from tools package
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
file_ext <- function (x)
{
pos <- regexpr("\\.([[:alnum:]]+)$", x)
ifelse(pos > -1L, substring(x, pos + 1L), "")
}
#' write_file
#' @name write_file
#' @description write_file
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
write_file <- function (x, file)
{
dir.create(dirname(file), recursive = TRUE)
writeLines(x, file)
}
#' read_file
#' @name read_file
#' @description read_file
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
read_file <- function (file, warn = F, ...)
{
paste(readLines(file, warn = warn, ...), collapse = "\n")
}
#' Read contents of a system file into a character string
#' @name read_sysfile
#' @description read_sysfile
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
read_sysfile <- function(..., package = "mwr"){
if (is.null(package)){
path = file.path(...)
} else {
path = system.file(..., package = package)
}
#read_file(path)
path
}
#' Read contents of a system file into a character string
#' @name read_sysfile
#' @description read_sysfile
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
read_csv_sysfile <- function(path){
read.csv(sysfile(path),stringsAsFactors = FALSE)
}
#' Read contents of a system file into a character string
#' @name sysfile
#' @description sysfile
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
sysfile <- function(..., package = "ciudatos"){
if (is.null(package)){
path = file.path(...)
} else {
path = system.file(..., package = package)
}
#read_file(path)
path
}
#' Copy directories recursively, creating a new directory if not already there
#' @name copy_dirs
#' @description copy_dirs
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
copy_dirs <- function(from, to){
for(i in length(from)){
copy_dir(from[i],to[i])
}
}
#' Copy directories recursively, creating a new directory if not already there
#' @name copy_dir
#' @description copy_dir
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
copy_dir <- function(from, to, overwrite = TRUE){
# if (!(file.exists(to))){
dir.create(to, recursive = TRUE)
message('Copying files from:',from, ' to: ' , to, '...')
file.copy(list.files(from, full.names = T), to, recursive = TRUE, overwrite = TRUE)
# }
}
#' Copy directories recursively, creating a new directory if not already there
#' @name copy_files
#' @description copy_files
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
copy_files <- function(from, to, overwrite = TRUE){
for(i in seq_along(from)){
message("copying...", from[i])
copy_file(from[i],to[i], overwrite = overwrite)
}
}
#' Copy directories recursively, creating a new directory if not already there
#' @name copy_file
#' @description copy_file
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
copy_file <- function(from, to, overwrite = TRUE){
file.copy(from, to, overwrite = TRUE)
}
#' Create dirs
#' @name create_dirs
#' @description create_dirs
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
create_dirs <- function(path, dirs){
lapply(dirs, function(folder){
filePath <- file.path(path,folder)
dir.create(file.path(filePath), showWarnings = FALSE)
})
}
#' List directories in a directory
#' @name list_dirs
#' @description list_dirs
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
list_dirs <- function(path=".", recursive=TRUE, fullPath = TRUE) {
file_list <- list.files(path, all.files = FALSE, full.names = TRUE, include.dirs = TRUE, recursive = recursive)
file_info <- file.info(file_list)
dirs <- row.names(file_info[file_info$isdir,])
if(!fullPath){ dirs <- basename(dirs)}
dirs
}
#' List directories in a directory
#' @name list_files
#' @description list_files
#' @param string string
#' @return string
#' @export
#' @examples \dontrun{
#' }
list_files <- function (path = ".", recursive = TRUE, fullPath = TRUE)
{
file_list <- list.files(path, all.files = TRUE, full.names = TRUE,
include.dirs = FALSE, recursive = recursive)
file_list
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.