打断执行r

Question

如果我停止此代码（在R Studio中的红色按钮或CLOSS CMD窗口执行），我希望服务员停止对代码仍在运行的幻觉。最好的案例Senario，当我关闭CMD时，我希望闪亮的浏览器关闭。

library(shiny)
library(waiter)

# Define UI
ui <- fluidPage(
  use_waiter(),  # Include waiter dependencies
  waiter_show_on_load(html = spin_3()),  # Show spinner on load
  titlePanel("Shiny App with Waiter"),
  sidebarLayout(
    sidebarPanel(
      actionButton("load", "Load Data")
    ),
    mainPanel(
      tableOutput("data")
    )
  )
)

# Define server logic
server <- function(input, output, session) {
  # Show waiter on load
  waiter <- Waiter$new()
  waiter$show()
  
  # Simulate data loading
  observeEvent(input$load, {
    Sys.sleep(2)  # Simulate a delay
    data <- head(mtcars)
    output$data <- renderTable(data)
    waiter$hide()  # Hide waiter after loading data
  })
}

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

Answer 1

随附的应用程序是异步的，这意味着UI元素和后端代码可能会及时更新。

waiter

软件包主要依赖于UI更新的JavaScript。您的服务器代码在执行时不会不断更新UI。取而代

当您在闪亮的控制台中运行代码时，那么Shiny（或服务器应用程序）何时终止R会话或R Studio，甚至用户关闭浏览器窗口。Rstudio的停止按钮发送一个停止过程信号

正确的代码：

hide()

---