# Extract file path for sample cultivar file path
sample_cul_file <- system.file('extdata','SAMPLE.CUL',package='DSSAT')
# Read sample cultivar file
cul <- read_cul(sample_cul_file)
# Create example cultivar file path
sample_cul_file2 <- paste0(tempdir(),'/SAMPLE.CUL')
# Write out sample cultivar file
write_cul(cul,sample_cul_file2)
Run the code above in your browser using DataLab