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

Posted 2023-03-25

【中文标题】使用 memdb 和 dbplyr 设置覆盖 == TRUE

【英文标题】：Setting overwrite == TRUE using memdb and dbplyr

【发布时间】：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)

【参考方案1】：

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

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

【讨论】：

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