Erweiterung automatisch hinzufügen beim Speichern in R

Question

Ich verwende das Tcltk-Paket in R, um eine GUI zu erstellen, und ich versuche, eine Funktion in R zu schreiben, die beim Speichern automatisch eine .xlsx-Erweiterung am Ende eines Dateinamens hinzufügt. Wenn es das Save As Fenster aufruft, fügt es die Erweiterung jedoch nicht hinzu. Jede Hilfe wird geschätzt, danke.

library(openxlsx) 
library(tcltk) 
saveFile1 <- function(){ 
    write.xlsx(c, tclvalue(tkgetSaveFile(
    filetypes = "{ {Excel} {*.xlsx} }"))) 
} 

Answer 1

Ich denke, das sollte den Trick tun.

saveFile1 <- function(c){ 
    require(tcltk) 
    require(openxlsx) 

    # Prompt for file 
    filepath <- tclvalue(tkgetSaveFile(filetypes = "{ {Excel} {*.xlsx} }", defaultextension = ".xlsx")) 

    # Check if file was specified 
    if(filepath != ""){ 
    # Ensure that the last 5 characters are .xlsx 
    filepath <- ifelse(substr(filepath, nchar(filepath) - 4, nchar(filepath)) == ".xlsx", filepath, paste0(filepath,".xlsx")) 

    # Write the file 
    write.xlsx(c, filepath) 
    } 
} 

# Test the function 
saveFile1(mtcars)