Проблема получения блестящей формы для сохранения пользовательских входов в историю представлений

Question

Я пытаюсь создать форму, которая после отправки будет заархивирована со всеми предыдущими отправками.У меня есть пользовательские входы (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 Justification.