Comment voir le résultat du modèle en brillant?

Question

Je veux développer un modèle de régression généralisée qui permettrait à l'utilisateur de sélectionner les variables de son choix et voir le résultat. Je ne semble pas voir le résultat.

library(shiny) 
    library(dplyr) 
    library(caret) 
    data(mtcars) 

    UI <- fluidPage(


    titlePanel("MTCARS"), 
    selectInput("response","y", 
       names(mtcars)), 
    selectInput("Columns","Columns", 
       names(mtcars), multiple = TRUE), 
    actionButton('btn_train',label = 'Calibrate Model', 
       icon = icon('cogs'),#'bullseye','rocket' 
       class='btn-danger fa-lg', 
       width='100%'), 
    dataTableOutput("dfStr") 


) 

Server <- function(input, output) { 

    x <- reactive({as.character(input$Columns)}) 
    y <- reactive({as.character(input$response)}) 
framework <- reactive({train(reformulate(x(), y()), data = mtcars, method='glm', maxit=500, trace=F)}) 
modeloutput <- reactive({ 
    summary(framework()) 
}) 

observeEvent(input$btn_train, 
       output$dfStr <- renderPrint({ 
       str(modeloutput()) 
       })) 
} 

shinyApp(UI, Server) 

Answer 1

Il semble que le problème est que vous utilisez dataTableOutput("dfStr") au lieu de verbatimTextOutput("dfStr").

Le bouton Calibrate Model ne fait rien puisque vous utilisez des variables réactives pour générer le modèle.