R 使用闪亮的

我想制作一个简单的弹出窗口，提示用户选择文件。我发现它很有光泽，但不确定如何调整代码。提示应为：

“请选择数据文件”。用户选择一个excel文件

“请选择设置文件”。另一个excel文件

---

不足以完成您的任务？谢谢。这听起来很基本，但我可以在上看到示例代码，但当我粘贴到RStudio脚本中时，它什么都不做

library(shiny)
ui = fluidPage(
  actionButton("show", "Show")
)
server = function(input, output) {
  observeEvent(input$show, {
    showNotification("This is a notification.")
  })
}

shinyApp(ui, server)