Fix previous "fix"

tidyverse · Oct 1, 2015 · e710ce4 · e710ce4
1 parent 7eb54a0
commit e710ce4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/pretty.r b/R/pretty.r
@@ -107,8 +107,8 @@ pretty.point <- function(x, units, length, start = TRUE, ...){
 
   } else {
 
-    floors <- list("sec", "min", "hour", "day", "month", "year")
-    floorto <- match(units, floors) + 1L
+    floors <- c("sec", "min", "hour", "day", "month", "year")
+    floorto <- floors[match(units, floors) + 1L]
     lower <- floor_date(x, floorto)
     upper <- ceiling_date(x, floorto)