Permalink
Browse files

strat should now work without response

  • Loading branch information...
1 parent 01a9614 commit 9fdd2433d848255d867bf0b19390b1d009cebc84 @erikriverson committed Oct 7, 2013
Showing with 3 additions and 3 deletions.
  1. +1 −1 R/hlf.R
  2. +2 −2 R/mutable.R
View
@@ -26,7 +26,7 @@ mutable.formula <- function(formula, data, firstcol = "Variable", overall = TRUE
response_p <- attr(terms(formula), "response")
split_df <- if(response_p)
- split(data, data[[as.character(as.list(formula)[[2]])]])
+ split(data, data[[as.character(formula)[[2]]]])
else
list(data)
View
@@ -337,6 +337,6 @@ mutableMatrixMarkup <- function(x, use.names, ...) {
ps("Column", 1:ncol(x))
list(markup = list(plain = x,
- html = htmlComponent,
- latex = x))
+ html = htmlComponent,
+ latex = x))
}

0 comments on commit 9fdd243

Please sign in to comment.