revdep/library.noindex/baker/new/bslib/examples/build-a-box/R/code_modal.R

In zhenkewu/baker: "Nested Partially Latent Class Models"

code_modal <- function(code) {
  if (rlang::is_call(code)) {
    code <- rlang::expr_text(code)
  }

  if (requireNamespace("styler", quietly = TRUE)) {
    code <- styler::style_text(code)
  }

  code <- paste(code, collapse = "\n")

  showModal(
    modalDialog(
      HTML(sprintf(
        '<pre><code id="value-box-code">%s</code></pre>',
        code
      )),
      p(
        id = "copy-clipboard-not-supported",
        class = "text-muted d-none",
        HTML("Press <kbd>Ctrl</kbd>/<kbd>Cmd</kbd> + <kbd>C</kbd> to copy the value box example code.")
      ),
      tags$button(
        id = "copy-code-to-clipboard",
        class = "btn btn-outline-primary",
        onclick = "copyValueBoxCode()",
        "Copy to clipboard"
      ),
      singleton(tags$script(src = "code-modal.js")),
      footer = modalButton("Done"),
      easyClose = TRUE
    )
  )
}