У меня есть 15 полей выбора (типа ввода). И мне нужно передать его функции сервера для прогнозирования и отображения результирующего вывода. Я не хочу автоматически обновлять, когда пользователь устанавливает значение для одного поля ввода, но вместо этого я хочу, чтобы пользователь установил значения для всех (15 полей ввода), а затем нажал кнопку какого-либо типа, чтобы получить результат.
как этого добиться? это мое первое блестящее UI-приложение.
myCode
library(shiny)
dataset <- diamonds
marks <- 0:100
grades <- c("A","B","C","D","E","F")
ui <- fluidPage(
tags$head(tags$style(HTML("
h2 {
text-align: center;
}
h3 {
text-align: center;
}
h6 {
text-align: center;
color:red;
}
#goButton
{
width: 100%;
}
")
)
),
verticalLayout
(
wellPanel
(
titlePanel("Get Recommendation for Year 4 or 5 Courses"),
h6("* Set the value of input field as 'NA', if you received a remark of Absent (ABS), Medical Circumstances (MC), Exemption (EX), Synoptic Course in absence (NC), Discretionary credits (DC), or any other reason")
)
),
fluidRow
(
column(2,
wellPanel(
radioButtons("type", label = h3("Select Type"),
choices = list("Grades" = 'grades', "Marks" = 'marks'),
selected = 'grades')
)
),
conditionalPanel
(
condition = "input.type == 'grades'",
column
(2,
wellPanel
(
h3("Year 1"),
selectInput('a', 'A',c('NA', grades)),
selectInput('b', 'B',c('NA', grades)),
selectInput('c', 'C',c('NA', grades)),
selectInput('d', 'D',c('NA', grades)),
selectInput('e', 'E',c('NA', grades))
)
),
column
(2,
wellPanel
(
h3("Year 2"),
selectInput('f', 'F',c('NA', grades)),
selectInput('g', 'G',c('NA', grades)),
selectInput('h', 'H',c('NA', grades)),
selectInput('i', 'I',c('NA', grades)),
selectInput('j', 'J',c('NA', grades))
)
),
column
(2,
wellPanel
(
h3("Year 3"),
selectInput('k', 'K',c('NA', grades)),
selectInput('l', 'L',c('NA', grades)),
selectInput('m', 'M',c('NA', grades)),
selectInput('n', 'N',c('NA', grades)),
selectInput('o', 'O',c('NA', grades))
)
)
),
conditionalPanel
(
condition = "input.type == 'marks'",
column
(2,
wellPanel
(
h3("Year 1"),
selectInput('a', 'A',c('NA', marks)),
selectInput('b', 'B',c('NA', marks)),
selectInput('c', 'C',c('NA', marks)),
selectInput('d', 'D',c('NA', marks)),
selectInput('e', 'E',c('NA', marks))
)
),
column
(2,
wellPanel
(
h3("Year 2"),
selectInput('f', 'F',c('NA', marks)),
selectInput('g', 'G',c('NA', marks)),
selectInput('h', 'H',c('NA', marks)),
selectInput('i', 'I',c('NA', marks)),
selectInput('j', 'J',c('NA', marks))
)
),
column
(2,
wellPanel
(
h3("Year 3"),
selectInput('k', 'K',c('NA', marks)),
selectInput('l', 'L',c('NA', marks)),
selectInput('m', 'M',c('NA', marks)),
selectInput('n', 'N',c('NA', marks)),
selectInput('o', 'O',c('NA', marks))
)
)
),
column
(4,
actionButton("goButton", "Submit"),
wellPanel
(
h3("Results"),
verbatimTextOutput("value")
)
)
)
)
server <- function(input, output)
{
#Do Prediction
#Get Results
new_vector = c()
if (input.type == 'marks'){
new_vector <- append(new_vector, input$f27sa, 1)
new_vector <- append(new_vector, input$f27sb, 2)
new_vector <- append(new_vector, input$f27cs, 3)
new_vector <- append(new_vector, input$f27is, 4)
new_vector <- append(new_vector, input$f27px, 5)
new_vector <- append(new_vector, input$f28in, 6)
new_vector <- append(new_vector, input$f28da, 7)
new_vector <- append(new_vector, input$f28pl, 8)
new_vector <- append(new_vector, input$f28sd, 9)
new_vector <- append(new_vector, input$f28dm, 10)
new_vector <- append(new_vector, input$f28ai, 11)
new_vector <- append(new_vector, input$f28fa, 12)
new_vector <- append(new_vector, input$f28fb, 13)
new_vector <- append(new_vector, input$f28oc, 14)
new_vector <- append(new_vector, input$f28pd, 15)
}else{
new_vector <- append(new_vector, input$f27sa2, 1)
new_vector <- append(new_vector, input$f27sb2, 2)
new_vector <- append(new_vector, input$f27cs2, 3)
new_vector <- append(new_vector, input$f27is2, 4)
new_vector <- append(new_vector, input$f27px2, 5)
new_vector <- append(new_vector, input$f28in2, 6)
new_vector <- append(new_vector, input$f28da2, 7)
new_vector <- append(new_vector, input$f28pl2, 8)
new_vector <- append(new_vector, input$f28sd2, 9)
new_vector <- append(new_vector, input$f28dm2, 10)
new_vector <- append(new_vector, input$f28ai2, 11)
new_vector <- append(new_vector, input$f28fa2, 12)
new_vector <- append(new_vector, input$f28fb2, 13)
new_vector <- append(new_vector, input$f28oc2, 14)
new_vector <- append(new_vector, input$f28pd2, 15)
}
results <- eventReactive(input$goButton,{
return (new_vector)
})
output$value <- renderPrint({ results() })
}
shinyApp(ui = ui, server = server)
