Final fixes for R CMD check

hadley · Oct 12, 2012 · ac9fc5d · ac9fc5d
1 parent 20b9d7b
commit ac9fc5d
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 0 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -1,2 +1,3 @@
 benchmark
 src/.gitignore
+man-roxygen
diff --git a/NAMESPACE b/NAMESPACE
@@ -27,6 +27,8 @@ S3method(names,quoted)
 S3method(print,indexed)
 S3method(print,quoted)
 S3method(print,split)
+S3method(round_any,POSIXct)
+S3method(round_any,numeric)
 export(.)
 export(a_ply)
 export(aaply)

diff --git a/R/indexed-data-frame.r b/R/indexed-data-frame.r
@@ -22,6 +22,8 @@ indexed_df <- function(data, index, vars) {
 }
 
 extract_rows <- function(x, i) {
+  if (!is.data.frame(x)) return(x[i, , drop = FALSE])
+
   n <- ncol(x)
 
   out <- lapply(seq_len(n), extract_col_rows, df = x, i = i)

diff --git a/R/round-any.r b/R/round-any.r
@@ -24,10 +24,12 @@ round_any <- function(x, accuracy, f = round) {
   UseMethod("round_any")
 }
 
+#' @S3method round_any numeric
 round_any.numeric <- function(x, accuracy, f = round) {
   f(x / accuracy) * accuracy
 }
 
+#' @S3method round_any POSIXct
 round_any.POSIXct <- function(x, accuracy, f = round) {
   tz <- format(x[1], "%Z")
   xr <- round_any(as.numeric(x), accuracy, f)