tests/testthat/test_rbind.R

context("row binding")


# Clean testdata directory
if (!file.exists("testoutput")) {
  dir.create("testoutput")
} else {
  file.remove(list.files("testoutput", full.names = TRUE))
}


char_vec <- function(nr_of_rows) {
  sapply(1:nr_of_rows,
    function(x) {
      paste(sample(LETTERS, sample(1:4, 1)), collapse = "")
    })
  }

# Sample data
nr_of_rows <- 10000L
nr_of_levels <- 8

char_na <- char_vec(nr_of_rows)
char_na[sample(1:nr_of_rows, 10)] <- NA
datatable <- data.frame(
  Xint = 1:nr_of_rows,
  Ylog = sample(c(TRUE, FALSE, NA), nr_of_rows, replace = TRUE),
  Zdoub = rnorm(nr_of_rows),
  Qchar = char_vec(nr_of_rows),
  WFact = factor(sample(char_vec(nr_of_levels), nr_of_rows, replace = TRUE)),
  char_na = char_na,
  stringsAsFactors = FALSE)

Try the fst package in your browser

Any scripts or data that you put into this service are public.

fst documentation built on Feb. 8, 2022, 9:06 a.m.