# Extract FileT path for sample file
sample_filet <- system.file('extdata','SAMPLE.CRT',package='DSSAT')
filet <- read_filet(sample_filet)
# Create example FileT file path
sample_filet2 <- paste0(tempdir(),'/SAMPLE.CRT')
# Write out sample FileA
write_filet(filet,sample_filet2)
Run the code above in your browser using DataLab