if (FALSE) {
## Get attributes for new transcript
corpus <- getCorpusIds(labbcat.url)[1]
transcript.type.layer <- getLayer(labbcat.url, "transcript_type")
transcript.type <- transcript.type.layer$validLabels[[1]]
## upload transcript and its media
result <- transcriptUpload(labbcat.url, "my-transcript.eaf", "my-transcript.wav", FALSE)
## Changed our mind, cancel this upload
transcriptUploadDelete(labbcat.url, result$id)
}
Run the code above in your browser using DataLab