From f971f3fd11efdc8749c7e2d74c28fdd4fbdae2c3 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Wed, 8 Sep 2021 10:49:35 -0400
Subject: [PATCH 01/43] Use `span` instead of `p` tags in `menuSidebarItems`
 such that word wrapping happens appropriately

---
 R/dashboardSidebar.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/dashboardSidebar.R b/R/dashboardSidebar.R
index 648f9aed..b6e4ce7b 100644
--- a/R/dashboardSidebar.R
+++ b/R/dashboardSidebar.R
@@ -409,7 +409,7 @@ bs4SidebarMenuItem <- function(text, ..., icon = NULL, badgeLabel = NULL, badgeC
           # needed by leftSidebar.js
           `data-start-selected` = if (isTRUE(selected)) 1 else NULL,
           icon,
-          shiny::tags$p(text, badgeTag)
+          shiny::tags$span(text, badgeTag)
         )
       )
     )
@@ -449,7 +449,7 @@ bs4SidebarMenuItem <- function(text, ..., icon = NULL, badgeLabel = NULL, badgeC
         class = "nav-link",
         `data-start-selected` = if (isTRUE(selected)) 1 else NULL,
         icon,
-        shiny::tags$p(
+        shiny::tags$span(
           text,
           shiny::tags$i(class = "right fas fa-angle-left")
         )
@@ -512,7 +512,7 @@ bs4SidebarMenuSubItem <- function(text, tabName = NULL, href = NULL,
       # below this is needed by leftSidebar.js
       `data-start-selected` = if (isTRUE(selected)) 1 else NULL,
       icon,
-      shiny::tags$p(text)
+      shiny::tags$span(text)
     )
   )
 }

From 8279d5208f201f28b37806a810606f7d6942f3ea Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Mon, 13 Sep 2021 15:43:06 -0400
Subject: [PATCH 02/43] Add auto-reload when maximized to hopefully fix resize
 issues on Mac Safari

---
 R/cards.R | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/R/cards.R b/R/cards.R
index 47960e91..cfeea5c5 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -279,7 +279,24 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
         auto_unbox = TRUE,
         json_verbatim = TRUE
       )
-    )
+    ),
+    if (maximizable)
+      shiny::tags$script(
+        type = "text/javascript",
+        paste0("
+               $(document).ready(function() {
+               $('[data-card-widget=\"maximize\"]').on('click', function() {
+                setTimeout(function() {
+                  var isMaximized = $('html').hasClass('maximized-card');
+                  if (isMaximized) {
+                   window.location.reload()
+                  }
+                }, 300);
+                $('#",ifelse(is.null(id), "", paste0("#",id)),"').trigger('resize');
+              });
+               }
+               ")
+      )
   )
 }
 

From 1952f9eaa378a0a7b3a90ff645a0b905ae0b1548 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Mon, 13 Sep 2021 19:27:32 -0400
Subject: [PATCH 03/43] Add `tip_icon` argument to `bs4Card`, add `tippy` to
 suggests

---
 DESCRIPTION |  1 +
 R/cards.R   | 36 ++++++++++++++++++++++++++++++++++--
 2 files changed, 35 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index cb39d2ac..a7638ea9 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -33,6 +33,7 @@ Suggests:
     golem,
     DT, 
     thematic (>= 0.1.2),
+    tippy,
     echarts4r
 Encoding: UTF-8
 RoxygenNote: 7.1.1.9000
diff --git a/R/cards.R b/R/cards.R
index cfeea5c5..0b01bd23 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -69,6 +69,7 @@
 #' @param closable If TRUE, display a button in the upper right that allows the user to close the box.
 #' @param maximizable If TRUE, the card can be displayed in full screen mode.
 #' @param icon Header icon. Displayed before title. Expect \code{\link[shiny]{icon}}.
+#' @param tip_icon Tip icon. Tooltip Icon displayed after title. Expect \code{\link[tippy]{tippy}}.
 #' @param gradient Whether to allow gradient effect for the background color. Default to FALSE.
 #' @param boxToolSize Size of the toolbox: choose among "xs", "sm", "md", "lg".
 #' @param elevation Card elevation.
@@ -137,7 +138,7 @@
 #' @export
 bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
                     solidHeader = FALSE, background = NULL, width = 6, height = NULL,
-                    collapsible = TRUE, collapsed = FALSE, closable = FALSE, maximizable = FALSE, icon = NULL,
+                    collapsible = TRUE, collapsed = FALSE, closable = FALSE, maximizable = FALSE, icon = NULL, tip_icon = NULL,
                     gradient = FALSE, boxToolSize = "sm", elevation = NULL, headerBorder = TRUE, label = NULL, dropdownMenu = NULL,
                     sidebar = NULL, id = NULL) {
 
@@ -242,7 +243,7 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
 
   headerTag <- shiny::tags$div(
     class = if (headerBorder) "card-header" else "card-header border-0",
-    shiny::tags$h3(class = "card-title", icon, title)
+    shiny::tags$h3(class = "card-title", icon, title, tip_icon)
   )
   headerTag <- shiny::tagAppendChild(headerTag, cardToolTag)
 
@@ -283,6 +284,36 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
     if (maximizable)
       shiny::tags$script(
         type = "text/javascript",
+      #   paste0("
+      #   $(document).ready(function() {
+      #   var ids = $('div",ifelse(is.null(id), "", paste0("#",id))," div.card-body div').map(function(){
+      # return $(this).attr('id');
+      # }).get();
+      # function resizeBoxContent(trigger, target) {
+      #         var target = '#' + target
+      #         $(trigger).on('click', function() {
+      #           setTimeout(function() {
+      #             var isMaximized = $('html').hasClass('maximized-card');
+      #               if (isMaximized) {
+      #                 $(target).css('height', '100%');
+      #                 $(target).css('width', 'auto');
+      #               } else {
+      #                 $(target).css('height', '400px');
+      #                 $(target).css('width', 'auto');
+      #               }
+      #             console.log('resizing '+ target)
+      #           }, 300);
+      #           $(target).trigger('resize');
+      #         });
+      #       };
+      # setTimeout(function() {
+      #         ids.map(function(x){
+      #           resizeBoxContent('div.card button[data-card-widget=\"maximize\"]', x);
+      #         })
+      #         
+      #       }, 500);
+      # console.log(ids);
+      # });"),
         paste0("
                $(document).ready(function() {
                $('[data-card-widget=\"maximize\"]').on('click', function() {
@@ -297,6 +328,7 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
                }
                ")
       )
+      
   )
 }
 

From 34aaceeee7805e3aa95db85864d93a78e06de1a6 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Fri, 17 Sep 2021 07:56:47 -0400
Subject: [PATCH 04/43] Apply style to card, not card-body

---
 R/cards.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/cards.R b/R/cards.R
index 0b01bd23..65d7bfa1 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -251,7 +251,6 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
   # body
   bodyTag <- shiny::tags$div(
     class = "card-body",
-    style = style,
     ...,
     sidebar[[2]]
   )
@@ -264,7 +263,7 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
     )
   }
 
-  cardTag <- shiny::tags$div(class = cardCl, id = id)
+  cardTag <- shiny::tags$div(class = cardCl, id = id, style = style)
   cardTag <- shiny::tagAppendChildren(cardTag, headerTag, bodyTag, footerTag)
   
   # wrapper

From 8d4db645f857aa1395b5c0af82ea89741e929eb1 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Mon, 27 Sep 2021 19:51:39 -0400
Subject: [PATCH 05/43] Fix collapse on app start

---
 inst/bs4Dash-2.0.2/bs4Dash-old.min.js |  2 ++
 inst/bs4Dash-2.0.2/bs4Dash.js         | 14 +++++++++-----
 inst/bs4Dash-2.0.2/bs4Dash.min.js     |  3 +--
 3 files changed, 12 insertions(+), 7 deletions(-)
 create mode 100644 inst/bs4Dash-2.0.2/bs4Dash-old.min.js

diff --git a/inst/bs4Dash-2.0.2/bs4Dash-old.min.js b/inst/bs4Dash-2.0.2/bs4Dash-old.min.js
new file mode 100644
index 00000000..9f0aca32
--- /dev/null
+++ b/inst/bs4Dash-2.0.2/bs4Dash-old.min.js
@@ -0,0 +1,2 @@
+var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",(function(a){t()})),$(a).find('[data-toggle="collapse"]').on("click",(function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()}))},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",(function(a){setTimeout((function(){t()}),500)})),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",(function(a){t()})),$(a).on("removed.lte.cardwidget",(function(a){setTimeout((function(){t()}),500)})),$(a).on("shown.cardBinding",(function(a){t()})),$(a).on("change.cardBinding",(function(a){setTimeout((function(){t()}),500)}))},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout((function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})}),300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup((function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()}))},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",(function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout((function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()}),10)}))},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$((function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",(function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")})),$(window).click((function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}})),$("#controlbarPin").on("click",(function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))}));var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",(function(e){$(a).trigger("shown"),setTimeout((function(){t()}),10)}))},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")})),$((function(){Shiny.addCustomMessageHandler("create-tooltip",(function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)})),Shiny.addCustomMessageHandler("remove-tooltip",(function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))})),Shiny.addCustomMessageHandler("create-popover",(function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)})),Shiny.addCustomMessageHandler("remove-popover",(function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))})),Shiny.addCustomMessageHandler("toast",(function(a){$(document).Toasts("create",a)})),Shiny.addCustomMessageHandler("create-alert",(function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",(function(){Shiny.setInputValue(a.id,!1,{priority:"event"})})),$('[data-dismiss="alert"]').on("click",(function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")}))):console.warn(`${t} already has an alert!`)})),Shiny.addCustomMessageHandler("close-alert",(function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")}))}));var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout((function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")}),10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$((function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",(function(){$(window).trigger("resize")})),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",(function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout((function(){t.trigger("change")}),600)}));var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each((function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1}))},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",(function(){t()}))},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",(function(a){t()}))},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",(function(){t()}))},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini")})),$((function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",(function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()})),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each((function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")})),$('.user-block [data-toggle="collapse"]').on("click",(function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")})),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",(function(){$(this).css("opacity","1")})),t.on("mouseout",(function(){$(this).css("opacity",".7")})),$(".wrapper").append(t),$(window).scroll((function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)})),$(t).click((function(){$("html, body").animate({scrollTop:0},500)}))}if($(".main-sidebar .nav-item").on("click",(function(){$("html, body").animate({scrollTop:0},0)})),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",(function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))})),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",(function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})})),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",(function(){var a;$(".navbar-themer-chip").filter((function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))})),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))})),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",(function(){$("#customSwitch1").click()}))}$(".themer-chip").hover((function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")}),(function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")})),$(".navbar-themer-chip").on("click",(function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})})),$(".accents-themer-chip").on("click",(function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})})),$(".sidebar-themer-chip").on("click",(function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})})),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach((function(a){t.removeClass(a)})),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",(function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))}));var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach((function(a){e.removeClass(a)})),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach((function(a){e.removeClass(a)})),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",(function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))}))})),$((function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")}));var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each((function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)}))}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",(function(a){t()}))},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",(function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()}));
+//# sourceMappingURL=bs4Dash.min.js.map
diff --git a/inst/bs4Dash-2.0.2/bs4Dash.js b/inst/bs4Dash-2.0.2/bs4Dash.js
index 226ba87c..965a276f 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.js
@@ -1251,16 +1251,20 @@ $(function() {
     //$('body').Layout('fixLayoutHeight');
   }
 
+  
+
+  var sidebarMinified = $(".main-sidebar").attr("data-minified");
+  if (sidebarMinified === "true") {
+    $("body").addClass("sidebar-mini");
+  }
+  
   // toggle sidebar at start depending on the body class
   var sidebarCollapsed = $(".main-sidebar").attr("data-collapsed");
   if (sidebarCollapsed === "true") {
+    console.log("sidebar toggled")
     // This triggers binding geValue
     $("[data-widget='pushmenu']").PushMenu("toggle");
-  }
-
-  var sidebarMinified = $(".main-sidebar").attr("data-minified");
-  if (sidebarMinified === "true") {
-    $("body").addClass("sidebar-mini");
+    $(".sidebar-mini").addClass("sidebar-collapse")
   }
 });
 
diff --git a/inst/bs4Dash-2.0.2/bs4Dash.min.js b/inst/bs4Dash-2.0.2/bs4Dash.min.js
index 9f0aca32..7452ce17 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.min.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.min.js
@@ -1,2 +1 @@
-var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",(function(a){t()})),$(a).find('[data-toggle="collapse"]').on("click",(function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()}))},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",(function(a){setTimeout((function(){t()}),500)})),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",(function(a){t()})),$(a).on("removed.lte.cardwidget",(function(a){setTimeout((function(){t()}),500)})),$(a).on("shown.cardBinding",(function(a){t()})),$(a).on("change.cardBinding",(function(a){setTimeout((function(){t()}),500)}))},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout((function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})}),300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup((function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()}))},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",(function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout((function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()}),10)}))},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$((function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",(function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")})),$(window).click((function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}})),$("#controlbarPin").on("click",(function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))}));var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",(function(e){$(a).trigger("shown"),setTimeout((function(){t()}),10)}))},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")})),$((function(){Shiny.addCustomMessageHandler("create-tooltip",(function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)})),Shiny.addCustomMessageHandler("remove-tooltip",(function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))})),Shiny.addCustomMessageHandler("create-popover",(function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)})),Shiny.addCustomMessageHandler("remove-popover",(function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))})),Shiny.addCustomMessageHandler("toast",(function(a){$(document).Toasts("create",a)})),Shiny.addCustomMessageHandler("create-alert",(function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",(function(){Shiny.setInputValue(a.id,!1,{priority:"event"})})),$('[data-dismiss="alert"]').on("click",(function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")}))):console.warn(`${t} already has an alert!`)})),Shiny.addCustomMessageHandler("close-alert",(function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")}))}));var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout((function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")}),10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$((function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",(function(){$(window).trigger("resize")})),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",(function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout((function(){t.trigger("change")}),600)}));var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each((function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1}))},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",(function(){t()}))},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",(function(a){t()}))},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",(function(){t()}))},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini")})),$((function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",(function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()})),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each((function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")})),$('.user-block [data-toggle="collapse"]').on("click",(function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")})),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",(function(){$(this).css("opacity","1")})),t.on("mouseout",(function(){$(this).css("opacity",".7")})),$(".wrapper").append(t),$(window).scroll((function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)})),$(t).click((function(){$("html, body").animate({scrollTop:0},500)}))}if($(".main-sidebar .nav-item").on("click",(function(){$("html, body").animate({scrollTop:0},0)})),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",(function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))})),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",(function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})})),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",(function(){var a;$(".navbar-themer-chip").filter((function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))})),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))})),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",(function(){$("#customSwitch1").click()}))}$(".themer-chip").hover((function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")}),(function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")})),$(".navbar-themer-chip").on("click",(function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})})),$(".accents-themer-chip").on("click",(function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})})),$(".sidebar-themer-chip").on("click",(function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})})),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach((function(a){t.removeClass(a)})),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",(function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))}));var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach((function(a){e.removeClass(a)})),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach((function(a){e.removeClass(a)})),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",(function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))}))})),$((function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")}));var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each((function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)}))}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",(function(a){t()}))},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",(function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()}));
-//# sourceMappingURL=bs4Dash.min.js.map
+var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",function(a){t()}),$(a).find('[data-toggle="collapse"]').on("click",function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()})},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",function(a){t()}),$(a).on("removed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("shown.cardBinding",function(a){t()}),$(a).on("change.cardBinding",function(a){setTimeout(function(){t()},500)})},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout(function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})},300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup(function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()})},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout(function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()},10)})},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$(function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")}),$(window).click(function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}}),$("#controlbarPin").on("click",function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))});var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",function(e){$(a).trigger("shown"),setTimeout(function(){t()},10)})},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")}),$(function(){Shiny.addCustomMessageHandler("create-tooltip",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-tooltip",function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("create-popover",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-popover",function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("toast",function(a){$(document).Toasts("create",a)}),Shiny.addCustomMessageHandler("create-alert",function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",function(){Shiny.setInputValue(a.id,!1,{priority:"event"})}),$('[data-dismiss="alert"]').on("click",function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")})):console.warn(`${t} already has an alert!`)}),Shiny.addCustomMessageHandler("close-alert",function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")})});var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout(function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")},10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$(function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",function(){$(window).trigger("resize")}),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout(function(){t.trigger("change")},600)});var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each(function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1})},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini"),"true"===$(".main-sidebar").attr("data-collapsed")&&(console.log("sidebar toggled"),$("[data-widget='pushmenu']").PushMenu("toggle"),$(".sidebar-mini").addClass("sidebar-collapse"))}),$(function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()}),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each(function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")}),$('.user-block [data-toggle="collapse"]').on("click",function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")}),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",function(){$(this).css("opacity","1")}),t.on("mouseout",function(){$(this).css("opacity",".7")}),$(".wrapper").append(t),$(window).scroll(function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)}),$(t).click(function(){$("html, body").animate({scrollTop:0},500)})}if($(".main-sidebar .nav-item").on("click",function(){$("html, body").animate({scrollTop:0},0)}),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))}),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})}),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",function(){var a;$(".navbar-themer-chip").filter(function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))}),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))}),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",function(){$("#customSwitch1").click()})}$(".themer-chip").hover(function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")},function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")}),$(".navbar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".accents-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".sidebar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})}),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach(function(a){t.removeClass(a)}),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))});var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach(function(a){e.removeClass(a)}),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach(function(a){e.removeClass(a)}),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))})}),$(function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")});var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each(function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)})}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()});
\ No newline at end of file

