..

Author: venom1204

inst/tests/tests.Rraw

@@ -21893,9 +21893,14 @@ test(2382.09, subset(DT, a > 10, select="a", drop=TRUE), subset(DF, a > 10, sele
 test(2382.10, subset(DT, a > 5, drop=TRUE), subset(DF, a > 5, drop=TRUE))
 
 # #5489 frank could support reverse ranking
-test(2383.01, frank(-as.Date(c("1992-02-27","1992-02-27","1992-01-14","1992-02-28","1992-02-01")), ties.method="min"), frankv(as.Date(c("1992-02-27","1992-02-27","1992-01-14","1992-02-28","1992-02-01")), order=-1, ties.method="min"))
-test(2383.02, frank(-as.POSIXct(c("2020-01-03 10:00:00","2020-01-03 10:00:00","2020-01-01 08:00:00","2020-01-05 12:00:00","2020-01-02 09:00:00")), ties.method="min"), frankv(as.POSIXct(c("2020-01-03 10:00:00","2020-01-03 10:00:00","2020-01-01 08:00:00","2020-01-05 12:00:00","2020-01-02 09:00:00")), order=-1, ties.method="min"))
-test(2383.03, frank(-as.IDate(c("2020-01-03","2020-01-03","2020-01-01","2020-01-05","2020-01-02"))), frankv(as.IDate(c("2020-01-03","2020-01-03","2020-01-01","2020-01-05","2020-01-02")), order=-1))
-test(2383.04, {DT=data.table(x=c(2,1,2,1,3), y=c(5,4,3,2,1)); frank(DT, -x, y)}, {DT=data.table(x=c(2,1,2,1,3), y=c(5,4,3,2,1)); frankv(DT, cols=c("x","y"), order=c(-1L,1L))})
-test(2383.05, frank(-as.ITime(c("10:00:00","10:00:00","08:00:00","12:00:00","09:00:00"))), frankv(as.ITime(c("10:00:00","10:00:00","08:00:00","12:00:00","09:00:00")), order=-1))
-test(2383.06, frank(data.table(a=c(1,2,1), b=c(1,1,2)), order=-1L), frankv(data.table(a=c(1,2,1), b=c(1,1,2)), order=-1L))
+dates = as.Date(c("1992-02-27", "1992-02-27", "1992-01-14", "1992-02-28", "1992-02-01"))
+test(2383.01, frank(-dates, ties.method="min"), frankv(dates, order=-1L, ties.method="min"))
+ct = as.POSIXct(c("2020-01-03 10:00:00", "2020-01-03 10:00:00", "2020-01-01 08:00:00", "2020-01-05 12:00:00", "2020-01-02 09:00:00"))
+test(2383.02, frank(-ct, ties.method="min"), frankv(ct, order=-1L, ties.method="min"))
+idates = as.IDate(c("2020-01-03", "2020-01-03", "2020-01-01", "2020-01-05", "2020-01-02"))
+test(2383.03, frank(-idates), frankv(idates, order=-1L))
+it = as.ITime(c("10:00:00", "10:00:00", "08:00:00", "12:00:00", "09:00:00"))
+test(2383.05, frank(-it), frankv(it, order=-1L))
+test(2383.04, frank(DT, -x, y), frankv(DT, cols=c("x","y"), order=c(-1L, 1L)))
+DT = data.table(a=c(1,2,1), b=c(1,1,2))
+test(2383.06, frank(DT, order=-1L), frankv(DT, order=-1L))