library(act)
# Get the transcript you want to export
t <- examplecorpus@transcripts[[1]]
# Create temporary file path
path <- tempfile(pattern = t@name, tmpdir = tempdir(),
fileext = ".TextGrid")
# It makes more sense, however, to you define a destination folder
# that is easier to access on your computer:
if (FALSE) {
path <- file.path("PATH_TO_AN_EXISTING_FOLDER_ON_YOUR_COMPUTER",
paste(t@name, ".TextGrid", sep=""))
}
# Export
act::export_textgrid(t=t, outputPath=path)
Run the code above in your browser using DataLab