Necesito hacer una aplicación shiny que obtenga el valor de una fórmula donde el usuario ingrese los valores de las variables a través numericInput y selectInput. Con el primero el reemplazo es directo pero no logro encontrar cómo obtener la opción seleccionada en selectInput, convertirla para poder incluir su valor a la fórmula. La relación de los opciones de selectInput de Situacion Laboral del padre es por ejemplo "Trabaja"=1; "No trabaja"=2. El código que realicé es:
library(shiny)
ui<-navbarPage("REGRESION LOGISTICA",
tabPanel("RESULTADO",
sidebarLayout(sidebarPanel(
h5(helpText("Seleccione valores de las siguientes variables")),
tags$hr(),
# radioButtons(inputId = 'sep', label = 'Separator',
# choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected = ','),
selectInput("var",
label = "Seleccione Nivel de Estudio de la madre",
choices = c("Primaria Incompleta",
"Primaria Completa",
"Secundario Incompleto",
"Secundario Completo",
"Estudio Superior/Universitario Incompleto",
"Estudio Superior/ Universitario Completo"),
selected = "Secundario Completo"),
selectInput("var2",
label = "Seleccione Situacion laboral del padre",
choices = c("Trabaja", "No trabaja"),
selected = "Trabaja")),
mainPanel(#uiOutput("tb1")
numericInput("num_W", "Materias Regulares:", 0,min = 0, max = 15),
numericInput("num_l", "Edad:", 15,min = 15, max = 56),
h5(textOutput("Prueba")))
) ))
server<-function(input,output) {
#output$Prueba <- renderText({
# "La probabilidad de que el alumno NO continue sus estudios es:"
vals <- reactiveValues()
observe({
vals$W <- input$num_W
vals$L <- input$num_l
})
output$Prueba <- renderText({
paste("1.26624*Regulares+0.05381*Edad+EstMadreR+0.25075*SitLaboralPadre=",
1.26624*vals$W+0.05381*vals$L)
})
}
shinyApp(ui=ui,server=server)
Podría alguien orientarme por favor???