inst/shiny/R/widgets.R

In CohortExplorer: Explorer of Profiles of Patients in a Cohort

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))
  }