实时文本语音转换 库（闪亮） 图书馆（认知者） #'所需的api密钥 username\u TTS

问题与Shiny对音频文件的缓存有关。如前所述，解决方法可以帮助您：

查询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(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)

库（闪亮）
图书馆（认知者）
#所需的api密钥
你好，罗伯特，我正在读这篇文章。这是同样的问题。但是，由于watson函数将wav文件输出为1.wav，因此我一直无法重命名wav文件。我尝试了许多方法。我修改了函数以执行file.rename。在UI中呈现并输出。所有音频文件都已创建但未播放。问题2：播放后如何删除音频文件。每次提交文本时，音频文件都会永久保存在目录中。我添加了一个工作示例。您可以使用
file.remove（）
删除不必要的文件。我担心如果你有多个客户端使用你的应用程序，那么这个版本就不是一个特别稳定的版本。谢谢@Robert我设法制作了一个工作版本，但我不能让它读超过一个单词。你的版本很好用！现在，来弄清楚这是怎么回事。我正在试验。所以，对于多个usershow，我是否特别担心file.remove？是否有我可以指定的文件，播放音频文件后删除？
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)