Update app.R

app.R

@@ -78,6 +78,7 @@ ui <- dashboardPage(
       box(
         class = "box",
         title = "Map of Observations",
+        maximizable = TRUE,
         width = 12,
         status = "primary",
         solidHeader = T,
@@ -87,7 +88,8 @@ ui <- dashboardPage(
     fluidRow(
       box(
         class = "box",
-        title = "Plot of Observation Over time",
+        title = "Plot of Observation Overtime",
+        maximizable = TRUE,
         status = "primary",
         solidHeader = T,
         highchartOutput("chart"), elevation = 4
@@ -95,6 +97,7 @@ ui <- dashboardPage(
       box(
         class = "box",
         title = "Observation Data",
+        maximizable = TRUE,
         status = "primary",
         solidHeader = T,
         reactableOutput("table", height = 400),