R.md

@@ -333,7 +333,7 @@ make_state_df <-
 
     if (is.null(xmax)) {
       # Get max value on the `xcolname` column
-      xmax <- df %>% select(!!xcolname) %>% max()
+      xmax <- df %>% pull(!!xcolname) %>% max()
     }
 
     if (only_changed) {