在Windows中使用checkboxGroupInput（）的动态选项集

我正在制作一个闪亮的应用程序，UI功能的一个方面是checkboxGroupInput，其中的选项将根据输入文件的不同而有所不同。例如，如果输入文件有四个选项，则复选框将显示这四个选项。如果输入文件只有两个选项，它应该只显示两个选项

我的代码如下- 用户界面：

服务器：

output$regionNames <- reactive({
dput(names(as.list(openFile())))
})

---

输出$regionNames请参见
？renderUI
非常好，非常好，谢谢！
output$regionNames <- reactive({
dput(names(as.list(openFile())))
})