From c36ba638d54af1a04807b6f71700adcff2392ee6 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Mon, 27 Sep 2021 21:25:46 -0400
Subject: [PATCH 06/43] remove `console.log`

---
 inst/bs4Dash-2.0.2/bs4Dash.js | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inst/bs4Dash-2.0.2/bs4Dash.js b/inst/bs4Dash-2.0.2/bs4Dash.js
index 965a276f..719296e6 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.js
@@ -1261,7 +1261,7 @@ $(function() {
   // toggle sidebar at start depending on the body class
   var sidebarCollapsed = $(".main-sidebar").attr("data-collapsed");
   if (sidebarCollapsed === "true") {
-    console.log("sidebar toggled")
+    
     // This triggers binding geValue
     $("[data-widget='pushmenu']").PushMenu("toggle");
     $(".sidebar-mini").addClass("sidebar-collapse")

From 2f59b6acc47fe2f3bc71cf127d165ca9487d1264 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Wed, 29 Sep 2021 20:24:31 -0400
Subject: [PATCH 07/43] Comment out resize stuff that isn't working. Fix the
 sidebar collapsed on start

---
 R/cards.R                         | 38 +++++++++++++++----------------
 inst/bs4Dash-2.0.2/bs4Dash.js     | 10 ++++++--
 inst/bs4Dash-2.0.2/bs4Dash.min.js |  2 +-
 3 files changed, 28 insertions(+), 22 deletions(-)

diff --git a/R/cards.R b/R/cards.R
index 65d7bfa1..fc8be6f8 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -279,10 +279,10 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
         auto_unbox = TRUE,
         json_verbatim = TRUE
       )
-    ),
-    if (maximizable)
-      shiny::tags$script(
-        type = "text/javascript",
+    )
+    # , if (maximizable)
+      # shiny::tags$script(
+      #   type = "text/javascript",
       #   paste0("
       #   $(document).ready(function() {
       #   var ids = $('div",ifelse(is.null(id), "", paste0("#",id))," div.card-body div').map(function(){
@@ -309,24 +309,24 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
       #         ids.map(function(x){
       #           resizeBoxContent('div.card button[data-card-widget=\"maximize\"]', x);
       #         })
-      #         
+      # 
       #       }, 500);
       # console.log(ids);
       # });"),
-        paste0("
-               $(document).ready(function() {
-               $('[data-card-widget=\"maximize\"]').on('click', function() {
-                setTimeout(function() {
-                  var isMaximized = $('html').hasClass('maximized-card');
-                  if (isMaximized) {
-                   window.location.reload()
-                  }
-                }, 300);
-                $('#",ifelse(is.null(id), "", paste0("#",id)),"').trigger('resize');
-              });
-               }
-               ")
-      )
+        # paste0("
+        #        $(document).ready(function() {
+        #        $('[data-card-widget=\"maximize\"]').on('click', function() {
+        #         setTimeout(function() {
+        #           var isMaximized = $('html').hasClass('maximized-card');
+        #           if (isMaximized) {
+        #            window.location.reload()
+        #           }
+        #         }, 300);
+        #         $('",ifelse(is.null(id), "", paste0(id)),"').resize();
+        #       });
+        #        }
+        #        ")
+      # )
       
   )
 }
diff --git a/inst/bs4Dash-2.0.2/bs4Dash.js b/inst/bs4Dash-2.0.2/bs4Dash.js
index 719296e6..82b98587 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.js
@@ -1261,10 +1261,8 @@ $(function() {
   // toggle sidebar at start depending on the body class
   var sidebarCollapsed = $(".main-sidebar").attr("data-collapsed");
   if (sidebarCollapsed === "true") {
-    
     // This triggers binding geValue
     $("[data-widget='pushmenu']").PushMenu("toggle");
-    $(".sidebar-mini").addClass("sidebar-collapse")
   }
 });
 
@@ -2038,3 +2036,11 @@ Shiny.addCustomMessageHandler("user-messages", function(message) {
   Shiny.initializeInputs();
   Shiny.bindAll(); // bind all inputs/outputs
 });
+
+$(document).ready(function(){
+var sidebarCollapsed = $(".main-sidebar").attr("data-collapsed");
+  if (sidebarCollapsed === "true") {
+    // This triggers binding geValue
+    $("[data-widget='pushmenu']").PushMenu("toggle");
+  }  
+});
\ No newline at end of file
diff --git a/inst/bs4Dash-2.0.2/bs4Dash.min.js b/inst/bs4Dash-2.0.2/bs4Dash.min.js
index 7452ce17..548a657d 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.min.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.min.js
@@ -1 +1 @@
-var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",function(a){t()}),$(a).find('[data-toggle="collapse"]').on("click",function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()})},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",function(a){t()}),$(a).on("removed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("shown.cardBinding",function(a){t()}),$(a).on("change.cardBinding",function(a){setTimeout(function(){t()},500)})},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout(function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})},300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup(function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()})},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout(function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()},10)})},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$(function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")}),$(window).click(function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}}),$("#controlbarPin").on("click",function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))});var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",function(e){$(a).trigger("shown"),setTimeout(function(){t()},10)})},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")}),$(function(){Shiny.addCustomMessageHandler("create-tooltip",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-tooltip",function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("create-popover",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-popover",function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("toast",function(a){$(document).Toasts("create",a)}),Shiny.addCustomMessageHandler("create-alert",function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",function(){Shiny.setInputValue(a.id,!1,{priority:"event"})}),$('[data-dismiss="alert"]').on("click",function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")})):console.warn(`${t} already has an alert!`)}),Shiny.addCustomMessageHandler("close-alert",function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")})});var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout(function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")},10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$(function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",function(){$(window).trigger("resize")}),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout(function(){t.trigger("change")},600)});var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each(function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1})},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini"),"true"===$(".main-sidebar").attr("data-collapsed")&&(console.log("sidebar toggled"),$("[data-widget='pushmenu']").PushMenu("toggle"),$(".sidebar-mini").addClass("sidebar-collapse"))}),$(function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()}),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each(function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")}),$('.user-block [data-toggle="collapse"]').on("click",function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")}),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",function(){$(this).css("opacity","1")}),t.on("mouseout",function(){$(this).css("opacity",".7")}),$(".wrapper").append(t),$(window).scroll(function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)}),$(t).click(function(){$("html, body").animate({scrollTop:0},500)})}if($(".main-sidebar .nav-item").on("click",function(){$("html, body").animate({scrollTop:0},0)}),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))}),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})}),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",function(){var a;$(".navbar-themer-chip").filter(function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))}),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))}),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",function(){$("#customSwitch1").click()})}$(".themer-chip").hover(function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")},function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")}),$(".navbar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".accents-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".sidebar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})}),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach(function(a){t.removeClass(a)}),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))});var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach(function(a){e.removeClass(a)}),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach(function(a){e.removeClass(a)}),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))})}),$(function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")});var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each(function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)})}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()});
\ No newline at end of file
+var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",function(a){t()}),$(a).find('[data-toggle="collapse"]').on("click",function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()})},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",function(a){t()}),$(a).on("removed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("shown.cardBinding",function(a){t()}),$(a).on("change.cardBinding",function(a){setTimeout(function(){t()},500)})},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout(function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})},300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup(function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()})},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout(function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()},10)})},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$(function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")}),$(window).click(function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}}),$("#controlbarPin").on("click",function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))});var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",function(e){$(a).trigger("shown"),setTimeout(function(){t()},10)})},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")}),$(function(){Shiny.addCustomMessageHandler("create-tooltip",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-tooltip",function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("create-popover",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-popover",function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("toast",function(a){$(document).Toasts("create",a)}),Shiny.addCustomMessageHandler("create-alert",function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",function(){Shiny.setInputValue(a.id,!1,{priority:"event"})}),$('[data-dismiss="alert"]').on("click",function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")})):console.warn(`${t} already has an alert!`)}),Shiny.addCustomMessageHandler("close-alert",function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")})});var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout(function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")},10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$(function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",function(){$(window).trigger("resize")}),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout(function(){t.trigger("change")},600)});var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each(function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1})},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini"),"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle")}),$(function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()}),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each(function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")}),$('.user-block [data-toggle="collapse"]').on("click",function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")}),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",function(){$(this).css("opacity","1")}),t.on("mouseout",function(){$(this).css("opacity",".7")}),$(".wrapper").append(t),$(window).scroll(function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)}),$(t).click(function(){$("html, body").animate({scrollTop:0},500)})}if($(".main-sidebar .nav-item").on("click",function(){$("html, body").animate({scrollTop:0},0)}),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))}),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})}),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",function(){var a;$(".navbar-themer-chip").filter(function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))}),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))}),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",function(){$("#customSwitch1").click()})}$(".themer-chip").hover(function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")},function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")}),$(".navbar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".accents-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".sidebar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})}),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach(function(a){t.removeClass(a)}),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))});var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach(function(a){e.removeClass(a)}),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach(function(a){e.removeClass(a)}),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))})}),$(function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")});var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each(function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)})}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()}),$(document).ready(function(){"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle")});
\ No newline at end of file

From e65af57b803482230debe4585759251d2d9fd4d1 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Thu, 30 Sep 2021 14:17:55 -0400
Subject: [PATCH 08/43] The sidebar collapse/not collapsed on load seems to be
 a browser specific issue

 - On Chrome the previous commit opens the sidebar on load
 - On Rstudio browser the previous commit closes the sidebar on load
Not going to bother with this anymore
---
 inst/bs4Dash-2.0.2/bs4Dash.js     | 8 --------
 inst/bs4Dash-2.0.2/bs4Dash.min.js | 2 +-
 2 files changed, 1 insertion(+), 9 deletions(-)

diff --git a/inst/bs4Dash-2.0.2/bs4Dash.js b/inst/bs4Dash-2.0.2/bs4Dash.js
index 82b98587..a883422c 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.js
@@ -2036,11 +2036,3 @@ Shiny.addCustomMessageHandler("user-messages", function(message) {
   Shiny.initializeInputs();
   Shiny.bindAll(); // bind all inputs/outputs
 });
