在 RPostgreSQL 中使用 dbWriteTable 写入表的权限被拒绝

Question

一段时间以来，我一直在尝试解决 RPostgreSQL 软件包的问题。我的代码：

path_ene <- "C:/Users/omen03/ENE"

nene <- "ene_2010_02_efm.csv"


drv <- dbDriver("PostgreSQL")

con = dbConnect(drv, user="postgres", password="mypassword",
            host="localhost", port=5432, dbname="ENE")

tn = "ene_2010_02_efm";

dbRemoveTable(con,tn);
dbWriteTable(conn = con, name = tn, value = paste0(path_ene,"/",nene),
                                    sep = ",", overwrite = FALSE))

执行上述代码时，我抛出以下错误：

postgresqlExecStatement 中的错误（conn，语句，...）： RS-DBI 驱动程序：（无法检索结果：错误： 无法打开文件 «C: /Users/omen03/ENE/ene_2010_02_efm.csv» 进行阅读：权限被拒绝

提示：COPY FROM 告诉 PostgreSQL 服务器进程读取一个 文件。您可能想要使用客户端工具，例如 psql\copy。 ) 另外：警告信息：在 postgresqlImportFile (conn, name, value, ...): 无法将数据加载到表中

当我尝试不指定文件路径时，它会引发另一个错误

dbRemoveTable(con,tn);
dbWriteTable(conn = con, name = tn, value = nene),
                                    sep = ",", overwrite = FALSE))

postgresqlExecStatement (conn, statement, ...) 中的错误：RS-DBI 驱动程序：（无法检索结果：错误：无法打开文件 «./ene_2010_02_efm» 供阅读：没有这样的文件或目录

提示： COPY FROM 告诉 PostgreSQL 服务器进程读取文件。你可以 想要使用客户端工具，例如 psql\copy。 ） 此外： 警告消息：在 postgresqlImportFile (conn, name, value, ...) 中： 无法将数据加载到表中

更新：

考虑到错误信息，我决定直接使用sql将csv值插入到数据库的每个表中。为此，我使用了几个函数

createEmptyTable <- function(con,tn,df) {
  sql <- paste0("create table \"",tn,"\" (",paste0(collapse=',','"',names(df),'" ',sapply(df[0,],postgresqlDataType)),");");
  dbSendQuery(con,sql);
  invisible();
};

取自：How to write a table in PostgreSQL from R?

和

#tn: Table name
#c_names: column names of each table (a list) 
#source: The path to each csv files

insert_data = function(tn, source){
  sql = paste0('COPY ',tn,' FROM \'',paste0(path_ene,'\\',source),'\' DELIMITER \',\' CSV HEADER')
  dbSendQuery(con, sql);
}


insert_data(tn[1], paste0(path_ene, "/",nene[1]))

无论如何，我仍然得到一个非常相似的错误。

postgresqlExecStatement (conn, statement, ...) 中的错误：RS-DBI 驱动程序：（无法检索结果：错误：无法打开文件 «C: /Users/omen03/ENE/ene_2010_02_efm.csv» 用于阅读：权限 denied HINT: COPY FROM 告诉 PostgreSQL 服务器进程读取一个 文件。您可能想要使用客户端工具，例如 psql\copy。 )

我的会话信息：

R 版本 3.6.1 (2019-07-05) 平台：x86_64-w64-mingw32/x64（64 位） 运行于：Windows 10 x64（内部版本 18362）

矩阵产品：默认

语言环境：[1] LC_COLLATE=Spanish_Chile.1252 LC_CTYPE=Spanish_Chile.1252 LC_MONETARY=Spanish_Chile.1252 LC_NUMERIC=C [5] LC_TIME=Spanish_Chile.1252

附加的基础包：[1] stats graphics grDevices utils
数据集方法库

其他附加包：[1] RPostgreSQL_0.6-2 DBI_1.0.0
foreign_0.8-71 captioner_2.2.3 kableExtra_1.1.0 wordcloud_2.6 tidytext_0.2.2 gridExtra_2.3 [9] gtable_0.3.0
readstata13_0.9.2 RColorBrewer_1.1-2 ggrepel_0.8.1 pbapply_1.4-2 srvyr_0.3.6 data.table_1.12.6 lubridate_1.7.4 [17] stringi_1.4.3 forcats_0.4.0 stringr_1.4.0 dplyr_0.8.3
purrr_0.3.3 readr_1.3.1 tidyr_1.0.0 tibble_2.1.3 [25] ggplot2_3.2.1 tidyverse_1.3.0

通过命名空间加载（未附加）：[1] httr_1.4.1
jsonlite_1.6 viridisLite_0.3.0 splines_3.6.1 modelr_0.1.5
assertthat_0.2.1 cellranger_1.1.0 sessioninfo_1.1.1 [9] Pillar_1.4.3 backports_1.1.5 lattice_0.20-38 glue_1.3.1
digest_0.6.23 rvest_0.3.5 colorspace_1.4-1 htmltools_0.4.0 [17] Matrix_1.2-17survey_3.36 pkgconfig_2.0.3 broom_0.5.2 Have_2.2.0 scales_1.1.0 webshot_0.5.2 generics_0.0.2
[25] withr_2.1.2lazyeval_0.2.2 cli_2.0.0
生存_2.44-1.1 magrittr_1.5 蜡笔_1.3.4 readxl_1.3.1
评估_0.14 [33] 标记器_0.2.1 janeaustenr_0.1.5 fs_1.3.1
fansi_0.4.0 nlme_3.1-140 雪球C_0.6.0 xml2_1.2.2
工具_3.6.1 [41] hms_0.5.2 mitools_2.4
生命周期_0.1.0 munsell_0.5.0 reprex_0.3.0 compiler_3.6.1
rlang_0.4.2 grid_3.6.1 [49] rstudioapi_0.10
rmarkdown_1.18 R6_2.4.1 knitr_1.26 zeallot_0.1.0
并行_3.6.1 Rcpp_1.0.3 vctrs_0.2.1 [57] dbplyr_1.4.2 tidyselect_0.2.5 xfun_0.11

Answer 1

最后通过寻找直接将数据导入postgresql的问题找到了答案。更改包含 .csv 文件的文件夹的配置就足够了。

我复制了我最终使用的answer。

• 右键单击包含被拒绝权限的数据文件的文件夹，然后单击“属性”。
• 在文件夹的属性窗口中，选择安全选项卡。
• 单击编辑按钮。在打开的“文件夹权限”窗口中，单击添加...按钮。
• 在“输入要选择的对象名称”文本区域框中键入所有人。
• 单击“确定”，窗口将关闭。