闪亮的沃森文本到语音实时

Question

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)

我创建了一个应用程序，使用沃森将文本转换为语音。用户输入一个文本句子。单击submit，watson将转换为音频文件。但是，所播放的音频文件始终是以前的文本，除非您通过F5刷新应用程序。如何让音频播放器获取最新的音频文件？

示例: text1: hello和play将是"hello“text2:拜拜提交并播放，仍然"hello”直到i F5，然后当我单击play时，它的“拜拜”

Answer 1

这个问题与file对音频文件的缓存有关。正如here所描述的，一个解决方案可以帮助您：

查询后重命名wav文件，并使用服务器端的renderUI()和UI中的uiOutput()将其传递给反应性UI组件。

请参阅下面的工作实例：

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(
    uiOutput("play")
  )
)

server <- function(input, output) {
  observeEvent(input$gobutton, {
    unlink("www/*.wav")
    thetext <- input$caption
    text_audio(thetext, TEXT_TO_SPEECH_USERNAME_PASSWORD, directory = 'www', accept = "audio/wav")
    file.rename("www/1.wav", paste0("www/number",input$gobutton,".wav"))
    "Done!"
    output$play <- renderUI(
      tags$audio(src = paste0("temp.wav"), type = "audio/wav", controls = NA)
    )
    output$play <- renderUI(
      tags$audio(src = paste0("number", input$gobutton,".wav"), type = "audio/wav", controls = NA)
    )
    output$answer <- renderText(paste("Done!", input$gobutton))
  })
}

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