Skip to content
R interface to wavesurfer
JavaScript R Other
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
R first version Sep 11, 2019
data-raw
data visualization spectrogram Sep 9, 2019
inst add colourpicker, shinyWidgets and tuneR to DESCRIPTION Sep 11, 2019
man first version Sep 11, 2019
templates yellow region color Sep 9, 2019
tests dummy docs Sep 1, 2019
vignettes -elan Sep 8, 2019
.Rbuildignore dummy docs Sep 1, 2019
.bowerrc visualization spectrogram Sep 9, 2019
.gitignore play pause playPause destroy Aug 31, 2019
DESCRIPTION add colourpicker, shinyWidgets and tuneR to DESCRIPTION Sep 11, 2019
LICENSE dummy docs Sep 1, 2019
LICENSE.md
NAMESPACE first version Sep 11, 2019
README.Rmd wikiaves readme Sep 15, 2019
README.md wikiaves readme Sep 15, 2019
annotator.R readme++ Sep 11, 2019
wavesurfer.Rproj

README.md

wavesurfer

CRAN status Lifecycle: experimental

An interactive soundwave player and visualizer with rich set of plugins. It works well with pipe (%>%) and can be used in Shiny. It is an interface of ‘wavesurfer.js’ JavaScript library and it is based on ‘htmlwidgets’ R package.

Installation

# install.packages("remotes")
remotes::install_github("Athospd/wavesurfer")

Examples

Usage at shiny app:

library(wavesurfer)
library(shiny)

ui <- fluidPage(
  wavesurferOutput("my_ws"),
  tags$p("Press spacebar to toggle play/pause."),
  actionButton("mute", "Mute", icon = icon("volume-off"))
)

server <- function(input, output, session) {
  output$my_ws <- renderWavesurfer({
    wavesurfer(audio = "http://ia902606.us.archive.org/35/items/shortpoetry_047_librivox/song_cjrg_teasdale_64kb.mp3") %>%
      ws_set_wave_color('#5511aa') %>%
      ws_spectrogram() %>%
      ws_cursor()
  })
  
  observeEvent(input$mute, {
    ws_toggle_mute("my_ws")
  })
}

shinyApp(ui = ui, server = server)

Annotator

live app: athos.shinyapps.io/wavesurfer_annotator/

wavesurfer::runExample("annotator")

Plugins

live app: athos.shinyapps.io/wavesurfer_plugins/

wavesurfer::runExample("plugins")

Wave Decorations

live app: athos.shinyapps.io/wavesurfer_decoration/

wavesurfer::runExample("decoration")

Acknowledgement

The main actors that made this package possible were:

Thank you very much for your work.

You can’t perform that action at this time.