如何用Shiny的actionButton延迟自定义函数的执行？

你需要让方法2对应的algo(x)函数在点击Start Algo按钮后才开始计算，而不是切换到方法2就自动执行。可以通过eventReactive和状态判断来实现，以下是修改后的完整代码：

library(shiny)

# Define UI 
ui <- fluidPage(
    titlePanel("Old Faithful Geyser Data"),
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30),
            radioButtons(inputId = "calc_t",label = "Select Calculation",choices = c("Method 1"=1,"Method 2 (long)"=2,"Method 3"=3)),
            actionButton(inputId = "go_algo",label = "Start Algo")
        ),
        mainPanel(
           plotOutput("distPlot"),
           textOutput("analyze")
        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$distPlot <- renderPlot({
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        hist(x, breaks = bins, col = 'darkgray', border = 'white',
             xlab = 'Waiting time to next eruption (in mins)',
             main = 'Histogram of waiting times')
    })
    
    # 用eventReactive触发algo计算，仅在按钮点击且选中方法2时执行
    algo_result <- eventReactive(input$go_algo, {
        req(input$calc_t == 2) # 只有选中方法2时才执行
        x <- faithful[,2]
        algo(x)
    })
    
    output$analyze <- renderText({
        calc_type <- input$calc_t
        x    <- faithful[, 2]
        
        if(calc_type == 1){
            paste("Mean 1 = ", mean(x))
        } else if (calc_type == 2){
            # 判断是否已执行algo计算，未执行则提示点击按钮
            if(is.null(algo_result())){
                "请点击Start Algo按钮开始计算"
            } else {
                paste("Mean 2 = ", algo_result())
            }
        } else if(calc_type == 3){
            paste("Mean 3 = ", sum(x)/length(x))
        }
    })
    
    algo <- function(x){
        mean_x <- mean(x)
        # 模拟耗时操作
        Sys.sleep(2)
        output <- mean_x + 100
        return(output)
    }
    
}

# Run the application 
shinyApp(ui = ui, server = server)

关键修改说明 #

• eventReactive(input$go_algo, {...})：将algo的计算逻辑绑定到按钮点击事件上，只有点击按钮时才会触发计算，同时用req(input$calc_t == 2)确保只有选中方法2时才执行。
• renderText中针对方法2的判断：当用户切换到方法2但未点击按钮时，显示提示文本；点击按钮后，显示algo计算的结果。
• 给algo添加了Sys.sleep(2)来模拟真实的耗时操作，方便测试延迟效果。

内容的提问来源于stack exchange，提问作者Steven Ouellette