df <- eaf_to_df(system.file("extdata", "test.eaf", package = "phonfieldwork"))
df_to_eaf(df = df,
output_file = 'test.eaf',
ref_file = 'test.wav')
# Remove file in order to pass checks
file.remove("test.eaf")
Run the code above in your browser using DataLab