menuItemFileInput <- function(inputId, text, icon = shiny::icon("file-text-o")) {
script <- "document.getElementById('%id%').click(); return false;"
script <- gsub("%id%", inputId, script)
list(div(fileInput(inputId, ""), style = "display: none;"),
tags$li(class = "treeview", a(href = "#", onclick = script, icon, text)))
}
menuItemDownloadLink <- function(inputId, label, icon = shiny::icon("floppy-o")) {
tags$li(class = "treeview",
tags$a(id = inputId,
class = "shiny-download-link",
href = "",
target = "_blank",
download = NA,
icon,
label))
}
menuItemCopyTextAreaToClipboard <- function(textAreaId, label, icon = shiny::icon("clipboard")) {
script <- "
element = $('<textarea>').appendTo('body').val(document.getElementById('%id%').value).select();
document.execCommand('copy');
element.remove();
return false;
"
script <- gsub("%id%", textAreaId, script)
tags$li(class = "treeview", a(href = "#", onclick = script, icon, label))
}
menuItemCopyDivToClipboard <- function(divId, label, icon = shiny::icon("clipboard")) {
script <- "
element = $('<textarea>').appendTo('body').val(document.getElementById('%id%').textContent).select();
document.execCommand('copy');
element.remove();
return false;
"
script <- gsub("%id%", divId, script)
tags$li(class = "treeview", a(href = "#", onclick = script, icon, label))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.