conn <- dbConnect("MySQL", group = "vitalAnalysis")
con2 <- dbConnect("Oracle", username = "user", password = "pwd")
if(dbExistsTable(con2, "fuel_frame")){
fuel.frame <- dbReadTable(con2, "fuel_frame")
dbRemoveTable(conn, "fuel_frame")
dbWriteTable(conn, "fuel_frame", fuel.frame)
}
if(dbExistsTable(conn, "RESULTS")){
dbWriteTable(conn, "RESULTS", results2000, append = T)
else
dbWriteTable(conn, "RESULTS", results2000)
}
Run the code above in your browser using DataLab