というデータフレームがありますFail
。
Fail
ユーザーが選択した場所に CSV として保存したいと考えています。以下は私が見つけたサンプルコードですが、組み込む方法がわかりませんFail
。
require(tcltk)
fileName <- tclvalue(tkgetSaveFile())
if (!nchar(fileName)) {
tkmessageBox(message = "No file was selected!")
} else {
tkmessageBox(message = paste("The file selected was", fileName))
}