base version of tibble::tribble()

datarow.R

datarows <- function(...) {
  ls <- list(...)
  w <- which(vapply(ls, inherits, NA, "formula"))
  n <- length(w)
  cols <- as.character(ls[w])
  cols <- substr(cols, 2, nchar(cols))
  ls <- ls[-w]
  sa <- seq_along(ls)
  sa <- (sa - 1) %% n
  res <- lapply(split(ls, sa), unlist)
  names(res) <- cols
  as.data.frame(res, check.names = FALSE)
}

datarows(
  ~one, ~two, ~three,
  1, 2, 3,
  4, 5, 6
)
#>   one two three
#> 1   1   2     3
#> 2   4   5     6

str(datarows(
  ~one, ~two, ~three,
  "a", 2, 3,
  "b", 5, 6
))
#> 'data.frame':    2 obs. of  3 variables:
#>  $ one  : chr  "a" "b"
#>  $ two  : num  2 5
#>  $ three: num  3 6