R/tts_ITRI.R

In Rtts: Convert Text into Speech

tts_ITRI <- function(content, 
                     speed=0,
                     volume=100,
                     speaker="Bruce",
                     destfile=tempfile("Rtts", fileext = ".wav")){
  
  # check-1:
  #if the speaker argument meet the requirement
  if(!speaker %in% c("Bruce", "Theresa", "Angela", 
                    "MCHEN_Bruce", "MCHEN_Joddess",
                    "ENG_Bob", "ENG_Alice", "ENG_Tracy")){
    cat("The value for 'speaker' argument is invalid.\n")
    return()
  }
  
  # check-2:
  #if the speed argument meet the requirement
  if(speed > 10 | speed < -10){
    cat("The value for 'speed' argument is invalid.\n")
    return()
  }
  
  # check-3:
  #if the volume argument meet the requirement
  if(volume > 100 | volume < 0){
    cat("The value for 'volumn' argument is invalid.\n")
    return()
  }
  
  # revision for v0.32
  # use try() function to figure out the "Timed out" issue
  try(tmp_id <- tts_ITRI_getID(content, speed, volume, speaker), silent = TRUE)
  # the part below is inserted to help handle "Timed out" issue
  if(is.null(tmp_id) == TRUE){
    return(NULL)
  }
  
  
  # the part below is further modified in v0.32
  # need to insert a function to check if the convert is completed
  # here we check if the convert is completed. If not, wait for a while and check again
  status <- "good luck"
  while(status!="completed"){
    Sys.sleep(0.1)
    try(status <- tts_ITRI_getStatus(tmp_id), silent = TRUE)
    if(status == "good luck"){
      cat("\n The server is responding slowly. Please try again later.")
      return(NULL)
    }
  }
  
  # modified for v0.32
  try(tmp_url <- tts_ITRI_getURL(tmp_id), silent = TRUE)
  if(("tmp_url" %in% ls()) == FALSE){
    cat("\n The server is responding slowly. Please try again later.")
    return(NULL)
  }
  
  binary_file <- getURLContent(tmp_url)
  binary_file <- as.vector(binary_file)
  writeBin(binary_file, destfile)
  cat("The voice file is generated in:",destfile,"\n\n")
  
}