path_to_src <- file.path(getwd(), "testdata", fsep = .Platform$file.sep)
path_to_folder_without_r <- file.path(path_to_src, "dummy_folder_without_R", fsep = .Platform$file.sep)
path_to_folder_without_subfolders <- file.path(path_to_src, "dummy_folder_without_subfolders", fsep = .Platform$file.sep)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.