Sql 使用memdb和dbplyr设置overwrite==TRUE

以下闪亮的应用程序在您第一次运行时就可以运行，但如果您更改物种输入，则会出现错误，因为表名已存在于内存中。考虑到下面的代码，我想知道如何设置overwrite==TRUE

library(shiny)
library(tidyverse)
library(dbplyr)

ui <- fluidPage(
    selectInput("species", "Species", choices = unique(iris$Species), 
                selected = "setosa"),
    tableOutput("SQL_table"),
    actionButton("code", "View SQL"),
)


server <- function(input, output) {

    # render table
    output$SQL_table <- renderTable(
        head(iris %>% filter(Species == input[["species"]]))
    )

    # generate query
    SQLquery <- reactive({
        sql_render(
            show_query(
                tbl_memdb(iris) %>%
                filter(Species == local(input$species))
            )
        )
    })

    # see query
    observeEvent( input$code, {
        showModal(
            modalDialog(
                SQLquery()
            )
        )
    })
}


shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（tidyverse）
图书馆（dbplyr）
ui由于
memdb\u frame
只是
copy\u to
的函数调用，我们可以直接使用它来设置
overwrite=TRUE

copy_to(src_memdb(), iris, name = 'iris', overwrite=TRUE)

嘿@MayaGans，那么我如何建立到这个远程表的连接或删除它？