R/mod_options_ui.R

In ashbaldry/designer: 'Shiny' UI Prototype Builder

OptionsModUI <- function(id) {
  ns <- NS(id)

  tagList(
    tags$form(
      class = "px-2",
      tagAppendAttributes(
        textInput(
          ns("app_name"),
          label = "Application Title",
          value = "Shiny Application",
          width = "100%"
        ),
        class = "setting-input"
      ),
      CSSFileInput(
        ns("css_style"),
        label = "Apply CSS Style"
      ),
      checkboxInput(
        ns("remove_label"),
        label = "Show Component Labels",
        value = TRUE
      ),
      checkboxInput(
        ns("remove_colour"),
        label = "Show Colour Background",
        value = TRUE
      ),
      checkboxInput(
        ns("remove_border"),
        label = "Show Borders",
        value = TRUE
      ),
      tags$button(
        id = ns("preview"),
        type = "button",
        class = "btn btn-secondary btn-block",
        "Preview Full Page"
      ),
      screenshtButton(
        btn_id = ns("screenshot"),
        class = "btn-secondary btn-block",
        scale = 1.5
      ),
      tags$button(
        id = ns("canvas_clear"),
        type = "button",
        class = "btn btn-danger btn-block",
        "Clear Page"
      )
    )
  )
}