r - file.choose in r 打开对话框为pop behind 不pop up

Question

我有一个 Shiny 的应用程序，带有一个更新数据的操作按钮。单击按钮后，我将使用以下代码来选择和读取 csv 文件。

updatebi <- function(x){

    y <- function(...) {
        pathname <- NULL;
        tryCatch({
            pathname <- read.csv(file.choose(), header = TRUE, stringsAsFactors = FALSE);

'dosomething'

df <- x 
mydb <- dbConnect(MySQL(), user = "root", password = "abba1221", dbname = "dbdb", host = "localhost")
dbWriteTable(mydb, name = "byname", value = df, overwrite = FALSE, append = FALSE, row.names = FALSE)
.rs.restartR()
}, error = function(ex) {
})
pathname;
    }
x <- y()
}

我尝试在 Windows 和 OS X 中使用此代码。文件选择对话框打开但始终隐藏在其他已打开的窗口后面。

如何使用 file.choose() 使文件选择对话框始终出现在前面。

Answer 1

我正在寻找相同问题的解决方案。我试过这个:

library(rJava)
library(rChoiceDialogs)
jchoose.files()

我试了一下并运行了 jchoose.files() 20 或 30 次，每次都取消或选择一个文件，选择器总是弹出。一次也没有隐藏。仍然不是 100% 确定，但看起来很有希望。

我也尝试了下面的解决方案，但文件选择器有时没有弹出。

library(tcltk)
tk_choose.files()