2

我正在 Shiny 中制作一个非常简单的游戏。基本上每个玩家都在自己的会话中玩，但他们共享 1 个全局变量来跟踪每个玩家的得分。

我认为我成功地让会话更新了全局“分数”变量，但由于某些（可能是愚蠢的）原因，我无法让全局变量充当反应值（即自动触发 updateActionButton）。下面的最小代码：

工作示例：

score <- c(100) 

ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  mainPanel(
    actionButton("increase_score", label = " increase score player 1 "),
    verbatimTextOutput("show_score_p1")
  )
)

# Server logic
server <- function(input, output){
  observeEvent(input$increase_score,{
    score[1] <- score[1]+10
  })
  output$show_score_p1 <- renderText({paste(score[1])})  
}

shinyApp(ui,server)

我尝试了几种方法来尝试使我的全局“分数”具有反应性，即 makeReactiveBinding(score)，但无济于事。有任何想法吗？绝对感觉我错过了一些非常明显的东西

4

1 回答 1

2

使用可以使用一个有用的功能，称为reactiveValues

library(shiny)
ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  mainPanel(
    actionButton("increase_score", label = " increase score player 1 "),
    verbatimTextOutput("show_score_p1")
  )
)

score<-reactiveValues(a=100)
# Server logic
server <- function(input, output){

  observeEvent(input$increase_score,{
    score$a <- score$a+10
  })
  output$show_score_p1 <- renderText({
    score$a
  })  
}

shinyApp(ui,server)
于 2018-09-12T01:54:53.917 回答