essai two grids in one app

stla · Oct 27, 2023 · cd61159 · cd61159
1 parent 2292272
commit cd61159
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/inst/essais/essai_gridSearch.R b/inst/essais/essai_gridSearch.R
@@ -188,12 +188,17 @@ ui <-   fluidPage(
     )
   ),
   titlePanel("jsTree grid"),
-  jstreeOutput("jstree")
+  splitLayout(
+    jstreeOutput("jstree"),
+    jstreeOutput("jstree2")
+  )
 )
 
 server <-   function(input, output){
   output[["jstree"]] <-
     renderJstree(jstree(nodes, search = TRUE, grid = grid, types = types))
+  output[["jstree2"]] <-
+    renderJstree(jstree(nodes, search = TRUE, grid = grid, types = types))
 }
 
 shinyApp(ui, server)