Eliminar automáticamente archivos/carpetas en R

Question

¿Hay alguna manera de eliminar automáticamente todos los archivos o carpetas con pocas líneas de comando R? Conozco las funciones unlink() o file.remove(), pero para aquellas necesita definir un vector de caracteres con exactamente todos los nombres de los archivos que desea eliminar. Estoy buscando algo que enumere todos los archivos o carpetas dentro de una ruta específica (por ejemplo, 'C:/Temp') y luego elimine todos los archivos con un nombre determinado (independientemente de su extensión).

¡Toda ayuda es muy apreciada!

Answer 1

¿Quizás solo está buscando una combinación de file.remove y list.files? Tal vez algo como:

do.call(file.remove, list(list.files("C:/Temp", full.names = TRUE))) 

Y supongo que se puede filtrar la lista de archivos a aquellos cuyos nombres coincidan con un patrón determinado usando grep o grepl, ¿no?

Answer 2

Usando una combinación de dir y grep esto no es tan malo. Esto probablemente podría convertirse en una función que también le diga qué archivos se deben eliminar y le da la oportunidad de abortar si no es lo que esperaba.

# Which directory? 
mydir <- "C:/Test" 
# What phrase do you want contained in 
# the files to be deleted? 
deletephrase <- "deleteme" 

# Look at directory 
dir(mydir) 
# Figure out which files should be deleted 
id <- grep(deletephrase, dir(mydir)) 
# Get the full path of the files to be deleted 
todelete <- dir(mydir, full.names = TRUE)[id] 
# BALEETED 
unlink(todelete) 

Answer 3

dir_to_clean <- tempdir() #or wherever 

#create some junk to test it with 
file.create(file.path(
    dir_to_clean, 
    paste("test", 1:5, "txt", sep = ".") 
)) 

#Now remove them (no need for messing about with do.call) 
file.remove(dir( 
    dir_to_clean, 
    pattern = "^test\\.[0-9]\\.txt$", 
    full.names = TRUE 
)) 

También puede utilizar unlink como una alternativa a file.remove.

Answer 4

Para todos los archivos en un camino conocido puede:

unlink("path/*") 

Answer 5

Para eliminar archivos de una extensión en particular, link Esto también puede ser seguido,

junk <- dir(path="your_path", pattern="your_pattern") 
file.remove(junk)