start hidden box without server

calderonsamuel · Aug 26, 2022 · 5290c34 · 5290c34
1 parent 3fd2957
commit 5290c34
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/R/mod_task_manager.R b/R/mod_task_manager.R
@@ -49,7 +49,6 @@ mod_task_man_output <- function(id, user_iniciado) {
                         label = "¿Necesita plantilla?",
                         choices = c("No" = "false",
                                     "Sí" = "true")
-                        # status = "info"
                     )
                 ),
                 col_6(
@@ -75,7 +74,7 @@ mod_task_man_output <- function(id, user_iniciado) {
                     btn_guardar(ns("save"), block = TRUE)
                 )
             )
-        )
+        ) |> boxHide()
     )
 }
 
@@ -86,7 +85,7 @@ mod_task_man_server <- function(id, user_iniciado) {
     moduleServer(id, function(input, output, session) {
         ns <- session$ns
 
-        bs4Dash::updateBox("box_nueva_tarea", "remove")
+        # bs4Dash::updateBox("box_nueva_tarea", "remove")
 
         choices_for_tasks <- user_get_choices_for_tasks(user_iniciado)
 
@@ -138,7 +137,7 @@ mod_task_man_server <- function(id, user_iniciado) {
         })
 
         observe({
-            bs4Dash::updateBox(id = "box_nueva_tarea", action = "restore")
+            bs4Dash::updateBox(id = "box_nueva_tarea", action = "restore", session = session)
         }) |> bindEvent(input$add)
 
         observeEvent(input$type,{
@@ -159,14 +158,14 @@ mod_task_man_server <- function(id, user_iniciado) {
 
                 updateTextAreaInput(session, "description", value = "")
 
-                bs4Dash::updateBox(id = "box_nueva_tarea", action = "remove")
+                bs4Dash::updateBox(id = "box_nueva_tarea", action = "remove", session = session)
 
                 alert_success(session = session, text = "La tarea se añadió correctamente")
             }
         })
 
         observe({
-            bs4Dash::updateBox(id = "box_nueva_tarea", action = "remove")
+            bs4Dash::updateBox(id = "box_nueva_tarea", action = "remove", session = session)
         }) |> bindEvent(input$cancelar)
 
         # return