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