Preguntar de forma interactiva al usuario el nombre del archivo antes de guardar el archivo

Question

Quiero guardar los archivos de mis separadores de pestañas manualmente. Quiero decir que quiero que el usuario elija el directorio y el nombre del archivo cuando quiera guardar los datos. (Para un ejemplo que he fusionado archivos individuales en un solo archivo y desea guardarlo.)

Normalmente utilizo write.table pero en write.table que definen la ruta del directorio y el nombre del archivo dentro de esa función, pero quiero una función en la que el usuario puede guarde el archivo con cualquier nombre en su directorio deseado.

Answer 1

Es irritante que el paquete tcltk no tenga una función para 'Guardar como', solo tiene un selector de archivos para elegir un archivo existente.

Afortunadamente, usted puede tomar el enfoque de bricolaje a través de algunas llamadas TCL:

require(tcltk) 
write.table(yerdata,file = tclvalue(tcl("tk_getSaveFile"))) 

La fuente tk_choose.files función se podría utilizar como una plantilla para escribir una interfaz más agradable para TCL ("tk_getSaveFile") si es necesario. No parece ser una flagrante omisión en el paquete: tcltk aunque ...

Answer 2

sólo tiene que utilizar la función file.choose(), así:

write.table(yerdata, file = file.choose(new = TRUE)) 

En Windows, al menos, que hará aparecer un diálogo para guardar-como comandos.

Answer 3

Una opción (quizás menos que ideal) sería usar readline para solicitar al usuario la ruta completa y el nombre del archivo (o simplemente el nombre del archivo si desea elegir el directorio por programación) y simplemente pasar ese valor en el write.table. He aquí un esbozo:

FILE_PATH <- readline(prompt = "Enter a full path and file name: ") 
#Some checking to make sure you got a valid file path... 
write.table(yerdata, file = FILE_PATH) 

Tenga en cuenta que según ?readline esto realmente sólo funcionará cuando se ejecuta R interactiva.

Answer 4

Usando gWidgets:

gfile("Save yerdata", type = "save", handler = function(h, ...) 
{ 
    write.table(yerdata, file = h$file) 
}) 

Answer 5

Como es ahora 2017, el paquete tcltk2 es una mejora del tcltk:

library(tcltk2) 
filename <- tclvalue(tkgetSaveFile()) 
if (!nchar(filename)) { 
    tkmessageBox(message = "No file was selected!") 
} else { 
    tkmessageBox(message = paste("The file selected was", filename)) 
} 

Y el uso de filtros, digamos uno solo debe guardar como JPG/JPEG:

jpeg_filename <- tclvalue(
    tkgetSaveFile(initialfile = "foo.jpg", 
       filetypes = "{ {JPEG Files} {.jpg .jpeg} } { {All Files} * }") 
)