使用R Shiny中的滑块触发音频文件

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  titlePanel("滑块触发音频文件示例"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("volume", "音量", min = 0, max = 1, value = 0.5, step = 0.1)
    ),
    mainPanel(
      shiny::actionButton("play", "播放音频"),
      shiny::actionButton("stop", "停止播放")
    )
  )
)

server <- function(input, output) {
  observeEvent(input$play, {
    # 在这里编写播放音频的代码
    # 可以使用R的音频处理库，如audio或tuneR来实现音频播放功能
  })
  
  observeEvent(input$stop, {
    # 在这里编写停止播放音频的代码
  })
}

shinyApp(ui, server)

library(audio)

observeEvent(input$play, {
  # 播放音频文件
  audio_file <- system.file("extdata", "audio.wav", package = "audio")
  audio_obj <- audio::load(audio_file)
  audio::play(audio_obj, volume = input$volume)
})

observeEvent(input$stop, {
  # 停止播放音频
  audio::stopPlayback()
})