Comment définir une formule dynamiquement à partir de l'entrée select (multiple = TRUE) dans R brillant

Question

J'essaie de définir une formule pour la régression logistique multinomiale, il faut prendre l'entrée de la liste déroulante jusqu'à 6 variables indépendantes. (SelectInput, Multiple = TRUE) dans R Shiny. Pas en mesure de comprendre comment résoudre ce ..

Voici un exemple de code ... Formule

Multiformula <- reactive ({ as.formula(paste(input$outcome,'~'input$predictor) })

Modèle

MultiModel <- reactive({ 
    multinom(Multiformula(), data = filtered()) 
    }) 

ci-dessus fonctionne le code pour une variable unique, mais pour plus d'une variable indépendante, l'approche peut être différente. J'ai essayé le bas, mais pas de chance

indvar6 <- reactive({ 
    filter(forest_data_model[,input$predictor]) 
    }) 

redéfinie la formule ... mais cela n'a pas

Multiformula <- reactive ({as.formula(paste(input$outcome,'~'indvar6())}) 

sera très appréciée Toute orientation ... grâce

Answer 1

Nous pourrions essayer

library(shiny) 
library(nnet) 
library(foreign) 
fmnom <- function(data = NULL, depVar, indepVar) { 

    ui <- fluidPage(
    headerPanel("Multinomial analysis"), 
    sidebarPanel(
     p("Select inputs for the Dependent Variable"), 
     selectInput(inputId = "dep", label = "Dependent Variables", multiple = FALSE, 
         choices = as.list(depVar)), 
     p("Select input for the Independent Variable"), 
     selectInput(inputId = "indep", label = "Independent Variables", 
        multiple = TRUE, choices = as.list(indepVar), selected = indepVar[1]) 
    ), 
    mainPanel(
     verbatimTextOutput(outputId = "RegOut"), 
     verbatimTextOutput(outputId = "IndPrint"), 
     verbatimTextOutput(outputId = "DepPrint") 

    ) 
) 

    server <- function(input, output) { 

    mlt <- reactive(
        {multinom(reformulate(input$indep, input$dep), data = data)}) 

    output$DepPrint <- renderPrint({input$dep}) 
    output$IndPrint <- renderPrint({input$indep}) 
    output$RegOut <- renderPrint({summary(mlt())}) 

    } 



    shinyApp(ui= ui, server = server) 
} 

-data

ml <- read.dta("https://stats.idre.ucla.edu/stat/data/hsbdemo.dta") 

-run brillant

fmnom(ml, depVar = c("prog", "schtyp"), indepVar = c("ses", "read", "write")) 

-output seule variable indépendante

plusieurs variables indépendantes

-sorties