Question

我正在尝试开发一个非常基本的闪亮应用程序。 ui脚本非常简单

shinyUI(fluidPage(
  titlePanel("Drawing a Dice"),

  sidebarLayout(
    sidebarPanel(
      actionButton("action", label = "Draw"),
    ),

    mainPanel(
      textOutput("text1")
    )
  )
))

但我不知道如何去做服务器。 [R

我需要server.R来执行以下操作：每次用户点击绘图时，它会从1：6中抽取一个随机数，并填充10个单元格数组的第一个单元格。并且对于完成的每次点击直到10，它重复该工作。最终结果将是长度为10的向量，随机数在1到6之间。需要通过单击完成为用户提供退出选项。但我需要能够在关闭应用程序后检索最终的结果向量。因此，server.R需要以一步递增的方式执行以下操作

draw<-function(){
  Dice<-c(1:6)
  Mydraws<-numeric(10)
  for(i in 1:10){
    x<-sample(Dice,1,replace=TRUE)
    Mydraws[i]=x
  }
  Mydraws
}

因此，即使用户退出后点击完成（不包括在ui.R中），我也应该可以获取Mydraws矢量

我甚至不知道它是否可能闪亮。

Answer 1

这是一种方法：

server.R

numbers <- list()

shinyServer(function(input, output) 
{
    output$array <- renderText({
        # the presence of input$action will cause this to be evaluated each time the button is clicked
        # the value gets incremented each time you click it, which is why we use it as the index of the list

        random_number <- sample(1:6,1)

        # add to the global variable
        numbers[input$action] <<- random_number

        return(random_number)
    })
})

使用操作按钮更新表

1 个答案: