我正在尝试创建一个表单，该表单在提交时将与以前的所有提交一起存档。我有使用条件语句相互反馈的用户输入（uioutputs），并且我也试图让表单也可以选择那些用户输入。我没有收到任何错误消息，只是一个不考虑这些输入的表单历史记录。
fields <- c("InsuredFORM", "PYFORM", "EDFORM", "UWselect", "UW_Selected_Smod", "UW_Pricing_Justification")
ui <- dashboardPage(
dashboardHeader(title="Underwriting Model"),
dashboardSidebar(disable = TRUE),
dashboardBody(
jqui_draggable(
absolutePanel(id="yerrr",
right=160, top=110, width = 250,
draggable = TRUE,
wellPanel(
helpText("Please enter the information below: "),
uiOutput("nullSelection"),
uiOutput("firstSelection"),
uiOutput("secondSelection")),
style = "opacity:0.88"),
option=list(cancel = ".selectize-control")),
useShinyjs(),
tags$style(HTML(".box-header{background:#d2d2d2; color:#d83000; text-align:center;}")),
tags$head(tags$style(HTML('.info-box {min-height: 45px;} .info-box-icon {height: 45px; line-height: 45px;} .info-box-content {padding-top: 0px; padding-bottom: 0px;}'))),
shinyUI <- fluidPage(
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Policy Overview",box(width = '100%', title = "General Information", tableOutput("data"),
fluidRow(column(width=5,
infoBoxOutput("box4",width=12),
infoBoxOutput("box5",width=12),
infoBoxOutput("tlcm19",width=12)),
column(width=7,h2(textOutput("gtitle")),
gaugeOutput("gauge"))),
div(id = "firstreq", h3("Recommendations: "),infoBoxOutput("box2",width=6), infoBoxOutput("CCAT",width=6)),
div(id="errormsg", infoBoxOutput("errorbox",width=12))),
div(id = "required", box(width='100%', title = "Underwriter Selection", helpText("Please confirm all information below filled out prior to submitting. "),
fluidRow(column(width=6,uiOutput("UWselect"), infoBoxOutput("SmodLow",width=12)),
column(width=6,br(), infoBoxOutput("tslcm19",width=12),
br(), infoBoxOutput("SmodHigh",width=12))),
h3("Inputs: "),
fluidRow(column(width=6,numericInput("UW_Selected_Smod", "Selected Smod",
min = 0, max = 2, step = 0.01, value = 0)),
column(width=6,textAreaInput("UW_Pricing_Justification", "Pricing Justification"))),
actionButton("submit", "Submit"),
actionButton("clear", "Clear Form"),
downloadButton("downloadData","Download Submission History"),
tabPanel("Input History",
dataTableOutput("responses")
)
我希望（单击“提交”按钮后）输出包含一个包含以下各列的表：
PY，保险日期，生效日期（然后是已经保存的4个）UWselect，UW_Selected_Smod和UW_Pricing证明。