我使用一个自定义函数，该函数在远程表后面接收sql查询，将其转换为可以在sql服务器上执行的查询以保存新表，然后使用dbi包执行该查询。下面是关键细节，这里是github存储库中的完整细节（以及其他有用的功能）。

write_to_database <- function(input_tbl, db_connection, db, schema, tbl_name){
  # SQL query
  sql_query <- glue::glue("SELECT *\n",
                          "INTO {db}.{schema}.{tbl_name}\n",
                          "FROM (\n",
                          dbplyr::sql_render(input_tbl),
                          "\n) AS from_table")

  # run query
  DBI::dbExecute(db_connection, as.character(sql_query))
}

这个想法的本质是构造一个sql查询，如果您直接用数据库语言执行它，它将为您提供所需的结果。在我的申请表中，它采用以下形式：

SELECT *
INTO db.schema.table
FROM (
  /* sub query for existing table */
) AS alias

请注意，这是在使用SQLServer，您的特定sql语法可能会有所不同。 INTO 是用于写入表的sql server模式。在问题中链接到的示例中，语法是 TO TABLE .

感谢@simon.s.a.，我可以解决我的问题。正如他在回复中所显示的，可以定义一个自定义函数并将其合并到 dplyr 管道。我的代码如下所示：

# Custom function

write_to_database <- function(input_tbl, db_connection, schema, tbl_name){

  # SQL query

  sql_query <- glue::glue("CREATE TABLE {schema}.{tbl_name} AS (\n",
                      "SELECT * FROM (\n",
                      dbplyr::sql_render(input_tbl),
                      "\n)) WITH DATA;")

  # Drop table if it exists

  DBI::dbExecute(con, glue::glue("BEGIN\n",
                                    "IF EXISTS\n",
                                      "(SELECT TABNAME FROM SYSCAT.TABLES WHERE TABSCHEMA = '{schema}' AND TABNAME = '{tbl_name}') THEN\n",
                                        "PREPARE stmt FROM 'DROP TABLE {schema}.{tbl_name}';\n",
                                        "EXECUTE stmt;\n", 
                                    "END IF;\n",
                                 "END"))

  # Run query

  DBI::dbExecute(db_connection, as.character(sql_query))
}

# Dplyr pipeline

dplyr::tbl(con, in_schema("SCHEMA_A", "SOURCE_TABLE_NAME")) %>%
  dplyr::filter(VARIABLE == "ABC") %>% 
  show_query() %>% 
  write_to_database(., con, "SCHEMA_B", "NEW_TABLE_NAME")

结果是db2似乎不知道 DROP TABLE IF EXISTS 因此，一些额外的编程是必要的。我用这个堆垛机把它弄好了。此外，在我的例子中，我不需要显式地指定数据库，以便 db 在中，自定义函数被省略。