sql >> Databasteknik >  >> RDS >> Mysql

Mysql-fråga fungerar bra på workbench men tar för lång tid i r

Lösningen kan vara att ersätta dbGetQuery med dbSendQuery och dbFetch ringa upp.

De enkla stegen kan vara:

library(RMySQL)

# From OP
con <- dbConnect(RMySQL::MySQL(),
               dbname ="mydb",
               host      = "localhost",
               port  = 3306,
               user  = "root",
               password = "")

# iterationresults is a table in your database. One can replace query with his own
rs = dbSendQuery(con, "select * from iterationresults")

# Fetch first 20 rows and repeat it for all rows  
df = dbFetch(rs, n=20)

# For repeated call
while (!dbHasCompleted(rs)){
 df<- dbFetch(rs, n=20)
}
# OR Fetch all rows in one go
df = dbFetch(rs, n=-1)

# Free all resources
dbClearResult(rs) 
# Close connection
dbDisconnect(con)
# df will contain results i.e.
df
#   ID Truck_ID Speed trip_id
#1  11  TTI 039     6     217
#2  12  TTI 039     6     217
# ........



  1. Jobbet för mysqld.service misslyckades Se systemctl-status mysqld.service

  2. Alternativ till utom i MySQL

  3. Skapa en json-array med hjälp av concat med MySql

  4. Mysql-utlösare efter uppdatering infogas i en annan tabell med villkor