test_that("path_to_file_href() works", {
f <- kwb.nextcloud:::path_to_file_href
expect_true(startsWith(f(leading_slash = TRUE), "/remote.php/dav/files"))
expect_true(startsWith(f(leading_slash = FALSE), "remote.php/dav/files"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.