commit 69df40e4d0aa1348ba6cfe07287a0e59062be445 Author: Karsten Loesing karsten.loesing@gmx.net Date: Sun Feb 12 12:18:44 2012 +0100
Fix CSV file with platform strings. --- rserve/csv.R | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/rserve/csv.R b/rserve/csv.R index 20b9c8a..a2c61a3 100644 --- a/rserve/csv.R +++ b/rserve/csv.R @@ -46,7 +46,7 @@ export_current_platform_strings <- function(path) { q <- paste("SELECT platform FROM statusentry", "JOIN descriptor ON statusentry.descriptor =", "descriptor.descriptor WHERE validafter IN (", - "SELECT MAX(validafter) FROM statusentry)", + "SELECT MAX(validafter) FROM consensus)", "ORDER BY platform DESC") rs <- dbSendQuery(con, q) platforms <- fetch(rs, n = -1)