## extract storage from 'DistributedCorpus'
data(crude)
dc <- as.DistributedCorpus( crude )
dc_storage( dc )
## creating a new storage using 50MB chunks
dcs <- dc_storage_create(type = "local_disk", base_dir = tempfile(),
chunksize = 50 * 1024^2)
is.dc_storage( dcs )
Run the code above in your browser using DataLab