assign random id to panel when id is NULL

RinteRface · Mar 21, 2024 · 49701d3 · 49701d3
1 parent 68d2313
commit 49701d3
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 11 deletions.
diff --git a/R/f7Panel.R b/R/f7Panel.R
@@ -41,6 +41,13 @@ f7Panel <- function(..., id = NULL, title = NULL,
   panelCl <- sprintf("panel panel-%s panel-%s", side, effect)
   if (resizable) panelCl <- paste0(panelCl, " panel-resizable")
 
+  if (is.null(id)) {
+    id <- sprintf(
+      "panel_%s",
+      round(stats::runif(1, min = 0, max = 1e9))
+    )
+  }
+
   options[["effect"]] <- effect
 
   shiny::tags$div(

diff --git a/inst/shinyMobile-1.0.1/dist/shinyMobile.min.css.map b/inst/shinyMobile-1.0.1/dist/shinyMobile.min.css.map
diff --git a/inst/shinyMobile-1.0.1/dist/shinyMobile.min.js b/inst/shinyMobile-1.0.1/dist/shinyMobile.min.js
diff --git a/inst/shinyMobile-1.0.1/dist/shinyMobile.min.js.map b/inst/shinyMobile-1.0.1/dist/shinyMobile.min.js.map
diff --git a/srcjs/bindings/panelInputBinding.js b/srcjs/bindings/panelInputBinding.js
@@ -9,13 +9,11 @@ $.extend(f7PanelBinding, {
     this.app = getAppInstance();
     var id = $(el).attr('id');
     var config = {};
-    if (id !== undefined) {
-      config = JSON.parse($(el)
-        .find("script[data-for='" + id + "']")
-        .html());
-      // add id
-      config.el = '#' + id;
-    }
+    config = JSON.parse($(el)
+      .find("script[data-for='" + id + "']")
+      .html());
+    // add id
+    config.el = '#' + id;
 
     // this is to show shiny outputs in the sheet
     config.on = {