Nothing
test_that("tunings and mappings work", {
standard <- "e,a,dgbe'"
x <- c(standard, "e2 a2 d3 g3 b3 e4", "e2 a, d g b e'", "standard")
purrr::walk(x, ~expect_identical(.map_tuning(.x), standard))
expect_identical(.map_tuning(tunings$id[5]), tunings$value[5])
err <- "Invalid `tuning`."
purrr::walk(c("dropDx", "DADGADx", "A", " h"),
~expect_error(.map_tuning(.x), err))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.