如何在R中创建具有多个输入的弹出式输入对话框？

Question

我想用6个输入在R中生成一个弹出框。

我宁愿将所有输入都放在同一个弹出框中，因为大多数情况下大多数时间都是默认输入，并且我想一眼就看出它们都是正确的，而不是必须单击一下六个弹出窗口。

我知道dlg_input包中的svDialogs会弹出一个框，但是我看不到修改它的选项以允许多个输入。这是dlg_input的代码：

    function (message = "Enter a value", default = "", ..., gui = .GUI) 
 {
    if (!guistartUI("dlginput",call=match.call(),default=default,
        msg="Displayingamodalinputdialogbox",msg.no.ask="Amodalinputdialogboxwasby−passed"))
        return(invisible(gui))
    if(!length(message))
        message<−"Enter a value"
    message<−paste(as.character(message),collapse="\n")
    if(is.null(default)){
        default<−""
    }
    else {
        default<−as.character(default)[1]
    }
    gui$setUI(args = list(message = message, default = default)) 
    UseMethod("dlgInput", gui) 
 }
<environment: namespace:svDialogs>

我认为有一种方法可以修改此代码以提供我想要的东西，但是它对我来说是迷路的。任何帮助将非常感激。