## Read from data.frame:
itempool_science <- loadItemPool(itempool_science_data)
## Read from file: write to tempdir() for illustration and clean afterwards
f <- file.path(tempdir(), "itempool_science.csv")
write.csv(itempool_science_data, f, row.names = FALSE)
itempool_science <- loadItemPool(f)
file.remove(f)
Run the code above in your browser using DataLab