fstpackage / synthetic
1
#  syntheticbench - R package for benchmarking of dataset serialization
2
#
3
#  Copyright (C) 2019-present, Mark AJ Klik
4
#
5
#  This file is part of the lazyvec R package.
6
#
7
#  The lazyvec R package is free software: you can redistribute it and/or modify it
8
#  under the terms of the GNU Affero General Public License version 3 as
9
#  published by the Free Software Foundation.
10
#
11
#  The lazyvec R package is distributed in the hope that it will be useful, but
12
#  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13
#  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License
14
#  for more details.
15
#
16
#  You should have received a copy of the GNU Affero General Public License along
17
#  with the lazyvec R package. If not, see <http://www.gnu.org/licenses/>.
18
#
19
#  You can contact the author at:
20
#  - syntheticbench R package source repository : https://github.com/fstpackage/syntheticbench
21

22

23
#' Define an object of class 'tablegenerator' that defines specific methods for
24
#' creation of a dataset
25
#'
26
#' @param id ID of the table generator (e.g. 'single column sparse')
27
#' @param generator method with signature f(nr_of_rows) that generates a data.frame
28
#'
29
#' @return a tablestreamer object
30
#' @export
31
table_generator <- function(id, generator) {
32 2
  x <- list(
33 2
    id = id,
34 2
    generator = generator
35
  )
36

37 2
  class(x) <- "tablegenerator"
38

39 2
  x
40
}

Read our documentation on viewing source code .

Loading