Skip to content

Commit

Permalink
trial 2
Browse files Browse the repository at this point in the history
  • Loading branch information
Melkiades committed Oct 27, 2023
1 parent 71a3b14 commit e0fa6d6
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/utils_split_funs.R
Original file line number Diff line number Diff line change
Expand Up @@ -127,7 +127,7 @@ ref_group_position <- function(position = "first") {
#' @export
keep_level_order <- make_split_fun(
post = list(
function(splret, spl, fulldf, ...) {
function(splret, spl, fulldf) {
ord <- order(names(splret$values))
make_split_result(
splret$values[ord],
Expand Down Expand Up @@ -165,7 +165,7 @@ keep_level_order <- make_split_fun(
level_order <- function(order) {
make_split_fun(
post = list(
function(splret, spl, fulldf, ...) {
function(splret, spl, fulldf) {
if (checkmate::test_integerish(order)) {
checkmate::assert_integerish(order, lower = 1, upper = length(splret$values))
ord <- order
Expand Down

0 comments on commit e0fa6d6

Please sign in to comment.