From ee23b5fc7cceaaab72ee5eb4dbf08944f5ecac99 Mon Sep 17 00:00:00 2001 From: Anh Le Date: Tue, 30 Aug 2016 12:23:41 -0400 Subject: [PATCH] Resolve #140. - Test for frame_matrix() basic functionalities - Extract the code that parses tribble(...) arguments. Re-use that code for both tribble and frame_matrix --- R/tribble.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/R/tribble.R b/R/tribble.R index 3676ece0f..e6803dbb2 100644 --- a/R/tribble.R +++ b/R/tribble.R @@ -77,9 +77,7 @@ extract_data <- function(...) { i <- 1 while (TRUE) { if (i > length(dots)) { - out <- rep(list(logical()), length(frame_names)) - names(out) <- frame_names - return(as_tibble(out)) + return(list(frame_names = frame_names, frame_rest = NULL)) } el <- dots[[i]]