-
-$(document).ready(function(){
-var sidebarCollapsed = $(".main-sidebar").attr("data-collapsed");
-  if (sidebarCollapsed === "true") {
-    // This triggers binding geValue
-    $("[data-widget='pushmenu']").PushMenu("toggle");
-  }  
-});
\ No newline at end of file
diff --git a/inst/bs4Dash-2.0.2/bs4Dash.min.js b/inst/bs4Dash-2.0.2/bs4Dash.min.js
index 548a657d..4a78564f 100644
--- a/inst/bs4Dash-2.0.2/bs4Dash.min.js
+++ b/inst/bs4Dash-2.0.2/bs4Dash.min.js
@@ -1 +1 @@
-var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",function(a){t()}),$(a).find('[data-toggle="collapse"]').on("click",function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()})},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",function(a){t()}),$(a).on("removed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("shown.cardBinding",function(a){t()}),$(a).on("change.cardBinding",function(a){setTimeout(function(){t()},500)})},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout(function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})},300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup(function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()})},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout(function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()},10)})},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$(function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")}),$(window).click(function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}}),$("#controlbarPin").on("click",function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))});var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",function(e){$(a).trigger("shown"),setTimeout(function(){t()},10)})},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")}),$(function(){Shiny.addCustomMessageHandler("create-tooltip",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-tooltip",function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("create-popover",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-popover",function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("toast",function(a){$(document).Toasts("create",a)}),Shiny.addCustomMessageHandler("create-alert",function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",function(){Shiny.setInputValue(a.id,!1,{priority:"event"})}),$('[data-dismiss="alert"]').on("click",function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")})):console.warn(`${t} already has an alert!`)}),Shiny.addCustomMessageHandler("close-alert",function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")})});var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout(function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")},10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$(function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",function(){$(window).trigger("resize")}),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout(function(){t.trigger("change")},600)});var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each(function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1})},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini"),"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle")}),$(function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()}),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each(function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")}),$('.user-block [data-toggle="collapse"]').on("click",function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")}),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",function(){$(this).css("opacity","1")}),t.on("mouseout",function(){$(this).css("opacity",".7")}),$(".wrapper").append(t),$(window).scroll(function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)}),$(t).click(function(){$("html, body").animate({scrollTop:0},500)})}if($(".main-sidebar .nav-item").on("click",function(){$("html, body").animate({scrollTop:0},0)}),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))}),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})}),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",function(){var a;$(".navbar-themer-chip").filter(function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))}),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))}),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",function(){$("#customSwitch1").click()})}$(".themer-chip").hover(function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")},function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")}),$(".navbar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".accents-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".sidebar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})}),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach(function(a){t.removeClass(a)}),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))});var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach(function(a){e.removeClass(a)}),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach(function(a){e.removeClass(a)}),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))})}),$(function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")});var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each(function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)})}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()}),$(document).ready(function(){"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle")});
\ No newline at end of file
+var accordionBinding=new Shiny.InputBinding;$.extend(accordionBinding,{find:function(a){return $(a).find(".accordion")},getValue:function(a){var t=$(a).find(".active").index()+1;if(0!==t)return t},setValue:function(a,t){$(a).find(".active").removeClass("active"),$(a).children().eq(t-1).addClass("active"),$(a).children().eq(t-1).find('[data-toggle="collapse"]').click(),$(a).trigger("change")},receiveMessage:function(a,t){this.setValue(a,t)},subscribe:function(a,t){$(a).on("change",function(a){t()}),$(a).find('[data-toggle="collapse"]').on("click",function(e){$(this).closest(".card").hasClass("active")||$(a).find(".active").removeClass("active"),$(this).closest(".card").addClass("active"),t()})},unsubscribe:function(a){$(a).off(".accordionBinding")}}),Shiny.inputBindings.register(accordionBinding,"accordion-input");const validStatuses=["primary","secondary","success","info","warning","danger"],validStatusesPlus=["dark","white","lightblue","navy","orange","fuchsia","purple","indigo","gray","gray-dark","pink","maroon","teal","lime","olive","green","yellow","red","blue"];var cardBinding=new Shiny.InputBinding;$.extend(cardBinding,{find:function(a){return $(a).find(".card")},getValue:function(a){var t=$(a).parent().find("script[data-for='"+a.id+"']");t=JSON.parse(t.html());var e,i=$(a).hasClass("collapsed-card"),n=$(a).css("display"),s=$(a).hasClass("maximized-card");return e="none"!==n,s?$(a).find("[data-card-widget = 'collapse']").hide():$(a).find("[data-card-widget = 'collapse']").show(),{collapsible:t.collapsible,collapsed:i,closable:t.closable,visible:e,maximizable:t.maximizable,maximized:s,status:t.status,solidHeader:t.solidHeader,background:t.background,width:t.width,height:t.height}},_updateWidth:function(a,t,e){$(a).parent().toggleClass("col-sm-"+t),$(a).parent().addClass("col-sm-"+e),$(a).trigger("resize")},setValue:function(a,t){var e=$(a).parent().find("script[data-for='"+a.id+"']");if(e=JSON.parse(e.html()),"update"===t.action){var i=$(a).hasClass("user-card"),n=$(a).hasClass("social-card");if(t.options.hasOwnProperty("title")&&t.options.title!==e.title){var s;s="string"!=typeof t.options.title?$.parseHTML(t.options.title[0]):$.parseHTML(t.options.title);var r=$(a).find(".card-tools");n?$(a).find(".user-block").replaceWith($(s)):i?("string"==typeof t.options.title?(s=[s[0],s[2]],$(a).removeClass("widget-user-2").addClass("widget-user"),$(a).find(".widget-user-header").replaceWith($(s[0])),$(s[1]).insertAfter($(a).find(".widget-user-header"))):($(a).removeClass("widget-user").addClass("widget-user-2"),$(a).find(".widget-user-image").remove(),$(a).find(".widget-user-header").replaceWith($(s)),null!==t.options.status&&(t.options.gradient?$(a).find(".widget-user-header").addClass("bg-gradient-",c):$(a).find(".widget-user-header").addClass("bg-",c))),$(a).find(".widget-user-header").prepend($(r))):($(s).hasClass("card-title")||$(s).addClass("card-title"),$(a).find(".card-title").replaceWith($(s))),e.title=t.options.title}if(t.options.hasOwnProperty("collapsible")&&t.options.collapsible!==e.collapsible&&(t.options.collapsible?0===$(a).find('[data-card-widget = "collapse"]').length&&($(a).find(".card-tools.float-right").prepend($('<button class="btn btn-tool btn-sm" data-card-widget="collapse"><i class="fa fa-minus"></i></button>')),e.collapsible=!0):($(a).find('[data-card-widget = "collapse"]').remove(),e.collapsible=!1)),t.options.hasOwnProperty("closable")&&t.options.closable!==e.closable&&(t.options.closable?0===$(a).find('[data-card-widget = "remove"]').length&&(0===$(a).find('[data-card-widget = "maximize"]').length?$(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>')):$('<button class="btn btn-tool btn-sm" data-card-widget="remove"><i class="fa fa-times"></i></button>').insertBefore($(a).find('[data-card-widget = "maximize"]')),e.closable=!0):($(a).find('[data-card-widget = "remove"]').remove(),e.closable=!1)),t.options.hasOwnProperty("maximizable")&&t.options.maximizable!==e.maximizable&&(t.options.maximizable?0===$(a).find('[data-card-widget = "maximize"]').length&&($(a).find(".card-tools.float-right").append($('<button class="btn btn-tool btn-sm" data-card-widget="maximize"><i class="fa fa-expand"></i></button>')),e.maximizable=!0):($(a).find('[data-card-widget = "maximize"]').remove(),e.maximizable=!1)),t.options.hasOwnProperty("solidHeader")&&!n&&!i)if(t.options.solidHeader!==e.solidHeader&&$(a).hasClass("card-outline"))$(a).removeClass("card-outline"),e.solidHeader=!0;else if($(a).hasClass("card-outline")||t.options.solidHeader){if($(a).hasClass("card-outline")){o=e.status||t.options.status;t.options.background&&o?($(a).removeClass("card-outline"),e.solidHeader=!0):e.background&&o&&($(a).removeClass("card-outline"),e.solidHeader=!1)}}else{var o=e.status||t.options.status;t.options.background&&o&&(null!==t.options.background||e.background&&o)||($(a).addClass("card-outline"),e.solidHeader=!1)}if(t.options.hasOwnProperty("status")&&!n&&t.options.status!==e.status){var d,l,c;if(null===t.options.status&&null!==e.status){if(i||$(a).removeClass("card-"+e.status),$(a).hasClass("card-outline")&&!i&&$(a).addClass("card-outline"),t.options.background){var u=t.options.background;validStatusesPlus.indexOf(u)>-1?$(a).find(".btn-tool").addClass("bg-"+u):validStatuses.indexOf(u)>-1&&$(a).find(".btn-tool").addClass("btn-"+u)}}else t.options.status&&(i?(l="bg-",t.options.gradient&&(l+="gradient-"),l+=t.options.status,$(a).find(".widget-user-header").addClass(l)):(l="card-"+t.options.status,$(a).addClass(l)),e.status&&(i?(d="bg-",e.gradient&&(d+="gradient-"),d+=e.status,$(a).find(".widget-user-header").removeClass(d)):(d="card-"+e.status,$(a).removeClass(d))),$(a).hasClass("card-outline")&&!i||(validStatusesPlus.indexOf(t.options.status)>-1?$(a).find(".btn-tool").addClass("bg-"+t.options.status):validStatuses.indexOf(t.options.status)>-1&&$(a).find(".btn-tool").addClass("btn-"+t.options.status)));(e.status||e.background)&&(e.status?c=e.status:e.background&&(c=e.background),validStatusesPlus.indexOf(c)>-1?$(a).find(".btn-tool").removeClass("bg-"+c):validStatuses.indexOf(c)>-1&&$(a).find(".btn-tool").removeClass("btn-"+c)),e.status=t.options.status}if(t.options.hasOwnProperty("background")&&t.options.background!==e.background){var b="bg-";if(newBgClass=b,e.background){if(e.gradient&&(b+="gradient-"),b+=e.background,i&&!e.status&&!t.options.status){var h=$(a).find(".widget-user-header");$(h).removeClass(b)}$(a).removeClass(b)}if(t.options.background){if((e.gradient||t.options.gradient)&&(newBgClass+="gradient-"),newBgClass+=t.options.background,i&&!e.status&&!t.options.status){h=$(a).find(".widget-user-header");$(h).addClass(newBgClass)}$(a).addClass(newBgClass)}e.gradient!==t.options.gradient&&void 0!==t.options.gradient&&(e.gradient=t.options.gradient),e.background=t.options.background}t.options.hasOwnProperty("width")&&t.options.width!==e.width&&(this._updateWidth(a,e.width,t.options.width),e.width=t.options.width),t.options.hasOwnProperty("height")&&t.options.height!==e.height&&(null===t.options.height?$(a).find(".card-body").css("height",""):$(a).find(".card-body").css("height",t.options.height),e.height=t.options.height),$(a).parent().find("script[data-for='"+a.id+"']").replaceWith('<script type="application/json" data-for="'+a.id+'">'+JSON.stringify(e)+"<\/script>")}else"restore"!=t?"none"!=$(a).css("display")&&$(a).CardWidget(t):($(a).show(),$(a).trigger("shown"))},receiveMessage:function(a,t){this.setValue(a,t),$(a).trigger("change")},subscribe:function(a,t){$(a).on("expanded.lte.cardwidget collapsed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("maximized.lte.cardwidget minimized.lte.cardwidget",function(a){t()}),$(a).on("removed.lte.cardwidget",function(a){setTimeout(function(){t()},500)}),$(a).on("shown.cardBinding",function(a){t()}),$(a).on("change.cardBinding",function(a){setTimeout(function(){t()},500)})},unsubscribe:function(a){$(a).off(".cardBinding")}}),Shiny.inputBindings.register(cardBinding);var cardSidebarBinding=new Shiny.InputBinding;$.extend(cardSidebarBinding,{initialize:function(a){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .0s ease-in-out"});var t=$(a).attr("data-background")?$(a).attr("data-background"):"#343a40",e=$(a).attr("data-width")?parseInt($(a).attr("data-width")):100,i=1e4/e,n=$(a).closest(".direct-chat").find(".direct-chat-contacts");if($(n).css({background:`${t}`,width:`${e}%`}),"true"===$(a).attr("data-start-open")){var s=i-100;$(n).css({transform:`translate(${s}%, 0)`})}else $(n).css({transform:`translate(${i}%, 0)`});setTimeout(function(){$(".direct-chat-contacts, .direct-chat-messages").css({transition:"transform .5s ease-in-out"})},300),"true"===$(a).attr("data-easy-close")&&$(document).mouseup(function(a){var t=$(".direct-chat-contacts"),e=$(".direct-chat-contacts-open");t.is(a.target)||0!==t.has(a.target).length||1===$(a.target).parents(".card-tools").length||e.find("[data-widget='chat-pane-toggle']").click()})},find:function(a){return $(a).find('[data-widget="chat-pane-toggle"]')},getValue:function(a){var t=$(a).closest(".card");return $(t).hasClass("direct-chat-contacts-open")},receiveMessage:function(a,t){$(a).trigger("click"),$(a).trigger("shown")},subscribe:function(a,t){var e=this;$(a).on("click",function(i){var n=1e4/($(a).attr("data-width")?parseInt($(a).attr("data-width")):100),s=n-100,r=i.currentTarget;setTimeout(function(i=r){var o=$(i).closest(".direct-chat").find(".direct-chat-contacts");e.getValue(a)?$(o).css({transform:`translate(${s}%, 0)`}):$(o).css({transform:`translate(${n}%, 0)`}),t()},10)})},unsubscribe:function(a){$(a).off(".cardSidebarBinding")}}),Shiny.inputBindings.register(cardSidebarBinding),$(function(){var a=!0;const t=()=>{a&&($(document).Toasts("create",{title:"Controlbar is pinned",close:!1,autohide:!0,delay:2e3}),a=!1)};$("#controlbar-toggle").on("click",function(){$("body").hasClass("control-sidebar-push-slide")&&$(window).trigger("resize")}),$(window).click(function(a){if($(a.target).hasClass("action-button"))return null;if(0===$("aside.control-sidebar").find(a.target).length){var t=$(".control-sidebar").attr("data-pin");"false"!==t&&void 0!==t||($("body").removeClass("control-sidebar-slide-open"),$("#controlbar-toggle").trigger("collapsed.lte.controlsidebar"))}}),$("#controlbarPin").on("click",function(){var a=$(this).children();a.toggleClass("fa-rotate-90 fa-lg"),$(".control-sidebar").attr("data-pin","false"==$(".control-sidebar").attr("data-pin")?"true":"false"),"true"===$(".control-sidebar").attr("data-pin")?(a.css("color","#007bff"),$("#controlbar-toggle").addClass("disabled"),t()):($("#controlbar-toggle").removeClass("disabled"),a.css("color",""))});var e=!0,i=new Shiny.InputBinding;$.extend(i,{find:function(a){return $(a).find(".control-sidebar")},getValue:function(a){var i=$("body").hasClass("control-sidebar-slide-open"),n="true"===$(a).attr("data-pin");return i&&n&&e&&($("#controlbar-toggle").addClass("disabled"),$("#controlbarPin").children().css("color","#007bff"),t(),e=!1),"false"===$(a).attr("data-collapsed")?($("#controlbar-toggle").ControlSidebar("toggle"),$(a).attr("data-collapsed","true"),!0):$("body").hasClass("control-sidebar-slide-open")},receiveMessage:function(a,t){$("#controlbar-toggle").ControlSidebar("toggle")},subscribe:function(a,t){$("#controlbar-toggle").on("collapsed.lte.controlsidebar expanded.lte.controlsidebar",function(e){$(a).trigger("shown"),setTimeout(function(){t()},10)})},unsubscribe:function(a){$(a).off(".controlbarBinding")}}),Shiny.inputBindings.register(i,"bs4Dash.controlbarBinding"),"false"===$(".control-sidebar").attr("data-overlay")&&$("body").addClass("control-sidebar-push-slide")}),$(function(){Shiny.addCustomMessageHandler("create-tooltip",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-tooltip").tooltip(a.options),console.log(`'Tooltip created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-tooltip",function(a){var t="#"+a;$(t).hasClass("has-tooltip")&&($(t).removeClass("has-tooltip").tooltip("dispose"),console.log(`'Tooltip destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("create-popover",function(a){var t;a.id?t="#"+a.id:a.selector&&(t=a.selector),$(t).addClass("has-popover").popover(a.options),console.log(`'Popover created for ${t}'`)}),Shiny.addCustomMessageHandler("remove-popover",function(a){var t="#"+a;$(t).hasClass("has-popover")&&($(t).removeClass("has-popover").popover("dispose"),console.log(`'Popover destroyed for ${t}'`))}),Shiny.addCustomMessageHandler("toast",function(a){$(document).Toasts("create",a)}),Shiny.addCustomMessageHandler("create-alert",function(a){var t;a.id?t=`#${a.id}`:a.selector&&(t=a.selector);var e,i,n,s,r,o,d=a.options;switch(e="alert alert-dismissible",void 0!==d.status&&(e=`${e} alert-${d.status}`),void 0!==d.elevation&&(e=`${e} elevation-${d.elevation}`),d.status){case"primary":n="info";break;case"danger":n="ban";break;case"info":n="info";break;case"warning":n="warning";break;case"success":n="check";break;default:console.warn(`${d.status} does not belong to allowed statuses!`)}d.closable&&(s='<button type="button" class="close" data-dismiss="alert" aria-hidden="true">x</button>'),r=`<h5><i class="icon fa fa-${n}"></i></h5>`,o=d.content,i=`<div \n      id="${a.id}-alert" \n      class="${e}">\n        ${s}${r}${o}\n    </div>`,void 0!==d.width&&(i=`<div class="col-sm-${d.width}">${i}</div>`),0===$(`#${a.id}-alert`).length?($(t).append(i),Shiny.setInputValue(a.id,!0,{priority:"event"}),$(`#${a.id}-alert`).on("closed.bs.alert",function(){Shiny.setInputValue(a.id,!1,{priority:"event"})}),$('[data-dismiss="alert"]').on("click",function(){var a=$(this).parent.attr("id");$(`#${a}.`).trigger("closed.bs.alert")})):console.warn(`${t} already has an alert!`)}),Shiny.addCustomMessageHandler("close-alert",function(a){$(`#${a}-alert`).length>0?$(`#${a}-alert`).alert("close"):console.warn("Nothing to delete!")})});var ensureActivatedTab=function(){var a=$(".sidebar-menu a[data-toggle='tab']"),t=a.filter("[data-start-selected='1']");0===t.length&&(t=a.first()),0!==t.length&&($(".sidebar-menu").hasClass("bs4Dash-menu-output")?setTimeout(function(){adminlte.Treeview._jQueryInterface.call($('[data-widget="treeview"]'),"init"),t.tab("show")},10):t.tab("show"),$(".sidebarMenuSelectedTabItem").attr("data-value",t.attr("data-value")))},deactivateOtherTabs=function(){$(".sidebar-menu a[data-toggle='tab'],.sidebar-menu li.has-treeview > a").not($(this)).removeClass("active"),$(this).hasClass("treeview-link")&&$(this).parents(".has-treeview").children().eq(0).addClass("active");var a=$(".sidebarMenuSelectedTabItem"),t=a.data("shiny-input-binding");void 0!==t&&(t.setValue(a,$(this).attr("data-value")),a.trigger("change"))};$(function(){$(".main-sidebar").on("webkitTransitionEnd otransitionend oTransitionEnd msTransitionEnd transitionend",function(){$(window).trigger("resize")}),$(document).on("shown.bs.tab",'.sidebar-menu a[data-toggle="tab"]',deactivateOtherTabs),ensureActivatedTab(),$(document).on("click",".has-treeview",function(){var a=$(this);a.hasClass("menu-open")?a.trigger("collapsed.lte.treeview"):a.hasClass(".has-treeview")&&a.trigger("expanded.lte.treeview");var t=$(".sidebar.shiny-bound-input");setTimeout(function(){t.trigger("change")},600)});var a=new Shiny.InputBinding;$.extend(a,{find:function(a){return $(a).find(".sidebarMenuSelectedTabItem")},getValue:function(a){var t=$(a).attr("data-value");return"null"===t?null:t},setValue:function(a,t){var e=this;$(a).parent(".sidebar-menu").find("li:not(.treeview)").children("a").each(function(){if(e._getTabName($(this))===t)return $(this).tab("show"),$(this).hasClass("treeview-link")&&($(this).parents(".has-treeview").hasClass("menu-open")||$(this).parents(".has-treeview").children().eq(0).trigger("click")),$(a).attr("data-value",e._getTabName($(this))),!1})},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change.tabItemInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".tabItemInputBinding")},_getTabName:function(a){return a.attr("data-value")}}),Shiny.inputBindings.register(a,"bs4Dash.tabItemInput");var t=new Shiny.InputBinding;$.extend(t,{find:function(a){return $(a).find(".main-sidebar")},getValue:function(a){return!$("body").hasClass("sidebar-collapse")},receiveMessage:function(a,t){$("[data-widget='pushmenu']").PushMenu("toggle")},subscribe:function(a,t){$("[data-widget='pushmenu']").on("collapsed.lte.pushmenu.sidebarBinding shown.lte.pushmenu.sidebarBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".sidebarBinding")}}),Shiny.inputBindings.register(t,"bs4Dash.sidebarInput");var e=new Shiny.InputBinding;$.extend(e,{find:function(a){return $(a).find(".sidebar")},getValue:function(a){var t=$(a).find("li").filter(".menu-open").find("ul");return 1===t.length?t.attr("data-expanded"):null},setValue:function(a,t){$(a).find("[data-expanded='"+t+"']").prev().trigger("click")},subscribe:function(a,t){$(a).on("change.sidebarmenuExpandedInputBinding",function(){t()})},unsubscribe:function(a){$(a).off(".sidebarmenuExpandedInputBinding")}}),Shiny.inputBindings.register(e,"bs4Dash.sidebarmenuExpandedInputBinding"),"true"===$(".main-sidebar").attr("data-fixed")&&$("body").addClass("layout-fixed"),"true"===$(".main-sidebar").attr("data-minified")&&$("body").addClass("sidebar-mini"),"true"===$(".main-sidebar").attr("data-collapsed")&&$("[data-widget='pushmenu']").PushMenu("toggle")}),$(function(){$navbar=$(".main-header.navbar"),$(document).on("shiny:connected",function(a){Shiny.unbindAll(),$.extend(Shiny.inputBindings.bindingNames["shiny.bootstrapTabInput"].binding,{getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null}}),Shiny.bindAll()}),"true"===$(".main-footer").attr("data-fixed")&&$("body").addClass("layout-footer-fixed");var a=$(".navbar-right").find(".dropdown-menu");if($(a).each(function(){$(this).hasClass("dropdown-menu-right")||$(this).addClass("dropdown-menu-right")}),$('.user-block [data-toggle="collapse"]').on("click",function(){$(this).children("i").hasClass("fa-plus")?$(this).children("i").attr("class","fa fa-minus"):$(this).children("i").attr("class","fa fa-plus")}),1==$("body").attr("data-fullscreen")){$('<li class="nav-item">\n      <a class="nav-link" data-widget="fullscreen" href = "#" role = "button" >\n        <i class="fas fa-expand-arrows-alt"></i>\n      </a>\n    </li > ').insertBefore($('[data-widget="control-sidebar"]').parent())}if(1==$("body").attr("data-scrollToTop")){var t=$("<div />");t.html('<i class="fa fa-chevron-up"></i>'),t.css({position:"fixed",bottom:"20px",right:"25px",width:"40px",height:"40px",color:"#eee","font-size":"","line-height":"40px","text-align":"center","background-color":"#222d32",cursor:"pointer","border-radius":"5px","z-index":"99999",opacity:".7",display:"none"}),t.on("mouseenter",function(){$(this).css("opacity","1")}),t.on("mouseout",function(){$(this).css("opacity",".7")}),$(".wrapper").append(t),$(window).scroll(function(){$(window).scrollTop()>=150?$(t).is(":visible")||$(t).fadeIn(500):$(t).fadeOut(500)}),$(t).click(function(){$("html, body").animate({scrollTop:0},500)})}if($(".main-sidebar .nav-item").on("click",function(){$("html, body").animate({scrollTop:0},0)}),1==$("body").attr("data-help")){var e=$("<input />",{type:"checkbox",id:"help_switch",class:"custom-control-input"}).on("click",function(){$(this).is(":checked")?($('[data-toggle="tooltip"]').tooltip("enable"),$('[data-toggle="popover"]').popover({trigger:"hover"}),$('[data-toggle="popover"]').popover("enable")):($('[data-toggle="tooltip"]').tooltip("disable"),$('[data-toggle="popover"]').popover("disable"))}),i=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(e).append('<label class="custom-control-label" for="help_switch"><i class="fa fa-question"></i></label>');$(".nav-item #controlbar-toggle")?i.insertBefore($("#controlbar-toggle").parent()):$navbar.append(i),e.click()}$(document).one("shiny:connected",function(){$("body").hasClass("dark-mode")?Shiny.setInputValue("dark_mode",!0,{priority:"event"}):Shiny.setInputValue("dark_mode",!1,{priority:"event"})}),getNavbarColor=function(){for(let a of s)if($(".main-header").attr("class").search(a)>-1)return a};var n=["navbar-primary","navbar-secondary","navbar-info","navbar-success","navbar-danger","navbar-indigo","navbar-purple","navbar-pink","navbar-maroon","navbar-fuchsia","navbar-navy","navbar-lightblue","navbar-lime","navbar-teal","navbar-olive","navbar-gray-dark","navbar-gray"],s=n.concat(["navbar-warning","navbar-white","navbar-orange"]);if(2==$("body").attr("data-dark")||1==$("body").attr("data-dark")){var r=$("<input />",{type:"checkbox",id:"customSwitch1",class:"custom-control-input"}).on("click",function(){var a;$(".navbar-themer-chip").filter(function(){"solid"===$(this).css("border-style")&&(a="navbar-"+$(this).attr("class").split("elevation-2")[0].trim().replace("bg-",""))}),$(this).is(":checked")?($("body").addClass("dark-mode"),void 0===a&&(a="navbar-gray-dark"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("light","dark")),$("#sidebar-skin").prop("checked",!0),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("light","dark")),$("#controlbar-skin").prop("checked",!0),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")),$(".dark-theme-icon").removeClass("fa-sun").addClass("fa-moon"),Shiny.setInputValue("dark_mode",!0,{priority:"event"})):($("body").removeClass("dark-mode"),void 0===a&&(a="navbar-white"),updateNavbarTheme(a),$(".main-sidebar").length>0&&($(".main-sidebar").attr("class",$(".main-sidebar").attr("class").replace("dark","light")),$("#sidebar-skin").prop("checked",!1),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".control-sidebar").length>0&&($(".control-sidebar").attr("class",$(".control-sidebar").attr("class").replace("dark","light")),$("#controlbar-skin").prop("checked",!1),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun")),$(".dark-theme-icon").removeClass("fa-moon").addClass("fa-sun"),Shiny.setInputValue("dark_mode",!1,{priority:"event"}))}),o=$("body").hasClass("dark-mode")?'<i class="dark-theme-icon fa fa-moon"></i>':'<i class="dark-theme-icon fa fa-sun"></i>',d=$("<div />",{class:"custom-control custom-switch mx-2 mt-2"}).append(r).append(`<label class="custom-control-label" for="customSwitch1">${o}</label>`);$(".nav-item #controlbar-toggle")?d.insertBefore($("#controlbar-toggle").parent()):$navbar.append(d),2==$("body").attr("data-dark")&&$(document).on("shiny:connected",function(){$("#customSwitch1").click()})}$(".themer-chip").hover(function(){$(this).css({opacity:1}).removeClass("elevation-2").addClass("elevation-4")},function(){$(this).css({opacity:.8}).removeClass("elevation-4").addClass("elevation-2")}),$(".navbar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".navbar-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".accents-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".accents-themer-chip").not(this).css({"border-color":"","border-style":""})}),$(".sidebar-themer-chip").on("click",function(){$(this).css({"border-color":"yellow","border-style":"solid"}),$(".sidebar-themer-chip").not(this).css({"border-color":"","border-style":""})}),updateNavbarTheme=function(a){var t=$(".main-header");t.removeClass("navbar-dark").removeClass("navbar-light"),s.forEach(function(a){t.removeClass(a)}),n.indexOf(a)>-1?t.addClass("navbar-dark"):t.addClass("navbar-light"),t.addClass(a)},$(".main-sidebar").length>0&&$(".main-sidebar").attr("class").match("dark")&&$("#sidebar-skin").prop("checked",!0),$("#sidebar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".main-sidebar").attr("class").replace("light","dark"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".main-sidebar").attr("class").replace("dark","light"),$(".main-sidebar").attr("class",a),$(".sidebar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))});var l=["sidebar-dark-primary","sidebar-dark-secondary","sidebar-dark-info","sidebar-dark-success","sidebar-dark-danger","sidebar-dark-indigo","sidebar-dark-purple","sidebar-dark-pink","sidebar-dark-maroon","sidebar-dark-fuchsia","sidebar-dark-navy","sidebar-dark-lightblue","sidebar-dark-lime","sidebar-dark-teal","sidebar-dark-olive","sidebar-dark-gray-dark","sidebar-dark-gray","sidebar-dark-light","sidebar-dark-warning","sidebar-dark-white","sidebar-dark-orange","sidebar-light-primary","sidebar-light-secondary","sidebar-light-info","sidebar-light-success","sidebar-light-danger","sidebar-light-indigo","sidebar-light-purple","sidebar-light-pink","sidebar-light-maroon","sidebar-light-fuchsia","sidebar-light-navy","sidebar-light-lightblue","sidebar-light-lime","sidebar-light-teal","sidebar-light-olive","sidebar-light-gray-dark","sidebar-light-gray","sidebar-light-light","sidebar-light-warning","sidebar-light-white","sidebar-light-orange"];updateSidebarTheme=function(a){var t=($("#sidebar-skin").is(":checked")?"sidebar-dark-":"sidebar-light-")+a.replace("bg-",""),e=$(".main-sidebar");l.forEach(function(a){e.removeClass(a)}),e.addClass(t)};var c=["accent-primary","accent-secondary","accent-info","accent-success","accent-danger","accent-indigo","accent-purple","accent-pink","accent-maroon","accent-fuchsia","accent-navy","accent-lightblue","accent-lime","accent-teal","accent-olive","accent-gray-dark","accent-gray","accent-light","accent-warning","accent-white","accent-orange"];updateAccentsTheme=function(a){var t=a,e=$("body");c.forEach(function(a){e.removeClass(a)}),e.addClass(t)},$(".control-sidebar").length>0&&$(".control-sidebar").attr("class").match("dark")&&$("#controlbar-skin").prop("checked",!0),$("#controlbar-skin").on("click",function(){var a;$(this).is(":checked")?(a=$(".control-sidebar").attr("class").replace("light","dark"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-sun").addClass("fa-moon")):(a=$(".control-sidebar").attr("class").replace("dark","light"),$(".control-sidebar").attr("class",a),$(".controlbar-themer-icon").removeClass("fa-moon").addClass("fa-sun"))})}),$(function(){noControlbar=0===$(".control-sidebar").length,noControlbar&&$("#controlbar-toggle").hide(),disableControlbar=$(".control-sidebar").attr("data-show"),disableControlbar||$("#controlbar-toggle").hide(),controlbarSlide=$(".control-sidebar").attr("data-slide"),controlbarSlide&&$("#controlbar-toggle").attr("data-controlsidebar-slide",controlbarSlide),disableSidebar=0===$(".main-sidebar").length,disableSidebar&&$(".nav-item > a[data-widget='pushmenu']").css("visibility","hidden"),"true"===$(".navbar").attr("data-fixed")&&$("body").addClass("layout-navbar-fixed")});var menuOutputBinding=new Shiny.OutputBinding;$.extend(menuOutputBinding,{find:function(a){return $(a).find(".bs4Dash-menu-output")},onValueError:function(a,t){Shiny.unbindAll(a),this.renderError(a,t)},renderValue:function(a,t){var e;Shiny.unbindAll(a);var i=[];if(null!==t){"string"==typeof t?e=t:"object"==typeof t&&(e=t.html,i=t.deps);var n=$($.parseHTML(e));Shiny.renderHtml(n.html(),a,i),a.className="bs4Dash-menu-output shiny-bound-output "+n.attr("class"),$(a).attr("data-widget","treeview").attr("role","menu").attr("data-accordion","true"),Shiny.initializeInputs(a),Shiny.bindAll(a),$(a).hasClass("sidebar-menu")&&ensureActivatedTab()}}}),Shiny.outputBindings.register(menuOutputBinding,"bs4Dash.menuOutputBinding");var bootstrapTabInputBinding=new Shiny.InputBinding;$.extend(bootstrapTabInputBinding,{find:function(a){return $(a).find("ul.nav.shiny-tab-input")},getValue:function(a){var t=$(a).find("li:not(.dropdown)").children("a.active");return 1===t.length?this._getTabName(t):null},setValue:function(a,t){let e=this,i=!1;if(t){$(a).find("li:not(.dropdown)").children("a").each(function(){return e._getTabName($(this))!==t||($(this).tab("show"),i=!0,!1)})}i||$(a).trigger("change")},getState:function(a){return{value:this.getValue(a)}},receiveMessage:function(a,t){t.hasOwnProperty("value")&&this.setValue(a,t.value)},subscribe:function(a,t){$(a).on("change shown.bootstrapTabInputBinding shown.bs.tab.bootstrapTabInputBinding",function(a){t()})},unsubscribe:function(a){$(a).off(".bootstrapTabInputBinding")},_getTabName:function(a){return a.attr("data-value")||a.text()}}),Shiny.inputBindings.register(bootstrapTabInputBinding,"shiny.bootstrapTabInput"),Shiny.addCustomMessageHandler("user-messages",function(a){var t,e=a.id,i=a.action,n=a.body,s=a.index;n.hasOwnProperty("text")&&(t=void 0===n.text.html?n.text:Shiny.renderHtml(n.text.html,$([]),n.text.dependencies).html);if(Shiny.unbindAll(),"remove"===i)$("#"+e).find(".direct-chat-msg").eq(s-1).remove();else if("add"===i){var r,o,d=n.author,l=n.date,c=n.image,u=n.type;"sent"===u?(r='<span class="direct-chat-name float-right">'+d+"</span>",o='<span class="direct-chat-timestamp float-left">'+l+"</span>"):(r='<span class="direct-chat-name float-left">'+d+"</span>",o='<span class="direct-chat-timestamp float-right">'+l+"</span>");var b,h=`<div class="direct-chat-infos clearfix">${r}${o}</div><img class="direct-chat-img" src="${c}"/><div class="direct-chat-text">${t}</div>`;b="sent"===u?'<div class="direct-chat-msg right">'+h+"</div>":'<div class="direct-chat-msg">'+h+"</div>",$("#"+e).find(".direct-chat-messages").append(b)}else if("update"===i){var g=new Date,p=g.getMonth()+1,f=g.getDate(),m=g.getFullYear()+"/"+((""+p).length<2?"0":"")+p+"/"+((""+f).length<2?"0":"")+f;$("#"+e).find(".direct-chat-text").eq(s-1).replaceWith('<div class="direct-chat-text"><small class="text-red">(modified: '+m+")</small><br>"+t+"</div>")}Shiny.initializeInputs(),Shiny.bindAll()})
\ No newline at end of file

From 91a4b37ddceef4f89f54b80ca3e4c965e04a612f Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Thu, 16 Dec 2021 12:00:42 -0500
Subject: [PATCH 09/43] Fix progressBars

---
 R/useful-items.R | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index aada33be..595c364a 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -549,7 +549,9 @@ bs4CarouselItem <- function(..., caption = NULL, active = FALSE) {
 #' @export
 bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped = FALSE, 
                             animated = FALSE, status = "primary", size = NULL, 
-                            label = NULL) {
+                            label = NULL,
+                            style = NULL,
+                            id = NULL) {
   
   if (!is.null(status)) validateStatusPlus(status)
   stopifnot(value >= min)
@@ -573,15 +575,15 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
     `aria-valuemin` = min, 
     `aria-valuemax` = max, 
     style = if (vertical) {
-      paste0("height: ", paste0(value, "%"))
+      paste0("height: ", paste0(value * 100 / max, "%"))
     }
     else {
-      paste0("width: ", paste0(value, "%"))
+      paste0("width: ", paste0(value * 100 / max, "%"))
     }, 
     if(!is.null(label)) label
   )
   
-  progressTag <- shiny::tags$div(class = progressCl)
+  progressTag <- shiny::tags$div(id = id, style = style, class = progressCl)
   progressTag <- shiny::tagAppendChild(progressTag, barTag)
   progressTag
 }
@@ -598,7 +600,9 @@ bs4MultiProgressBar <-
     animated = FALSE,
     status = "primary",
     size = NULL,
-    label = NULL
+    label = NULL,
+    id = NULL,
+    style = NULL
   ) {
     status <- verify_compatible_lengths(value, status)
     striped <- verify_compatible_lengths(value, striped)
@@ -624,10 +628,10 @@ bs4MultiProgressBar <-
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
         style = if (vertical) {
-          paste0("height: ", paste0(value, "%"))
+          paste0("height: ", paste0(value * 100 / max, "%"))
         }
         else {
-          paste0("width: ", paste0(value, "%"))
+          paste0("width: ", paste0(value * 100 / max, "%"))
         }, 
         if(!is.null(label)) label
       )
@@ -649,7 +653,7 @@ bs4MultiProgressBar <-
     # wrapper class
     progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress mb-3"
     if (!is.null(size)) progressCl <- paste0(progressCl, " progress-", size)
-    progressTag <- shiny::tags$div(class = progressCl)
+    progressTag <- shiny::tags$div(id = id, style = style, class = progressCl)
     progressTag <- shiny::tagAppendChild(progressTag, barSegs)
     progressTag
   }

From cbf2d8741e54791ef30805445f638351356aa56d Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Thu, 30 Dec 2021 18:14:34 -0500
Subject: [PATCH 10/43] Scale value between min & max so the bars appear the
 right size

---
 R/useful-items.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index b2f55b57..8a3e4659 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -573,10 +573,10 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
     `aria-valuemin` = min, 
     `aria-valuemax` = max, 
     style = if (vertical) {
-      paste0("height: ", paste0(value, "%"))
+      paste0("height: ", paste0((value - min) / max, "%"))
     }
     else {
-      paste0("width: ", paste0(value, "%"))
+      paste0("width: ", paste0((value - min) / max, "%"))
     }, 
     if(!is.null(label)) label
   )
@@ -638,7 +638,7 @@ bs4MultiProgressBar <-
     for (i in seq_along(value)) {
       barSegs[[i]] <- 
         bar_segment(
-          value[[i]],
+          ((value - min) / max * 100)[[i]],
           striped[[i]],
           animated[[i]],
           status[[i]],

From e573fd90de46abc94b4ca744b32ba2b51f68d871 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Thu, 30 Dec 2021 18:14:52 -0500
Subject: [PATCH 11/43] Add `id` for easy CSS selection

---
 R/useful-items.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 8a3e4659..32c644ef 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -549,7 +549,7 @@ bs4CarouselItem <- function(..., caption = NULL, active = FALSE) {
 #' @export
 bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped = FALSE, 
                             animated = FALSE, status = "primary", size = NULL, 
-                            label = NULL) {
+                            label = NULL, id = NULL) {
   
   if (!is.null(status)) validateStatusPlus(status)
   stopifnot(value >= min)
@@ -567,6 +567,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
   
   # wrapper
   barTag <- shiny::tags$div(
+    id = id,
     class = barCl, 
     role = "progressbar", 
     `aria-valuenow` = value, 
@@ -598,7 +599,8 @@ bs4MultiProgressBar <-
     animated = FALSE,
     status = "primary",
     size = NULL,
-    label = NULL
+    label = NULL,
+    id = NULL
   ) {
     status <- verify_compatible_lengths(value, status)
     striped <- verify_compatible_lengths(value, striped)
@@ -649,7 +651,7 @@ bs4MultiProgressBar <-
     # wrapper class
     progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress mb-3"
     if (!is.null(size)) progressCl <- paste0(progressCl, " progress-", size)
-    progressTag <- shiny::tags$div(class = progressCl)
+    progressTag <- shiny::tags$div(class = progressCl, id = id)
     progressTag <- shiny::tagAppendChild(progressTag, barSegs)
     progressTag
   }

From 70ac339fc1dbd0e687c7baa92c5ac6ff4ffa4d1a Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <sholsen@alumni.emory.edu>
Date: Fri, 31 Dec 2021 06:30:31 -0500
Subject: [PATCH 12/43] Calculation must subtract the min too, move calculation
 just to the CSS in multiprogressbar

---
 R/useful-items.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 32c644ef..a7756a35 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -574,10 +574,10 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
     `aria-valuemin` = min, 
     `aria-valuemax` = max, 
     style = if (vertical) {
-      paste0("height: ", paste0((value - min) / max, "%"))
+      paste0("height: ", ((value - min) / (max - min) * 100), "%"))
     }
     else {
-      paste0("width: ", paste0((value - min) / max, "%"))
+      paste0("width: ", ((value - min) / (max - min) * 100), "%"))
     }, 
     if(!is.null(label)) label
   )
@@ -626,10 +626,10 @@ bs4MultiProgressBar <-
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
         style = if (vertical) {
-          paste0("height: ", paste0(value, "%"))
+          paste0("height: ", paste0(((value - min) / (max - min) * 100), "%"))
         }
         else {
-          paste0("width: ", paste0(value, "%"))
+          paste0("width: ", paste0(((value - min) / (max - min) * 100), "%"))
         }, 
         if(!is.null(label)) label
       )
@@ -640,7 +640,7 @@ bs4MultiProgressBar <-
     for (i in seq_along(value)) {
       barSegs[[i]] <- 
         bar_segment(
-          ((value - min) / max * 100)[[i]],
+          value[[i]],
           striped[[i]],
           animated[[i]],
           status[[i]],

From 11deaadb6d1f31c4f86ef9e43eb93a690092795e Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Fri, 18 Mar 2022 15:36:01 -0400
Subject: [PATCH 13/43] ## useful-items: Re-add `bs4Alert`

---
 R/useful-items.R | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/R/useful-items.R b/R/useful-items.R
index b2f55b57..ef06751d 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -57,7 +57,16 @@ bs4Badge <- function(..., color, position = c("left", "right"),
   )
 }
 
+#' @title Bootstrap 4 Alert box
+#' 
+#' @param style \code{(character)} Inline style parameters to add
+#' @inherit bs4Dash::bs4Card params return
+#' @export
 
+bs4Alert <- function(..., status = "primary", style = NULL, id = NULL, width = 6) {
+  bs4Dash:::validateStatus(status)
+  shiny::tags$div(class = paste0("alert alert-",status), role = "alert", ..., style = paste0("margin: 6px 5px 6px 15px;", sapply(\(x) {ifelse(grepl(";$", x), x, paste0(x, ";"))}), id = id))
+}
 
 
 #' Bootstrap 4 accordion container

From 7505a1dbd93f9a83ee1f6dadee72a196af2200f8 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Fri, 18 Mar 2022 15:50:52 -0400
Subject: [PATCH 14/43] ##useful-items: fix scaling of values based on max/min
 on bs4progressbars

---
 R/useful-items.R | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index a7756a35..6dbd464b 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -573,12 +573,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
     `aria-valuenow` = value, 
     `aria-valuemin` = min, 
     `aria-valuemax` = max, 
-    style = if (vertical) {
-      paste0("height: ", ((value - min) / (max - min) * 100), "%"))
-    }
-    else {
-      paste0("width: ", ((value - min) / (max - min) * 100), "%"))
-    }, 
+    style = paste0(ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
     if(!is.null(label)) label
   )
   
@@ -625,12 +620,7 @@ bs4MultiProgressBar <-
         `aria-valuenow` = value, 
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
-        style = if (vertical) {
-          paste0("height: ", paste0(((value - min) / (max - min) * 100), "%"))
-        }
-        else {
-          paste0("width: ", paste0(((value - min) / (max - min) * 100), "%"))
-        }, 
+        style = paste0(ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
         if(!is.null(label)) label
       )
     }

From 3570db9a324e7267aed1cd12a4da9409b4892570 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Tue, 19 Apr 2022 14:59:32 -0400
Subject: [PATCH 15/43] Add `tip_icon` to `bs4Card`

---
 R/cards.R | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

diff --git a/R/cards.R b/R/cards.R
index 4f6e3fd1..3e805213 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -135,11 +135,29 @@
 #' @author David Granjon, \email{dgranjon@@ymail.com}
 #'
 #' @export
-bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
-                    solidHeader = FALSE, background = NULL, width = 6, height = NULL,
-                    collapsible = TRUE, collapsed = FALSE, closable = FALSE, maximizable = FALSE, icon = NULL,
-                    gradient = FALSE, boxToolSize = "sm", elevation = NULL, headerBorder = TRUE, label = NULL, dropdownMenu = NULL,
-                    sidebar = NULL, id = NULL) {
+bs4Card <- function(...,
+                    title = NULL,
+                    footer = NULL,
+                    status = NULL,
+                    solidHeader = FALSE,
+                    background = NULL,
+                    width = 6,
+                    height = NULL,
+                    collapsible = TRUE,
+                    collapsed = FALSE,
+                    closable = FALSE,
+                    maximizable = FALSE,
+                    icon = NULL,
+                    tip_icon = NULL,
+                    gradient = FALSE,
+                    boxToolSize = "sm",
+                    elevation = NULL,
+                    headerBorder = TRUE,
+                    label = NULL,
+                    dropdownMenu = NULL,
+                    sidebar = NULL,
+                    id = NULL) {
+  
 
   if (is.null(status)) solidHeader <- TRUE
   
@@ -242,7 +260,7 @@ bs4Card <- function(..., title = NULL, footer = NULL, status = NULL,
 
   headerTag <- shiny::tags$div(
     class = if (headerBorder) "card-header" else "card-header border-0",
-    shiny::tags$h3(class = "card-title", icon, title)
+    shiny::tags$h3(class = "card-title", tip_icon, icon, title)
   )
   headerTag <- shiny::tagAppendChild(headerTag, cardToolTag)
 

From f5fe44a5575ca5ab5d0797a4d0198f7664f10b02 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 20 Apr 2022 11:10:12 -0400
Subject: [PATCH 16/43] Support multiple tag types for `sidebarMenuItem`

---
 R/dashboardSidebar.R | 2 +-
 R/utils.R            | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/dashboardSidebar.R b/R/dashboardSidebar.R
index 18e6206f..48facb5f 100644
--- a/R/dashboardSidebar.R
+++ b/R/dashboardSidebar.R
@@ -364,7 +364,7 @@ bs4SidebarMenuItem <- function(text, ..., icon = NULL, badgeLabel = NULL, badgeC
   subItems <- list(...)
 
   if (!is.null(icon)) {
-    tagAssert(icon, type = "i")
+    tagAssert(icon, type = c("i", "img"))
     icon$attribs$class <- paste0(icon$attribs$class, " nav-icon")
   }
 
diff --git a/R/utils.R b/R/utils.R
index add03f66..9c8f5206 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -20,8 +20,8 @@ tagAssert <- function(tag, type = NULL, class = NULL, allowUI = TRUE) {
     return()
   }
   
-  if (!is.null(type) && tag$name != type) {
-    stop("Expected tag to be of type ", type)
+  if (!is.null(type) && tag$name %in% type) {
+    stop("Expected tag to be of type(s) ", paste0(type, collapse = ", "))
   }
   
   if (!is.null(class)) {

From 236b8239f387dfd496ec54c9191292e5f8b3ee31 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 20 Apr 2022 11:29:32 -0400
Subject: [PATCH 17/43] Add negation

---
 R/utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/utils.R b/R/utils.R
index 9c8f5206..0dfcc52d 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -20,7 +20,7 @@ tagAssert <- function(tag, type = NULL, class = NULL, allowUI = TRUE) {
     return()
   }
   
-  if (!is.null(type) && tag$name %in% type) {
+  if (!is.null(type) && !tag$name %in% type) {
     stop("Expected tag to be of type(s) ", paste0(type, collapse = ", "))
   }
   

From acd1c297fee78e56a6d285860d8bdcc5527a86b7 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 09:49:38 -0400
Subject: [PATCH 18/43] Add support for an HTML id to bs4ProgressBar &
 bs4MultiProgressBar

---
 R/useful-items.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 40953c43..df5fe6c3 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -549,7 +549,7 @@ bs4CarouselItem <- function(..., caption = NULL, active = FALSE) {
 #' @export
 bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped = FALSE, 
                             animated = FALSE, status = "primary", size = NULL, 
-                            label = NULL) {
+                            label = NULL, id = NULL) {
   
   if (!is.null(status)) validateStatusPlus(status)
   stopifnot(value >= min)
@@ -567,6 +567,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
   
   # wrapper
   barTag <- shiny::tags$div(
+    id = id,
     class = barCl, 
     role = "progressbar", 
     `aria-valuenow` = value, 
@@ -598,7 +599,8 @@ bs4MultiProgressBar <-
     animated = FALSE,
     status = "primary",
     size = NULL,
-    label = NULL
+    label = NULL,
+    id = NULL
   ) {
     status <- verify_compatible_lengths(value, status)
     striped <- verify_compatible_lengths(value, striped)
@@ -649,7 +651,7 @@ bs4MultiProgressBar <-
     # wrapper class
     progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress mb-3"
     if (!is.null(size)) progressCl <- paste0(progressCl, " progress-", size)
-    progressTag <- shiny::tags$div(class = progressCl)
+    progressTag <- shiny::tags$div(class = progressCl, id = id)
     progressTag <- shiny::tagAppendChild(progressTag, barSegs)
     progressTag
   }

From 40073f191a656eee7f73239ff0fd095266536094 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 09:50:24 -0400
Subject: [PATCH 19/43] `validateColors`: allows for `validStatusesPlus`,
 `grDevices::colors` or any hex/rgba formatted color

---
 R/utils.R | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/R/utils.R b/R/utils.R
index add03f66..c10d5b47 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -212,6 +212,22 @@ validateStatusPlus <- function(status) {
 #' @keywords internal
 validStatusesPlus <- c(validStatuses, validNuances, validColors)
 
+validColorsPlus <- c(grDevices::colours(), validStatusesPlus)
+
+is_hex_color <- function(color) {
+  grepl("^\\#[a-fA-F0-9]{3,6}", color)
+}
+is_rgba_color <- function(color) {
+  grepl("^rgba\\(", color)
+}
+validateColors <- function(color) {
+  if (color %in% validColorsPlus || is_hex_color(color) || is_rgb_color(color))
+    TRUE
+  else
+    stop("Invalid color: ", color, ". Valid colors are hex or rgba formatted or one of the following: ",
+         paste(validColorsPlus, collapse = ", "), ".")
+}
+# Create a CSS rgba declaration for a color name
 
 
 

From d188c60731c0e38dae3cab84ae29031ea4b72270 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 09:50:50 -0400
Subject: [PATCH 20/43] `col2css`: converts a `grDevices::color` to `rgba` css
 declaration

---
 R/utils.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/R/utils.R b/R/utils.R
index c10d5b47..60c802a8 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -228,6 +228,12 @@ validateColors <- function(color) {
          paste(validColorsPlus, collapse = ", "), ".")
 }
 # Create a CSS rgba declaration for a color name
+col2css <- function(color, alpha = NULL) {
+  if (!is_hex_color(color) && !is_rgba_color(color))
+    paste0("rgba(", paste0(c(col2rgb(color), alpha), collapse = ", "), ")")
+  else
+    color
+}
 
 
 

From 97f64c5fa2d24db1f64644a4bde13976ceeb9548 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 09:51:46 -0400
Subject: [PATCH 21/43] `bs4MultiProgressBar` & `bs4ProgressBar`: support all
 colors

---
 R/useful-items.R | 30 ++++++++++++++----------------
 1 file changed, 14 insertions(+), 16 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index df5fe6c3..2f9d889a 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -551,7 +551,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
                             animated = FALSE, status = "primary", size = NULL, 
                             label = NULL, id = NULL) {
   
-  if (!is.null(status)) validateStatusPlus(status)
+  if (!is.null(status)) validateColors(status)
   stopifnot(value >= min)
   stopifnot(value <= max)
   
@@ -561,7 +561,10 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
   
   # bar class
   barCl <- "progress-bar"
-  if (!is.null(status)) barCl <- paste0(barCl, " bg-", status)
+  style <- NULL
+  if (!is.null(status) && status %in% validStatusesPlus) barCl <- paste0(barCl, " bg-", status)
+  else if (status %in% validColorsPlus || is_hex_color(status))
+    style <- paste0(style, "background-color: ", col2css(status), ";")
   if (striped) barCl <- paste0(barCl, " progress-bar-striped")
   if (animated) barCl <- paste0(barCl, " progress-bar-animated")
   
@@ -573,12 +576,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
     `aria-valuenow` = value, 
     `aria-valuemin` = min, 
     `aria-valuemax` = max, 
-    style = if (vertical) {
-      paste0("height: ", paste0(value, "%"))
-    }
-    else {
-      paste0("width: ", paste0(value, "%"))
-    }, 
+    style = paste0(style, ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
     if(!is.null(label)) label
   )
   
@@ -607,7 +605,7 @@ bs4MultiProgressBar <-
     animated <- verify_compatible_lengths(value, animated)
     if (!is.null(label)) label <- verify_compatible_lengths(value, label)
     
-    if (!is.null(status)) lapply(status, function(x) validateStatusPlus(x))
+    if (!is.null(status)) lapply(status, function(x) validateColors(x))
     stopifnot(all(value >= min))
     stopifnot(all(value <= max))
     stopifnot(sum(value) <= max)
@@ -615,7 +613,12 @@ bs4MultiProgressBar <-
     bar_segment <- function(value, striped, animated, status, label) {
       # bar class
       barCl <- "progress-bar"
-      if (!is.null(status)) barCl <- paste0(barCl, " bg-", status)
+      style <- NULL
+      if (!is.null(status) && status %in% validStatusesPlus) barCl <- paste0(barCl, " bg-", status)
+      else if (status %in% validColorsPlus || is_hex_color(status))
+        style <- paste0(style, "background-color: ", col2css(status), ";")
+      
+      
       if (striped) barCl <- paste0(barCl, " progress-bar-striped")
       if (animated) barCl <- paste0(barCl, " progress-bar-animated")
       
@@ -625,12 +628,7 @@ bs4MultiProgressBar <-
         `aria-valuenow` = value, 
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
-        style = if (vertical) {
-          paste0("height: ", paste0(value, "%"))
-        }
-        else {
-          paste0("width: ", paste0(value, "%"))
-        }, 
+        style = paste0(style, ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
         if(!is.null(label)) label
       )
     }

From 5ffead40d9227cc4a8f60167d11fe59f02cfdd23 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 10:11:12 -0400
Subject: [PATCH 22/43] Add namespace to `col2rgb`

---
 R/utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/utils.R b/R/utils.R
index 60c802a8..c3f85601 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -230,7 +230,7 @@ validateColors <- function(color) {
 # Create a CSS rgba declaration for a color name
 col2css <- function(color, alpha = NULL) {
   if (!is_hex_color(color) && !is_rgba_color(color))
-    paste0("rgba(", paste0(c(col2rgb(color), alpha), collapse = ", "), ")")
+    paste0("rgba(", paste0(c(grDevices::col2rgb(color), alpha), collapse = ", "), ")")
   else
     color
 }

From 813d1db8ceee924eed731a7396c2b4ba38217d33 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 12:07:32 -0400
Subject: [PATCH 23/43] Fix typo

---
 R/utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/utils.R b/R/utils.R
index c3f85601..1b0a1b77 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -221,7 +221,7 @@ is_rgba_color <- function(color) {
   grepl("^rgba\\(", color)
 }
 validateColors <- function(color) {
-  if (color %in% validColorsPlus || is_hex_color(color) || is_rgb_color(color))
+  if (color %in% validColorsPlus || is_hex_color(color) || is_rgba_color(color))
     TRUE
   else
     stop("Invalid color: ", color, ". Valid colors are hex or rgba formatted or one of the following: ",

From 571997a99518b4e1aad6c93591468f1b67575d39 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 12:29:42 -0400
Subject: [PATCH 24/43] Documentation. Add `grDevices` to Imports

---
 DESCRIPTION |  1 +
 R/utils.R   | 26 +++++++++++++++++++++++++-
 2 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 99befd21..26f2d67a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -19,6 +19,7 @@ Imports:
     htmltools (>= 0.5.1.1),
     jsonlite (>= 0.9.16),
     fresh,
+    grDevices,
     waiter (>= 0.2.3),
     httpuv (>= 1.5.2),
     lifecycle,
diff --git a/R/utils.R b/R/utils.R
index 1b0a1b77..a0bfcc77 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -212,14 +212,29 @@ validateStatusPlus <- function(status) {
 #' @keywords internal
 validStatusesPlus <- c(validStatuses, validNuances, validColors)
 
+#' All valid colors
+#' @usage NULL
+#' @format NULL
+#'
+#' @keywords internal
 validColorsPlus <- c(grDevices::colours(), validStatusesPlus)
 
+# is string a hex formatted color
 is_hex_color <- function(color) {
   grepl("^\\#[a-fA-F0-9]{3,6}", color)
 }
+# is string an rgba formatted color
 is_rgba_color <- function(color) {
   grepl("^rgba\\(", color)
 }
+
+#' Validate all colors & Bootstrap statuses
+#'
+#' @param color \code{chr} string with status name or color name
+#'
+#' @return \code{lgl}
+#' @export
+#' @seealso grDevices::color
 validateColors <- function(color) {
   if (color %in% validColorsPlus || is_hex_color(color) || is_rgba_color(color))
     TRUE
@@ -227,7 +242,16 @@ validateColors <- function(color) {
     stop("Invalid color: ", color, ". Valid colors are hex or rgba formatted or one of the following: ",
          paste(validColorsPlus, collapse = ", "), ".")
 }
-# Create a CSS rgba declaration for a color name
+
+
+#' Create a CSS rgba declaration for a color name
+#'
+#' @param color \code{chr} Color name, see \link[grDevices]{color}
+#' @param alpha \code{num} alpha value
+#'
+#' @return \code{chr} css `rgba()` formatted color
+#' @export
+
 col2css <- function(color, alpha = NULL) {
   if (!is_hex_color(color) && !is_rgba_color(color))
     paste0("rgba(", paste0(c(grDevices::col2rgb(color), alpha), collapse = ", "), ")")

From 3a70a1f2202a2d108e1f3f84849a4e684919a3f0 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 12:39:46 -0400
Subject: [PATCH 25/43] `bs4ProgressBar` add ID param docs

---
 R/useful-items.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 2f9d889a..3a116583 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -467,7 +467,7 @@ bs4CarouselItem <- function(..., caption = NULL, active = FALSE) {
 #' 
 #' @param size Progress bar size. NULL, "sm", "xs" or "xxs".
 #' @param label Progress label. NULL by default.
-#' 
+#' @param id HTML ID. NULL by default
 #' @md
 #' @details For `multiProgressBar()`, `value` can be a vector which
 #'   corresponds to the progress for each segment within the progress bar.

From d510c07aab4ffe17acbd6504b28ca02e768e513f Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 1 Jun 2022 16:00:10 -0400
Subject: [PATCH 26/43] Add inline style with non status colors back in

---
 R/useful-items.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 8bf9d97b..a0e1bb32 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -585,7 +585,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
     `aria-valuenow` = value, 
     `aria-valuemin` = min, 
     `aria-valuemax` = max, 
-    style = paste0(ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
+    style = paste0(style, ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
     if(!is.null(label)) label
   )
   
@@ -637,7 +637,7 @@ bs4MultiProgressBar <-
         `aria-valuenow` = value, 
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
-        style = paste0(ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
+        style = paste0(style, ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
         if(!is.null(label)) label
       )
     }

From dd9978662c380c976e6df866b88547c9c8747398 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Thu, 2 Jun 2022 08:22:29 -0400
Subject: [PATCH 27/43] Add Docs

---
 NAMESPACE              |  2 ++
 man/col2css.Rd         | 19 +++++++++++++++++++
 man/progress.Rd        | 14 ++++++++++----
 man/validColorsPlus.Rd | 10 ++++++++++
 man/validateColors.Rd  | 20 ++++++++++++++++++++
 5 files changed, 61 insertions(+), 4 deletions(-)
 create mode 100644 man/col2css.Rd
 create mode 100644 man/validColorsPlus.Rd
 create mode 100644 man/validateColors.Rd

diff --git a/NAMESPACE b/NAMESPACE
index c2dc4bb0..53748b80 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -82,6 +82,7 @@ export(cardSidebar)
 export(carousel)
 export(carouselItem)
 export(closeAlert)
+export(col2css)
 export(column)
 export(controlbarItem)
 export(controlbarMenu)
@@ -176,6 +177,7 @@ export(userPost)
 export(userPostMedia)
 export(userPostTagItem)
 export(userPostTagItems)
+export(validateColors)
 export(valueBox)
 export(valueBoxOutput)
 importFrom(jsonlite,toJSON)
diff --git a/man/col2css.Rd b/man/col2css.Rd
new file mode 100644
index 00000000..01a23601
--- /dev/null
+++ b/man/col2css.Rd
@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{col2css}
+\alias{col2css}
+\title{Create a CSS rgba declaration for a color name}
+\usage{
+col2css(color, alpha = NULL)
+}
+\arguments{
+\item{color}{\code{chr} Color name, see \link[grDevices]{color}}
+
+\item{alpha}{\code{num} alpha value}
+}
+\value{
+\code{chr} css `rgba()` formatted color
+}
+\description{
+Create a CSS rgba declaration for a color name
+}
diff --git a/man/progress.Rd b/man/progress.Rd
index 5a0bc61e..11bb371e 100644
--- a/man/progress.Rd
+++ b/man/progress.Rd
@@ -16,7 +16,8 @@ bs4ProgressBar(
   animated = FALSE,
   status = "primary",
   size = NULL,
-  label = NULL
+  label = NULL,
+  id = NULL
 )
 
 bs4MultiProgressBar(
@@ -28,7 +29,8 @@ bs4MultiProgressBar(
   animated = FALSE,
   status = "primary",
   size = NULL,
-  label = NULL
+  label = NULL,
+  id = NULL
 )
 
 progressBar(
@@ -40,7 +42,8 @@ progressBar(
   animated = FALSE,
   status = "primary",
   size = NULL,
-  label = NULL
+  label = NULL,
+  id = NULL
 )
 
 multiProgressBar(
@@ -52,7 +55,8 @@ multiProgressBar(
   animated = FALSE,
   status = "primary",
   size = NULL,
-  label = NULL
+  label = NULL,
+  id = NULL
 )
 }
 \arguments{
@@ -95,6 +99,8 @@ multiProgressBar(
 \item{size}{Progress bar size. NULL, "sm", "xs" or "xxs".}
 
 \item{label}{Progress label. NULL by default.}
+
+\item{id}{HTML ID. NULL by default}
 }
 \description{
 Create a Bootstrap 4 progress bar.
diff --git a/man/validColorsPlus.Rd b/man/validColorsPlus.Rd
new file mode 100644
index 00000000..72db70f6
--- /dev/null
+++ b/man/validColorsPlus.Rd
@@ -0,0 +1,10 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\docType{data}
+\name{validColorsPlus}
+\alias{validColorsPlus}
+\title{All valid colors}
+\description{
+All valid colors
+}
+\keyword{internal}
diff --git a/man/validateColors.Rd b/man/validateColors.Rd
new file mode 100644
index 00000000..ba3b3ad5
--- /dev/null
+++ b/man/validateColors.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{validateColors}
+\alias{validateColors}
+\title{Validate all colors & Bootstrap statuses}
+\usage{
+validateColors(color)
+}
+\arguments{
+\item{color}{\code{chr} string with status name or color name}
+}
+\value{
+\code{lgl}
+}
+\description{
+Validate all colors & Bootstrap statuses
+}
+\seealso{
+grDevices::color
+}

From 020e4f18e0e7ac89c19fb406eb91062c1121fab5 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Thu, 2 Jun 2022 08:27:59 -0400
Subject: [PATCH 28/43] bs4Alert box

---
 NAMESPACE        |  1 +
 R/useful-items.R |  2 +-
 man/box.Rd       |  2 ++
 man/bs4Alert.Rd  | 49 ++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 53 insertions(+), 1 deletion(-)
 create mode 100644 man/bs4Alert.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 53748b80..c610338a 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -20,6 +20,7 @@ export(boxProfileItem)
 export(boxSidebar)
 export(bs4Accordion)
 export(bs4AccordionItem)
+export(bs4Alert)
 export(bs4Badge)
 export(bs4Callout)
 export(bs4Card)
diff --git a/R/useful-items.R b/R/useful-items.R
index a0e1bb32..21f8fd85 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -60,7 +60,7 @@ bs4Badge <- function(..., color, position = c("left", "right"),
 #' @title Bootstrap 4 Alert box
 #' 
 #' @param style \code{(character)} Inline style parameters to add
-#' @inherit bs4Dash::bs4Card params return
+#' @inherit bs4Card params
 #' @export
 
 bs4Alert <- function(..., status = "primary", style = NULL, id = NULL, width = 6) {
diff --git a/man/box.Rd b/man/box.Rd
index 087d565f..c0988e9f 100644
--- a/man/box.Rd
+++ b/man/box.Rd
@@ -37,6 +37,7 @@ bs4Card(
   closable = FALSE,
   maximizable = FALSE,
   icon = NULL,
+  tip_icon = NULL,
   gradient = FALSE,
   boxToolSize = "sm",
   elevation = NULL,
@@ -68,6 +69,7 @@ box(
   closable = FALSE,
   maximizable = FALSE,
   icon = NULL,
+  tip_icon = NULL,
   gradient = FALSE,
   boxToolSize = "sm",
   elevation = NULL,
diff --git a/man/bs4Alert.Rd b/man/bs4Alert.Rd
new file mode 100644
index 00000000..e9b98850
--- /dev/null
+++ b/man/bs4Alert.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/useful-items.R
+\name{bs4Alert}
+\alias{bs4Alert}
+\title{Bootstrap 4 Alert box}
+\usage{
+bs4Alert(..., status = "primary", style = NULL, id = NULL, width = 6)
+}
+\arguments{
+\item{...}{Contents of the box.}
+
+\item{status}{The status of the item. This determines the item's background
+  color.  Valid statuses are defined as follows:
+\itemize{
+  \item \code{primary}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#007bff")}.
+  \item \code{secondary}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#6c757d")}.
+  \item \code{info}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#17a2b8")}.
+  \item \code{success}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#28a745")}.
+  \item \code{warning}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#ffc107")}.
+  \item \code{danger}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#dc3545")}.
+  \item \code{gray-dark}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#343a40")}.
+  \item \code{gray}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#adb5bd")}.
+  \item \code{white}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#fff")}.
+  \item \code{indigo}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#6610f2")}.
+  \item \code{lightblue}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#3c8dbc")}.
+  \item \code{navy}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#001f3f")}.
+  \item \code{purple}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#605ca8")}.
+  \item \code{fuchsia}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#f012be")}.
+  \item \code{pink}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#e83e8c")}.
+  \item \code{maroon}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#d81b60")}.
+  \item \code{orange}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#ff851b")}.
+  \item \code{lime}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#01ff70")}.
+  \item \code{teal}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#39cccc")}.
+  \item \code{olive}: \Sexpr[results=rd, stage=render]{bs4Dash:::rd_color_tag("#3d9970")}.
+}}
+
+\item{style}{\code{(character)} Inline style parameters to add}
+
+\item{id}{Card id.}
+
+\item{width}{The width of the box, using the Bootstrap grid system. This is
+used for row-based layouts. The overall width of a region is 12, so the
+default card width of 6 occupies 1/2 of that width. For column-based
+layouts, use \code{NULL} for the width; the width is set by the column that
+contains the box.}
+}
+\description{
+Bootstrap 4 Alert box
+}

From c97335f7a169f3f9999ed3ee29e475847361f2d7 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Thu, 2 Jun 2022 09:17:08 -0400
Subject: [PATCH 29/43] Add `values_cumulative` arg to `multiProgressBar` to
 support scaling `value` between `min`/`max`

---
 R/useful-items.R | 36 ++++++++++++++++++++++++++++++------
 man/progress.Rd  | 14 +++++++++++---
 2 files changed, 41 insertions(+), 9 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 21f8fd85..290c1ac8 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -477,13 +477,17 @@ bs4CarouselItem <- function(..., caption = NULL, active = FALSE) {
 #' @param size Progress bar size. NULL, "sm", "xs" or "xxs".
 #' @param label Progress label. NULL by default.
 #' @param id HTML ID. NULL by default
+#' @param values_cumulative \code{multiProgressBar} only. Whether \code{value} is comprised of cumulative  \code{TRUE} values or actual \code{FALSE} values. See details for examples.
 #' @md
 #' @details For `multiProgressBar()`, `value` can be a vector which
 #'   corresponds to the progress for each segment within the progress bar.
 #'   If supplied, `striped`, `animated`, `status`, and `label` must be the
 #'   same length as `value` or length 1, in which case vector recycling is
-#'   used.
-#' 
+#'   used. The `values_cumulative` argument is described below:
+#'   \itemize{
+#'   \item{cumulative}{ values = c(10, 20, 30) is interpreted as a 10% width bar, a 20% width bar, and a 30% width bar for a total of 60%}
+#'   \item{actual}{ values = c(10, 20, 30) is interpreted as a 10% width bar, a 10% width bar, and a 10% width bar for a total of 30%. These values are scaled by \code{min} & \code{max} arguments.} 
+#' }
 #' @examples
 #' if(interactive()){
 #'  library(shiny)
@@ -593,6 +597,18 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
   progressTag <- shiny::tagAppendChild(progressTag, barTag)
   progressTag
 }
+# Scale values to a percentage/decimal by min & max
+val2pct <- function(val, min = 0, max = 100, include_min = TRUE, include_max = FALSE, as_percent = TRUE) {
+  .val <- sort(val)
+  if (include_min)
+    .val <- c(min, .val)
+  if (include_max)
+    .val <- c(.val, max)
+  out <- diff((.val - min) / (max - min))
+  if (as_percent)
+    out <- out * 100
+  out
+}
 
 #' @rdname progress
 #' @export
@@ -607,7 +623,8 @@ bs4MultiProgressBar <-
     status = "primary",
     size = NULL,
     label = NULL,
-    id = NULL
+    id = NULL,
+    values_cumulative = TRUE
   ) {
     status <- verify_compatible_lengths(value, status)
     striped <- verify_compatible_lengths(value, striped)
@@ -617,7 +634,14 @@ bs4MultiProgressBar <-
     if (!is.null(status)) lapply(status, function(x) validateColors(x))
     stopifnot(all(value >= min))
     stopifnot(all(value <= max))
-    stopifnot(sum(value) <= max)
+    if (!values_cumulative) {
+      .value <- val2pct(value, min = min, max = max)
+      stopifnot(sum(.value) <= 100)
+    } else {
+      .value <- value
+      stopifnot(sum(value) <= max)
+    }
+      
     
     bar_segment <- function(value, striped, animated, status, label) {
       # bar class
@@ -637,7 +661,7 @@ bs4MultiProgressBar <-
         `aria-valuenow` = value, 
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
-        style = paste0(style, ifelse(vertical, "height: ", "width: "), ((value - min) / (max - min) * 100), "%"), 
+        style = paste0(style, ifelse(vertical, "height: ", "width: "), value, "%"), 
         if(!is.null(label)) label
       )
     }
@@ -647,7 +671,7 @@ bs4MultiProgressBar <-
     for (i in seq_along(value)) {
       barSegs[[i]] <- 
         bar_segment(
-          value[[i]],
+          .value[[i]],
           striped[[i]],
           animated[[i]],
           status[[i]],
diff --git a/man/progress.Rd b/man/progress.Rd
index 11bb371e..31ca095c 100644
--- a/man/progress.Rd
+++ b/man/progress.Rd
@@ -30,7 +30,8 @@ bs4MultiProgressBar(
   status = "primary",
   size = NULL,
   label = NULL,
-  id = NULL
+  id = NULL,
+  values_cumulative = TRUE
 )
 
 progressBar(
@@ -56,7 +57,8 @@ multiProgressBar(
   status = "primary",
   size = NULL,
   label = NULL,
-  id = NULL
+  id = NULL,
+  values_cumulative = TRUE
 )
 }
 \arguments{
@@ -101,6 +103,8 @@ multiProgressBar(
 \item{label}{Progress label. NULL by default.}
 
 \item{id}{HTML ID. NULL by default}
+
+\item{values_cumulative}{\code{multiProgressBar} only. Whether \code{value} is comprised of cumulative  \code{TRUE} values or actual \code{FALSE} values. See details for examples.}
 }
 \description{
 Create a Bootstrap 4 progress bar.
@@ -110,7 +114,11 @@ For \code{multiProgressBar()}, \code{value} can be a vector which
 corresponds to the progress for each segment within the progress bar.
 If supplied, \code{striped}, \code{animated}, \code{status}, and \code{label} must be the
 same length as \code{value} or length 1, in which case vector recycling is
-used.
+used. The \code{values_cumulative} argument is described below:
+\itemize{
+\item{cumulative}{ values = c(10, 20, 30) is interpreted as a 10\% width bar, a 20\% width bar, and a 30\% width bar for a total of 60\%}
+\item{actual}{ values = c(10, 20, 30) is interpreted as a 10\% width bar, a 10\% width bar, and a 10\% width bar for a total of 30\%. These values are scaled by \code{min} & \code{max} arguments.}
+}
 }
 \examples{
 if(interactive()){

From 3068f60623fabab31ab9259edb795416c76702b5 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Thu, 2 Jun 2022 09:23:45 -0400
Subject: [PATCH 30/43] Fix grDevices doc link

---
 R/utils.R      | 2 +-
 man/col2css.Rd | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/utils.R b/R/utils.R
index 37e1ff09..26fafa24 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -246,7 +246,7 @@ validateColors <- function(color) {
 
 #' Create a CSS rgba declaration for a color name
 #'
-#' @param color \code{chr} Color name, see \link[grDevices]{color}
+#' @param color \code{chr} Color name, see \link[grDevices]{colors}
 #' @param alpha \code{num} alpha value
 #'
 #' @return \code{chr} css `rgba()` formatted color
diff --git a/man/col2css.Rd b/man/col2css.Rd
index 01a23601..956f3506 100644
--- a/man/col2css.Rd
+++ b/man/col2css.Rd
@@ -7,7 +7,7 @@
 col2css(color, alpha = NULL)
 }
 \arguments{
-\item{color}{\code{chr} Color name, see \link[grDevices]{color}}
+\item{color}{\code{chr} Color name, see \link[grDevices]{colors}}
 
 \item{alpha}{\code{num} alpha value}
 }

From 6316174b598fd2cc0fd2764e835f5e70fc796d8d Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Fri, 3 Jun 2022 17:28:44 -0400
Subject: [PATCH 31/43] Fix case where `values_cumulative = TRUE` and `vertical
 = TRUE`

---
 R/useful-items.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index 290c1ac8..35dd09ef 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -661,7 +661,7 @@ bs4MultiProgressBar <-
         `aria-valuenow` = value, 
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
-        style = paste0(style, ifelse(vertical, "height: ", "width: "), value, "%"), 
+        style = paste0(style, ifelse(vertical, "height: ", "width: "), value, "%;", ifelse(values_cumulative && vertical, "position: relative;", "")), 
         if(!is.null(label)) label
       )
     }

From 1aeb8bf22b6507e1ec12ce4a1cb2926ca0326519 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Fri, 3 Jun 2022 18:23:44 -0400
Subject: [PATCH 32/43] `values_cumulative = TRUE`: value order appears top to
 bottom, this makes them bottom to top (more intuitive)

---
 R/useful-items.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/R/useful-items.R b/R/useful-items.R
index 35dd09ef..b11718d0 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -666,6 +666,14 @@ bs4MultiProgressBar <-
       )
     }
     
+    if (vertical && values_cumulative) {
+      # the vertical bar has the divs rendered in order so it appears top down. This reverses the order so it appears bottom up as is more intuitive.
+      .value <- rev(.value)
+      status <- rev(status)
+      striped <- rev(striped)
+      animated <- rev(animated)
+      label <- rev(label)
+    }
     barSegs <- list()
     # progress bar segments
     for (i in seq_along(value)) {

From 0d736bc9e9328b741cec34d3fecb6d3a50b0009b Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Fri, 3 Jun 2022 18:24:52 -0400
Subject: [PATCH 33/43] when bar is vertical it sets position: absolute;
 forcing each segment on top of the previous. This fixes this issue.

---
 R/useful-items.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index b11718d0..2f5d6789 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -661,7 +661,7 @@ bs4MultiProgressBar <-
         `aria-valuenow` = value, 
         `aria-valuemin` = min, 
         `aria-valuemax` = max, 
-        style = paste0(style, ifelse(vertical, "height: ", "width: "), value, "%;", ifelse(values_cumulative && vertical, "position: relative;", "")), 
+        style = paste0(style, ifelse(vertical, "height: ", "width: "), value, "%;", ifelse(vertical && values_cumulative, "position:relative;", "")), 
         if(!is.null(label)) label
       )
     }

From 622668776cd555658f0a4e4b39b17377f5fd24dd Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Thu, 21 Jul 2022 11:07:36 -0400
Subject: [PATCH 34/43] Bump version on local

---
 DESCRIPTION                   | 2 +-
 inst/bs4Dash-2.1.0/bs4Dash.js | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 26f2d67a..e57b1086 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: bs4Dash
 Type: Package
 Title: A 'Bootstrap 4' Version of 'shinydashboard'
-Version: 2.1.0
+Version: 2.1.0.9000
 Authors@R: c(
   person("David", "Granjon", email = "dgranjon@ymail.com", role = c("aut", "cre")),
   person(family = "RinteRface", role = "cph"),
diff --git a/inst/bs4Dash-2.1.0/bs4Dash.js b/inst/bs4Dash-2.1.0/bs4Dash.js
index 1e7d349c..632ba315 100644
--- a/inst/bs4Dash-2.1.0/bs4Dash.js
+++ b/inst/bs4Dash-2.1.0/bs4Dash.js
@@ -1,5 +1,13 @@
 // This code creates an input binding for the accordion component
 var accordionBinding = new Shiny.InputBinding();
+$(function() {
+   // code to make sure that a carousel item is displayed
+  // when it is generated via a shiny Output function
+  // Thanks Dean Attali for the report
+  $(".carousel").on("slide.bs.carousel", function() {
+    $(this).trigger("shown");
+  });
+})
 
 $.extend(accordionBinding, {
   find: function(scope) {

From 901015b71c2198235c121f6c79afc5d17a82a587 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Thu, 21 Jul 2022 11:49:04 -0400
Subject: [PATCH 35/43] Revert version as internal dependency versions must
 match

---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index e57b1086..26f2d67a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: bs4Dash
 Type: Package
 Title: A 'Bootstrap 4' Version of 'shinydashboard'
-Version: 2.1.0.9000
+Version: 2.1.0
 Authors@R: c(
   person("David", "Granjon", email = "dgranjon@ymail.com", role = c("aut", "cre")),
   person(family = "RinteRface", role = "cph"),

From 45bd557a14ab1fdf8c6e00a918b78160e5a8cc76 Mon Sep 17 00:00:00 2001
From: Keaton Wilson <keaton@virgalabs.io>
Date: Fri, 9 Sep 2022 16:46:42 -0700
Subject: [PATCH 36/43] modified bs4Accordion to accept a new arg that turns
 off only having one accordion at time open

---
 R/useful-items.R | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index a0de8d79..b460748c 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -120,10 +120,10 @@ bs4Badge <- function(..., color, position = c("left", "right"),
 #' }
 #'
 #' @export
-bs4Accordion <- function(..., id, width = 12) {
+bs4Accordion <- function(..., id, width = 12, collapse_all = TRUE) {
   
   items <- list(...)
-  
+  if (collapse_all) {
   # patch that enables a proper accordion behavior
   # we add the data-parent non standard attribute to each
   # item. Each accordion must have a unique id.
@@ -132,6 +132,12 @@ bs4Accordion <- function(..., id, width = 12) {
     items[[i]]$children[[1]]$children[[1]]$children[[1]]$attribs$`data-target` <<- paste0("#collapse_", id, "_", i)
     items[[i]]$children[[2]]$attribs[["id"]] <<- paste0("collapse_", id, "_", i)
   })
+  } else {
+    lapply(seq_along(items), FUN = function(i) {
+      items[[i]]$children[[1]]$children[[1]]$children[[1]]$attribs$`data-target` <<- paste0("#collapse_", id, "_", i)
+      items[[i]]$children[[2]]$attribs[["id"]] <<- paste0("collapse_", id, "_", i)
+    })
+  }
   
   shiny::tags$div(
     class = if (!is.null(width)) paste0("col-sm-", width),

From 173cb2b1545228114b53958ca8402b76368d2b1d Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Mon, 12 Sep 2022 11:47:09 -0400
Subject: [PATCH 37/43] `bs4MultiProgressBar`: add `style` argument back in.
 Fix bs4Card test

---
 R/useful-items.R               | 4 ++--
 tests/testthat/test-bs4Cards.R | 6 +++++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index bc4b2b67..f397c5ba 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -483,6 +483,7 @@ bs4CarouselItem <- function(..., caption = NULL, active = FALSE) {
 #' @param size Progress bar size. NULL, "sm", "xs" or "xxs".
 #' @param label Progress label. NULL by default.
 #' @param id HTML ID. NULL by default
+#' @param style \code{chr} CSS Styles applied to each bar
 #' @param values_cumulative \code{multiProgressBar} only. Whether \code{value} is comprised of cumulative  \code{TRUE} values or actual \code{FALSE} values. See details for examples.
 #' @md
 #' @details For `multiProgressBar()`, `value` can be a vector which
@@ -632,7 +633,7 @@ bs4MultiProgressBar <-
     size = NULL,
     label = NULL,
     id = NULL,
-    values_cumulative = TRUE
+    values_cumulative = TRUE,
     style = NULL
   ) {
     status <- verify_compatible_lengths(value, status)
@@ -655,7 +656,6 @@ bs4MultiProgressBar <-
     bar_segment <- function(value, striped, animated, status, label) {
       # bar class
       barCl <- "progress-bar"
-      style <- NULL
       if (!is.null(status) && status %in% validStatusesPlus) barCl <- paste0(barCl, " bg-", status)
       else if (status %in% validColorsPlus || is_hex_color(status))
         style <- paste0(style, "background-color: ", col2css(status), ";")
diff --git a/tests/testthat/test-bs4Cards.R b/tests/testthat/test-bs4Cards.R
index 154d281d..233f38d7 100644
--- a/tests/testthat/test-bs4Cards.R
+++ b/tests/testthat/test-bs4Cards.R
@@ -12,6 +12,10 @@ getCardId <- function(card) {
   card$children[[1]]$attribs$id
 }
 
+getCardStyle <- function(card) {
+  card$children[[1]]$attribs$style
+}
+
 getCardChildren <- function(card) {
   bs4Dash:::dropNulls(card$children[[1]]$children)
 }
@@ -172,7 +176,7 @@ test_that("height", {
   expect_error(bs4Card(height = "prout"))
   
   cardTag <- bs4Card(height = "400px")
-  bodyStyle <- getCardBodyStyle(cardTag)
+  bodyStyle <- getCardStyle(cardTag)
   expect_match(bodyStyle, "height: 400px")
   
   # cardTag <- bs4Card(overflow = TRUE)

From 4494684c48bbf07417a9d4363227b22d0217726c Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Mon, 12 Sep 2022 11:47:15 -0400
Subject: [PATCH 38/43] Doc updates

---
 man/accordion.Rd |  4 ++--
 man/box.Rd       |  2 ++
 man/progress.Rd  | 10 ++++++++--
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/man/accordion.Rd b/man/accordion.Rd
index c3d02ce4..e557ffee 100644
--- a/man/accordion.Rd
+++ b/man/accordion.Rd
@@ -8,7 +8,7 @@
 \alias{accordionItem}
 \title{Bootstrap 4 accordion container}
 \usage{
-bs4Accordion(..., id, width = 12)
+bs4Accordion(..., id, width = 12, collapse_all = TRUE)
 
 bs4AccordionItem(
   ...,
@@ -20,7 +20,7 @@ bs4AccordionItem(
 
 updateAccordion(id, selected, session = shiny::getDefaultReactiveDomain())
 
-accordion(..., id, width = 12)
+accordion(..., id, width = 12, collapse_all = TRUE)
 
 accordionItem(..., title, status = NULL, collapsed = TRUE, solidHeader = TRUE)
 }
diff --git a/man/box.Rd b/man/box.Rd
index d12cd36e..b944d544 100644
--- a/man/box.Rd
+++ b/man/box.Rd
@@ -241,6 +241,8 @@ the user to collapse the box.}
 
 \item{icon}{Header icon. Displayed before title. Expect \code{\link[shiny]{icon}}.}
 
+\item{tip_icon}{Tip icon. Tooltip Icon displayed after title. Expect \code{\link[tippy]{tippy}}.}
+
 \item{gradient}{Whether to allow gradient effect for the background color. Default to FALSE.}
 
 \item{boxToolSize}{Size of the toolbox: choose among "xs", "sm", "md", "lg".}
diff --git a/man/progress.Rd b/man/progress.Rd
index 31ca095c..a4ec83cb 100644
--- a/man/progress.Rd
+++ b/man/progress.Rd
@@ -17,6 +17,7 @@ bs4ProgressBar(
   status = "primary",
   size = NULL,
   label = NULL,
+  style = NULL,
   id = NULL
 )
 
@@ -31,7 +32,8 @@ bs4MultiProgressBar(
   size = NULL,
   label = NULL,
   id = NULL,
-  values_cumulative = TRUE
+  values_cumulative = TRUE,
+  style = NULL
 )
 
 progressBar(
@@ -44,6 +46,7 @@ progressBar(
   status = "primary",
   size = NULL,
   label = NULL,
+  style = NULL,
   id = NULL
 )
 
@@ -58,7 +61,8 @@ multiProgressBar(
   size = NULL,
   label = NULL,
   id = NULL,
-  values_cumulative = TRUE
+  values_cumulative = TRUE,
+  style = NULL
 )
 }
 \arguments{
@@ -102,6 +106,8 @@ multiProgressBar(
 
 \item{label}{Progress label. NULL by default.}
 
+\item{style}{\code{chr} CSS Styles applied to each bar}
+
 \item{id}{HTML ID. NULL by default}
 
 \item{values_cumulative}{\code{multiProgressBar} only. Whether \code{value} is comprised of cumulative  \code{TRUE} values or actual \code{FALSE} values. See details for examples.}

From abcb275f8a80f7a7277c4f67389e74e98ec804b0 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Mon, 31 Oct 2022 13:44:57 -0400
Subject: [PATCH 39/43] NavBar accepts more diverse set of tags

---
 R/dashboardHeader.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/R/dashboardHeader.R b/R/dashboardHeader.R
index b436952d..97be8412 100644
--- a/R/dashboardHeader.R
+++ b/R/dashboardHeader.R
@@ -59,23 +59,24 @@ bs4DashNavbar <- function(..., title = NULL, titleWidth = NULL, disable = FALSE,
   # by the end user.
   if (skin == "dark" && is.null(status)) status <- "gray-dark"
 
+  .types <- c("li", "a", "button", "div", "shiny.tag")
   if (!is.null(leftUi)) {
     if (inherits(leftUi, "shiny.tag.list")) {
       lapply(leftUi, function(item) {
-        tagAssert(item, type = "li", class = "dropdown")
+        tagAssert(item, type = .types)
       })
     } else {
-      tagAssert(leftUi, type = "li", class = "dropdown")
+      tagAssert(leftUi, type = .types)
     }
   }
 
   if (!is.null(rightUi)) {
     if (inherits(rightUi, "shiny.tag.list")) {
       lapply(rightUi, function(item) {
-        tagAssert(item, type = "li", class = "dropdown")
+        tagAssert(item, type = .types)
       })
     } else {
-      tagAssert(rightUi, type = "li", class = "dropdown")
+      tagAssert(rightUi, type = .types)
     }
   }
 

From 237ba12c5df12a68b59ea28878cf013991ac63ba Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 16 Nov 2022 12:46:04 -0800
Subject: [PATCH 40/43] Add UU Reimports

---
 DESCRIPTION       |  6 +++++-
 NAMESPACE         | 14 ++++++++++++++
 R/aaa_reimports.R | 28 ++++++++++++++++++++++++++++
 man/Re-imports.Rd |  8 ++++++++
 man/reexports.Rd  | 24 ++++++++++++++++++++++++
 5 files changed, 79 insertions(+), 1 deletion(-)
 create mode 100644 R/aaa_reimports.R
 create mode 100644 man/Re-imports.Rd
 create mode 100644 man/reexports.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index 399a31e2..b04a7b44 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -24,7 +24,8 @@ Imports:
     httpuv (>= 1.5.2),
     lifecycle,
     bslib (>= 0.2.4),
-    httr
+    httr,
+    UU (>= 1.5.1)
 Suggests: 
     knitr,
     rmarkdown,
@@ -37,6 +38,7 @@ Encoding: UTF-8
 RoxygenNote: 7.2.1
 VignetteBuilder: knitr
 Collate: 
+    'aaa_reimports.R'
     'feedbacks.R'
     'useful-items.R'
     'tabs.R'
@@ -58,3 +60,5 @@ Collate:
     'skinSelector.R'
     'utils.R'
 RdMacros: lifecycle
+Remotes: 
+    yogat3ch/UU
diff --git a/NAMESPACE b/NAMESPACE
index c610338a..96c7a7be 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,5 +1,12 @@
 # Generated by roxygen2: do not edit by hand
 
+export("%nin%")
+export("%|%")
+export("%|0|%")
+export("%|legit|%")
+export("%|try|%")
+export("%|zchar|%")
+export("%||%")
 export(accordion)
 export(accordionItem)
 export(actionButton)
@@ -181,5 +188,12 @@ export(userPostTagItems)
 export(validateColors)
 export(valueBox)
 export(valueBoxOutput)
+importFrom(UU,`%nin%`)
+importFrom(UU,`%|0|%`)
+importFrom(UU,`%|legit|%`)
+importFrom(UU,`%|try|%`)
+importFrom(UU,`%|zchar|%`)
 importFrom(jsonlite,toJSON)
 importFrom(lifecycle,deprecated)
+importFrom(rlang,`%|%`)
+importFrom(rlang,`%||%`)
diff --git a/R/aaa_reimports.R b/R/aaa_reimports.R
new file mode 100644
index 00000000..43dbb0b8
--- /dev/null
+++ b/R/aaa_reimports.R
@@ -0,0 +1,28 @@
+#' @title Re-imports
+#' @name Re-imports
+#' @description Useful functions from other packages
+#' @importFrom rlang `%||%` `%|%`
+#' @importFrom UU `%|0|%` `%|try|%` `%|zchar|%` `%|legit|%` `%nin%`
+NULL
+
+
+#' @export
+rlang::`%||%`
+
+#' @export
+rlang::`%|%`
+
+#' @export
+UU::`%|try|%`
+
+#' @export
+UU::`%|0|%`
+
+#' @export
+UU::`%|zchar|%`
+
+#' @export
+UU::`%|legit|%`
+
+#' @export
+UU::`%nin%`
diff --git a/man/Re-imports.Rd b/man/Re-imports.Rd
new file mode 100644
index 00000000..a195e6fe
--- /dev/null
+++ b/man/Re-imports.Rd
@@ -0,0 +1,8 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/aaa_reimports.R
+\name{Re-imports}
+\alias{Re-imports}
+\title{Re-imports}
+\description{
+Useful functions from other packages
+}
diff --git a/man/reexports.Rd b/man/reexports.Rd
new file mode 100644
index 00000000..4cdf6edb
--- /dev/null
+++ b/man/reexports.Rd
@@ -0,0 +1,24 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/aaa_reimports.R
+\docType{import}
+\name{reexports}
+\alias{reexports}
+\alias{\%||\%}
+\alias{\%|\%}
+\alias{\%|try|\%}
+\alias{\%|0|\%}
+\alias{\%|zchar|\%}
+\alias{\%|legit|\%}
+\alias{\%nin\%}
+\title{Objects exported from other packages}
+\keyword{internal}
+\description{
+These objects are imported from other packages. Follow the links
+below to see their documentation.
+
+\describe{
+  \item{rlang}{\code{\link[rlang:op-na-default]{\%|\%}}, \code{\link[rlang:op-null-default]{\%||\%}}}
+
+  \item{UU}{\code{\link[UU:grapes-or-0-or-grapes]{\%|0|\%}}, \code{\link[UU:grapes-or-legit-or-grapes]{\%|legit|\%}}, \code{\link[UU:tick-grapes-or-try-or-grapes-tick]{\%|try|\%}}, \code{\link[UU:grapes-or-zchar-or-grapes]{\%|zchar|\%}}, \code{\link[UU:grapes-nin-grapes]{\%nin\%}}}
+}}
+

From f00ab7e0b0547536b3165d20d90fe99d914618f0 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 16 Nov 2022 12:46:36 -0800
Subject: [PATCH 41/43] Relax ui element class in navbar to include
 shiny.tag.list

---
 R/dashboardHeader.R | 2 +-
 R/utils.R           | 7 +------
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/R/dashboardHeader.R b/R/dashboardHeader.R
index 97be8412..751ce532 100644
--- a/R/dashboardHeader.R
+++ b/R/dashboardHeader.R
@@ -59,7 +59,7 @@ bs4DashNavbar <- function(..., title = NULL, titleWidth = NULL, disable = FALSE,
   # by the end user.
   if (skin == "dark" && is.null(status)) status <- "gray-dark"
 
-  .types <- c("li", "a", "button", "div", "shiny.tag")
+  .types <- c("li", "a", "button", "div", "shiny.tag", "shiny.tag.list")
   if (!is.null(leftUi)) {
     if (inherits(leftUi, "shiny.tag.list")) {
       lapply(leftUi, function(item) {
diff --git a/R/utils.R b/R/utils.R
index 8b927de2..c81de609 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -8,11 +8,6 @@
 #'   contents.
 #' @keywords internal
 tagAssert <- function(tag, type = NULL, class = NULL, allowUI = TRUE) {
-  if (!inherits(tag, "shiny.tag")) {
-    print(tag)
-    stop("Expected an object with class 'shiny.tag'.")
-  }
-  
   # Skip dynamic output elements
   if (allowUI &&
       (hasCssClass(tag, "shiny-html-output") ||
@@ -20,7 +15,7 @@ tagAssert <- function(tag, type = NULL, class = NULL, allowUI = TRUE) {
     return()
   }
   
-  if (!is.null(type) && !tag$name %in% type) {
+  if (!is.null(type) && !(tag$name %||% "" %in% type || inherits(tag, type))) {
     stop("Expected tag to be of type(s) ", paste0(type, collapse = ", "))
   }
   

From 06a08e797d123a9f8843bd8d02df9b35f84e0e85 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 7 Dec 2022 11:40:34 -0500
Subject: [PATCH 42/43] Remove bottom margin from progress bars

---
 R/useful-items.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/useful-items.R b/R/useful-items.R
index f397c5ba..c8f02e3b 100644
--- a/R/useful-items.R
+++ b/R/useful-items.R
@@ -578,7 +578,7 @@ bs4ProgressBar <- function (value, min = 0, max = 100, vertical = FALSE, striped
   stopifnot(value <= max)
   
   # wrapper class
-  progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress mb-3"
+  progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress"
   if (!is.null(size)) progressCl <- paste0(progressCl, " progress-", size)
   
   # bar class
@@ -697,7 +697,7 @@ bs4MultiProgressBar <-
     }
     
     # wrapper class
-    progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress mb-3"
+    progressCl <- if (isTRUE(vertical)) "progress vertical" else "progress"
     if (!is.null(size)) progressCl <- paste0(progressCl, " progress-", size)
     progressTag <- shiny::tags$div(id = id, style = style, class = progressCl)
     progressTag <- shiny::tagAppendChild(progressTag, barSegs)

From 69ebf4f6993fe40d9df343d8533ecb6f7c396817 Mon Sep 17 00:00:00 2001
From: Stephen Holsenbeck <stephen@virgalabs.io>
Date: Wed, 11 Jan 2023 14:13:51 -0500
Subject: [PATCH 43/43] `bs4InfoBox`: make icon optional (so it can instead be
 added to the `value` field)

---
 R/cards.R | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/R/cards.R b/R/cards.R
index 3c0ac7be..7d8f0f9e 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -1002,7 +1002,6 @@ bs4InfoBox <- function(title, value = NULL, subtitle = NULL, icon = shiny::icon(
                        elevation = NULL, iconElevation = NULL, tabName = NULL) {
 
   # check conditions
-  tagAssert(icon, "i")
   if (!is.null(color)) validateStatusPlus(color)
 
   if (is.null(color) && (fill || gradient)) {
@@ -1053,12 +1052,16 @@ bs4InfoBox <- function(title, value = NULL, subtitle = NULL, icon = shiny::icon(
   }
   if (!is.null(iconElevation)) infoBoxIconCl <- paste0(infoBoxIconCl, " elevation-", iconElevation)
 
-  iconTag <- shiny::tags$span(
-    class = infoBoxIconCl,
-    id = if (!is.null(tabName)) paste0("icon-", tabName),
-    # icon
-    icon
-  )
+  if (!is.null(icon)) {
+    tagAssert(icon, "i")
+    iconTag <- shiny::tags$span(
+      class = infoBoxIconCl,
+      id = if (!is.null(tabName)) paste0("icon-", tabName),
+      # icon
+      icon
+    )
+  } else
+    iconTag <- icon
 
 
   contentTag <- shiny::tags$div(