# Extract FileA path for sample file
sample_filea <- system.file('extdata','SAMPLE.CRA',package='DSSAT')
filea <- read_filea(sample_filea)
# Create example FileA file path
sample_filea2 <- paste0(tempdir(),'/SAMPLE.CRA')
# Write out sample FileA
write_filea(filea,sample_filea2)
Run the code above in your browser using DataLab