popup size

Published by onesixx on

g_fun.R

bsModalNoFoot – size

bsModalNoFoot <- function (id, title, trigger, ..., easyClose = FALSE, size) {
  if (!missing(size)) {
    if (size == "large") {
      size = "modal-lg"
    }
    else if (size == "small") {
      size = "modal-sm"
    }
    size <- paste("modal-dialog", size)
  }
  else {
    size <- "modal-dialog"
  }
  bsTag <- shiny::tags$div(class = "modal sbs-modal fade", 
                           id = id, tabindex = "-1", `data-sbs-trigger` = trigger, `data-backdrop` = if (!easyClose) "static", `data-keyboard` = if (!easyClose) "false",
                           shiny::tags$div(class = size, shiny::tags$div(class = "modal-content", 
                                                                         shiny::tags$div(class = "modal-header", shiny::tags$button(type = "button", 
                                                                                                                                    class = "close", `data-dismiss` = "modal", shiny::tags$span(shiny::HTML("&times;"))), 
                                                                                         shiny::tags$h4(class = "modal-title", title)), 
                                                                         shiny::tags$div(class = "modal-body", list(...))
                           )))
  htmltools::attachDependencies(bsTag, shinyBS:::shinyBSDep)
}

ui.R

modal-lg

# Set Dashboard
 UI ======================================================= ----
ui <- dashboardPage(skin = "black",
                    dashCustomHeader(title = "D2CM2.0 Subsystem",
                                     dropdownMenu(type = "notifications")),
                    dashboardSidebar(collapsed = T,
                                     sidebarMenuOutput(outputId = "sidebarmenu")),
                                     # sidebarMenu(id = "sidebarmenu",
                                     #             menuItemOutput (outputId = "dy_menu_all"),
                                     #             menuItemOutput (outputId = "dy_menu_admin"),
                                     #             menuItemOutput (outputId = "dy_menu_logout"))),
                    dashboardBody(useShinyjs(), tags$style(appCSS),
                                  tags$head(tags$style(HTML('.modal-lg {width: 1300px;}'))),
                                  uiOutput("body")))

u_1.R

large

                                                 bsModalNoFoot(id = "subMgmt_modal_viewParams2", title = "Parameters in Selected Model", trigger = NULL, size = "large",
                                                               fluidRow(column(width = 6,
                                                                               selectInput(inputId = "subMgmt_select_models2",
                                                                                           label = NULL,
                                                                                           choices = "",
                                                                                           selected = "")),
                                                                        column(width = 2, offset = 4,
                                                                               withBusyIndicatorUI(actionButton(inputId = "subMgmt_btn_closeViewParamsModal2",
                                                                                                                label = "Close",
                                                                                                                width = "100%")))),
                                                               rHandsontableOutput(outputId = "subMgmt_tbl_viewParams2",
                                                                                   width = "100%"))),

 

 

 

 

Categories: PjR Presentation

onesixx

Blog Owner

Subscribe
Notify of
guest

0 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
0
Would love your thoughts, please comment.x
()
x