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

Question

下面这款闪亮的应用程序在您第一次运行时可以正常运行，但是如果您更改了物种输入，则会出现错误，因为表名已经存在于内存中。我想知道如何根据下面的代码设置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)

Answer 1

因为memdb_frame只是copy_to的一个函数调用，所以我们可以直接使用它来设置overwrite = TRUE

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