repeat_dataframe

repeat_dataframe.r

library(tidyverse)

A <- data.frame(x = 1:3, y = letters[1:3], stringsAsFactors = FALSE)
shape <- matrix(1, 2, 3)

rep_df <- function(df_, shape) {
  df_ %>% 
    list() %>% 
    matrix %>% 
    kronecker(shape, FUN = rep.int) %>% 
    as_tibble() %>% 
    unnest()
}
rep_df(A, shape)

## A tibble: 6 x 6
#      x y        x1 y1       x2 y2   
#  <int> <chr> <int> <chr> <int> <chr>
#1     1 a         1 a         1 a    
#2     2 b         2 b         2 b    
#3     3 c         3 c         3 c    
#4     1 a         1 a         1 a    
#5     2 b         2 b         2 b    
#6     3 c         3 c         3 c