将列值作为mysql数据库中的现有表名传递

Question

dbWriteTable(channel, name = "infy", value = info, row.names = FALSE, append = TRUE)

在这段代码中，我提到infy作为数据库中存在的表名。但是我需要的是而不是infy我应该将dataframe的列值作为表名传递。

如果该表已经存在，那么它应该打开并将info dataframe中的值附加到该特定表中。

Answer 1

此代码解决了我的上述问题

for(i in 1:5)
 {
  data<-sec_bhavdata_full[i,] 
  # View(data)
  data_database<-dbReadTable(channel,data$SYMBOL)
  # View(data_database)
  merged_data<-rbind.data.frame(data_database,data)
  #View(merged_data)
  #sym<-casefold(data$SYMBOL,upper=FALSE)
  # View(sym)
  dbRemoveTable(channel,tolower(data$SYMBOL))
  dbWriteTable(channel, name = data$SYMBOL, value = merged_data, row.names = 
  FALSE)
}