R/load.R

In sujeetp97/compare-functions: Compare functions or code snippets that traverses through a list-like parameter

# Utility functions

sampler <- function(collection, size){
  if(class(collection)[[1]] == "data.table"){
    return(collection[sample(c(1:NROW(collection)), size = size)])
  }else{
    return(sample(collection, size = size))
  }
}