3

诚然，这个问题与这个问题相似，但提供的答案对于我的例子来说是不够的。

我正在创建一个连接到数据库的闪亮应用程序。用户可以提供一些输入，一些“固定”查询将运行。现在，我想确保在退出应用程序时关闭与数据库的连接。我可以使用按钮和stopApp功能，但这假设用户会很好并且总是单击所述按钮。用户有时可能会关闭窗口而使数据库连接保持打开状态，因此我想找到一种在用户关闭应用程序窗口时显式关闭连接的方法。

我想一种解决方案是实例化一个新连接并在每个查询结束时关闭，但这似乎效率低下。

这是一些工作代码来演示该问题。如果我从 Rstudio 运行这个应用程序然后关闭窗口，我仍然有一个现有的连接dbListConnections(PostgreSQL())。附加dbDisconnect(con)到文件的末尾没有帮助。

library(shiny)
library(RPostgreSQL)

server <- shinyServer(function(input, output){
  # Read in the dataset
  connectDB <- eventReactive(input$connectDB, {

    if(input$drv != "postgresql"){
      stop("Only 'postgresql' implemented currently")
    }else{
      drv <- dbDriver("PostgreSQL")
      port = 5432
    }

    con <- dbConnect(drv, user = input$user, password = input$passwd, 
                     port = port, host = input$server, dbname=input$db_name)
    con
  })

  output$test <- renderText({
    con <- connectDB()
    "connection success"
  })
})


ui <- shinyUI(
  fluidPage(
    titlePanel("Test Connection"),

    sidebarLayout(
      sidebarPanel(
        textInput("drv", "Database Driver", value="postgresql"),
        textInput("user", "User ID"),
        textInput("server", "Server", value="server"),
        textInput("db_name", "Database Name", value="dbName"),
        passwordInput("passwd", "Password"),
        actionButton("connectDB", "Connect to DB")
      ),

      mainPanel(
        textOutput("test")
      )
    )
  )
)

shinyApp(ui=ui, server=server)
4

1 回答 1

7

你知道变量onSessionEnded的吗？session

这是一个非常基本的示例，它为每个用户设置一个随机会话 id，当他们关闭窗口时，会运行一个函数来说明关闭了哪个会话 id。这只是一个概念证明，您可以根据您的数据库需求轻松定制它，我希望

runApp(shinyApp(
  ui = fluidPage(
    textOutput("sessionId")
  ),
  server = function(input, output, session) {
    sessionId <- as.integer(runif(1, 1, 100000))
    output$sessionId <- renderText(paste0("Session id: ", sessionId))
    session$onSessionEnded(function() {
      cat(paste0("Ended: ", sessionId))
    })
  }
))

编辑：

Op 说他需要这个变量是反应性的，所以这里有一个修改，我相信这会让他得到他想要的

runApp(shinyApp(
  ui = fluidPage(
    textOutput("sessionId")
  ),
  server = function(input, output, session) {
    values <- reactiveValues(sessionId = NULL)
    values$sessionId <- as.integer(runif(1, 1, 100000))
    output$sessionId <- renderText(paste0("Session id: ", values$sessionId))
    session$onSessionEnded(function() {
      observe(cat(paste0("Ended: ", values$sessionId)))
    })
  }
))

免责声明：我不确定将观察放在 onSessionEnded 回调中是否是最好的方法。这行得通，但我不能保证它的“正确性”。

于 2015-07-02T18:47:25.653 回答