如何在单击操作按钮后填充变量？

Question

我试图建立一个简单的滚轮，在那里你可以点击一个按钮并填充一系列变量。我确信这是一个简单的解决方案，但我只是很难让它工作。

这就是我得到的。我设置的界面就像我想要的那样，但基本上我想为强度行获得新的值。

library(shiny) 
ui = fluidPage( 
    titlePanel(""), 
    sidebarLayout(  
    sidebarPanel(
     textInput("char_name","Name"), 
     textInput("char_sex","Sex"), 
     actionButton("rollButton", "Roll!", width = "100%"), 
     hr(), 
     helpText("Please consult _ if you need assitance.") 
    ), 
    mainPanel(
     htmlOutput("name"), 
     htmlOutput("sex"), 
     htmlOutput("natl"), 
     htmlOutput("strength") 
    ) 
) 
) 

server = function(input, output) { 
    observe({ 
    if(input$rollButton > 0) { 
     strength <- sum(sample(1:6,3,replace=TRUE)) 
    } 
    }) 
    output$name <- renderText({ 
    input$rollButton 
    isolate(paste0('<b>Name</b>: ', input$char_name)) 
    }) 
    output$sex <- renderText({ 
    input$rollButton 
    isolate(paste0('<b>Sex</b>: ', input$char_sex)) 
    }) 
    output$strength <- renderText({ 
    input$rollButton 
    isolate(paste0('<b>Strength</b>: ', strength)) 
    }) 
} 
shinyApp(ui = ui, server = server) 

Answer 1

您无法读取强度变量，因为它是在另一个函数中设置的。您可以创建一个共享反应值的向量

server = function(input, output) { 

    val <- reactiveValues(strength=NULL) 

    observe({ 
    if(input$rollButton > 0) { 
     val$strength <- sum(sample(1:6,3,replace=TRUE)) 
    } 
    }) 
    output$name <- renderText({ 
    input$rollButton 
    isolate(paste0('<b>Name</b>: ', input$char_name)) 
    }) 
    output$sex <- renderText({ 
    input$rollButton 
    isolate(paste0('<b>Sex</b>: ', input$char_sex)) 
    }) 
    output$strength <- renderText({ 
    input$rollButton 
    isolate(paste0('<b>Strength</b>: ', val$strength)) 
    }) 
} 
shinyApp(ui = ui, server = server)