grid KPIs boxes shown again after loading data

markheckmann · markheckmann · commit b5def85b9cd7 · 2022-05-08T19:54:31.000+02:00
diff --git a/inst/shiny/server.R b/inst/shiny/server.R
@@ -199,8 +199,8 @@ server <- function(input, output, session)
     show("settings_box_1")
     show("settings_box_2")
     show("tour_box")
+    show("success_box")
     hide("excel_info_box")
-    # hide("grid_box")
     
     nms <- names(x) %>% str_replace_all("\\.", " ")
     
diff --git a/inst/shiny/ui.R b/inst/shiny/ui.R
@@ -318,7 +318,6 @@ body <- dashboardBody(
                       )),
                       hidden(
                           div(id = "success_box",
-
                               introBox(data.step = 2, data.intro = "The boxes contain basic information about the grid you uploaded.",
                                 fluidRow(
                                   div(id = "grid_kpi_boxes",
@@ -328,7 +327,7 @@ body <- dashboardBody(
                                   )
                                 )
                               )
-                        )
+                          )
                       ),
                      
                     #______ table -----------------

Original file line number	Diff line number	Diff line change
`@@ -318,7 +318,6 @@ body <- dashboardBody(`
`318`	`318`	`)),`
`319`	`319`	`hidden(`
`320`	`320`	`div(id = "success_box",`
`321`		`-`
`322`	`321`	`introBox(data.step = 2, data.intro = "The boxes contain basic information about the grid you uploaded.",`
`323`	`322`	`fluidRow(`
`324`	`323`	`div(id = "grid_kpi_boxes",`
`@@ -328,7 +327,7 @@ body <- dashboardBody(`
`328`	`327`	`)`
`329`	`328`	`)`
`330`	`329`	`)`
`331`		`- )`
	`330`	`+ )`
`332`	`331`	`),`
`333`	`332`
`334`	`333`	`#______ table -----------------`