R/create_glue_df.R

In rock: Reproducible Open Coding Kit

create_glue_df <- function(x,
                           glue = "",
                           rows = 1) {

  return(
    stats::setNames(
      as.data.frame(
        matrix(
          rep(
            glue,
            rows * ncol(x)
          ),
          ncol = ncol(x)
        )
      ),
      names(x)
    )
  );

}