if (FALSE) {
test_audio <- system.file("woman1_wb.wav", package = "googleLanguageR")
## make an asynchronous API request (mandatory for sound files over 60 seconds)
asynch <- gl_speech(test_audio, asynch = TRUE)
## Send to gl_speech_op() for status or finished result
gl_speech_op(asynch)
}
Run the code above in your browser using DataLab