文件选择窗口在R主窗口后面打开

如何解决文件选择窗口在R主窗口后面打开

我看到这个问题以前曾被问过，但没有得到回答。在R会话期间首次使用tcltk::tk_choose.files()时，它将在R主窗口后面打开。所有其他时间，它都会在主窗口前打开（应如此！）。有没有办法让它始终位于最前面？ 最终，我想通过如下方式使用它。因此它也应该在闪亮的窗口前面。

library(shiny)

ui <- fluidPage(
    actionButton("do","Open window")
)

server <- function(input,output,session) {
    observeEvent(input$do,{
        tcltk::tk_choose.files()
    })
}

shinyApp(ui,server)

我知道base::file.choose()和utils::choose.files()。但是，第一个不允许一次选择多个文件，第二个不允许复制/粘贴路径以便更快地导航，这让我发疯。.