cognizer | R package to call IBM Watson services | Cloud Functions library

library(shiny)
library(cognizer)


#' the required api keys 
username_TTS <-""
password_TTS <- ""
TEXT_TO_SPEECH_USERNAME_PASSWORD = paste(username_TTS,":",password_TTS,sep="")

ui <- fluidPage(

   # Application title
   titlePanel("Just some text to speech example"),

   fluidRow(textInput("caption","Enter the caption"),actionButton("gobutton","submit")),
   fluidRow(verbatimTextOutput("answer"), width = 4),

  # plays from www/  
  fluidRow(tags$audio(src = "1.wav", type = "audio/wav", controls = NA), helpText("Key in any sentences, wait and press F5. Then you can play your audio"))


  )



server <- function(input, output) {

textfunction <- eventReactive(input$gobutton, {
    thetext <- input$caption
    text_audio(thetext, TEXT_TO_SPEECH_USERNAME_PASSWORD, directory = 'www', accept = "audio/wav")
    "Done!"

        })


output$answer <- renderText({textfunction()})


}

# Run the application 
shinyApp(ui = ui, server = server)