用R把文檔寫回數據庫

# 導入FMCG超敏感和敏感商品
dim_username_dept <- read.table(file = "~/dm/cluster/yihaodianbao",
                                    #header = TRUE,
                                    sep = "\t",
                                    #strip.white = TRUE,
                                    stringsAsFactors = FALSE)

str(dim_username_dept)

head(dim_username_dept)

names(dim_username_dept) <- c("USER_NAME", "FULL_NAME", "EMAIL", "DEPT")

## Write Databases Tables
library("DBI")
library("ROracle")

drv <- dbDriver("Oracle")
con <- dbConnect(drv,"tangjingxiao1","cathy,123",dbname = "10.0.1.226:1521/edwstd01")


# 回寫到數據庫的字段名稱，必定要大寫，不然在Oracle裏識別不出來
names(dim_username_dept) <- toupper(names(dim_username_dept))

# 回寫到數據庫的表名，必定要大寫
dbWriteTable(con, toupper("dim_username_dept"), dim_username_dept, row.names = FALSE)
dbCommit(con)
dbDisconnect(con)