2017-07-08 32 views
-2

我有一个名为'resultsHt'的表。我想提示用户选择一个文件名和目录输出。我已经看了一圈,无法找到一个简单的方法来做到这一点,它适用于Mac和Windows。我会很感激你的帮助!允许用户命名并选择导出表的位置

+0

尝试'file.choose()' –

+0

谢谢,但在Mac它只是要求你选择一个现有的文件,而不是选择一个目录并命名你的文件 – Mike

+0

我在windows上,但它允许我键入一个新的文件名,创建它,如果它不存在,并返回完整的文件路径。 –

回答

0

谢谢。这看起来适用于打开文件 - 它在XQuartz中打开。但是,它仍然试图打开一个文件,而不是写一个文件。你知道如何修改这段代码来工作吗?

library(tcltk) 
library(xlsx) 
write.xlsx(resultsHt, tk_choose.files(caption = "Choose X")) 

更新 我已经计算出以下实现这一点,至少在Mac上:

require(tcltk) 
output <- tclvalue(tcl("tk_getSaveFile")) #User inputs Save As directory and filename 
output <- paste0(output, ".xlsx") #Appends .xlsx for write.xlsx function 
write.xlsx(resultsHt, output, sheetName="height", row.names=FALSE) 
相关问题