Question

我是闪亮的新手并做简单的闪亮应用程序，它会生成iid正常变量并打印直方图。输入有：

2个numericInput字段，mu和sigma
ActionButton

输出是tabsetPanel：

Tab1：5个生成值
Tab2：histogram

所以它不起作用。我尝试了很多变种，只有不充分的解决方案就是这个。

这是代码ui.R

library(shiny)
library(xtable)

meanInput1 <- numericInput("id1", "$$mean \\ of \\ x_1$$", 1, min = -10, max = 10, step = 1)
meanInput2 <- numericInput("id2", "$$sd \\ of \\ x_2$$", 1, min = -10, max = 10, step = 1)
tabPanel1 <- tabPanel("generated values", tableOutput("table1"))
tabPanel2 <- tabPanel("Plot", plotOutput("plot1"))

shinyUI(fluidPage(
    withMathJax(),
    titlePanel("title"),

    sidebarLayout(
        fluid=TRUE,

        sidebarPanel(
            meanInput1,
            meanInput2,
            actionButton("goButton", "Go!")
        ),
    mainPanel(

        tabsetPanel(
            tabPanel1,
            tabPanel2
        )
    )
)))

这是代码server.R

shinyServer(
    function(input, output) {

        output$plot1 <- renderPlot({
            if (input$goButton >= 1){
                sigma <- input$id2
                muInput <- input$id1

                table <- as.data.frame(rnorm(n = 5,muInput,sd = sigma))
                names(table) <- "x"

                output$plot1 <- renderPlot(hist(table));
                output$table1 <- renderTable(head(table));
            }
        })
    }
)

问题：

仅当按钮点击一次并且选择了tabPanel2时，它才有效。如何在每次单击按钮时使其工作。

Answer 1

在这种情况下，您想使用eventReactive。您可以找到使用actionButton here的演示。使用render语句中的render语句，你的代码也有一些奇怪的结构。

如果您创建了eventReactive功能并将renderTable和renderPlot电话分开，那么它会更加清晰且正常运行。将变量命名为与函数相同也是一种好习惯，因此为了清楚起见，我将table变量更改为my_table。

shinyServer(
  function(input, output) {

    rand <- eventReactive(input$goButton,{
      sigma <- input$id2
      muInput <- input$id1

      my_table <- as.data.frame(rnorm(n = 5,muInput,sd = sigma))
      names(my_table) <- "x"
      return(my_table)
    })

    output$plot1 <- renderPlot({
      my_table <- rand()
      if(is.null(my_table)){
        return(NULL)
      }else{
        hist(head(my_table$x));
      }
    })


    output$table1 <- renderTable({
      my_table <- rand()

      if(is.null(my_table)){
        return(NULL)
      }else{
        my_table
      }
    });
  }
)

每次按下按钮时，Shiny都会生成随机值

1 个答案: