使用 memdb 和 dbplyr 设置覆盖 == TRUE答案

【问题标题】：Setting overwrite == TRUE using memdb and dbplyr使用 memdb 和 dbplyr 设置覆盖 == TRUE
【发布时间】：2020-04-22 18:57:55
【问题描述】：

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

【问题讨论】：

标签： sql r dplyr dbplyr

【解决方案1】：

由于memdb_frame只是copy_to的函数调用，我们可以直接用它来设置overwrite = TRUE

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

【讨论】：

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