Проблемы с закрытием соединения с БД при запуске DuckDB в приложении Shiny

Question

У меня есть flexdashboard, содержащий duckDB базы данных mtcars, которая загружена на сервер. Проблема в том, что он будет отображать только mtcarsбазу данных один раз. Если я нажму «Обновить» или закрою окно и снова открою его, оно больше не подключится к нему. Мне нужно повторно сохранить файл .Rmd и повторно загрузить его на сервер (без изменений). Что происходит?

      ---
title: "Test"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(DBI)

#con <- DBI::dbConnect(duckdb::duckdb(), "DSTLData/FINAL_data.duckdb",read_only=TRUE)
con = dbConnect(duckdb::duckdb(), dbdir=":memory:", read_only=FALSE)
DBI::dbWriteTable(con, "mtcars", mtcars)

onStop(function(){
    DBI::dbDisconnect(con)
  })
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
vecFun <- renderPrint({ 1:5 })
vecFun()
#a<-dplyr::tbl(con,"mtcars")%>%head(5)# This doesn't work at all
a<-dbGetQuery(con, 'SELECT * FROM mtcars LIMIT 5')
DT::renderDataTable(a)

```