diff --git a/app/ui.R b/app/ui.R index a71daab..6c1b8ae 100644 --- a/app/ui.R +++ b/app/ui.R @@ -151,48 +151,43 @@ ui <- page_navbar( layout_column_wrap( col_widths = 1, card( - "MMH/MMP Normalization", - div( - fluidRow( - style = "height: 100%", - column( - 3, - virtualSelectInput( - "storm_overview_cost_index_lf_select", - "Landfalls", - choices = NULL, - showValueAsTags = T, - multiple = T, - autoSelectFirstOption = T - ), - radioGroupButtons( - "storm_overview_cost_index_scale", - label = "Value", - choices = c("Index", "Loss"), - status = "outline-primary rounded-0", - justified = T - ), - checkboxGroupButtons( - "storm_overview_cost_index_mmh_mmp", - label = "MMH/MMP", - choices = c("MMH", "MMP"), - selected = c("MMH", "MMP"), - status = "outline-primary rounded-0", - justified = T - ), - radioGroupButtons( - "storm_overview_cost_index_y_scale", - label = "Y-Axis Scale", - choices = c("Linear", "Log"), - status = "outline-primary rounded-0", - justified = T - ) + full_screen = TRUE, + layout_sidebar( + sidebar = sidebar( + virtualSelectInput( + "storm_overview_cost_index_lf_select", + "Landfalls", + choices = NULL, + showValueAsTags = T, + multiple = T, + autoSelectFirstOption = T ), - column(9, dygraphOutput("cost_index_chart")) - ) + radioGroupButtons( + "storm_overview_cost_index_scale", + label = "Value", + choices = c("Index", "Loss"), + status = "outline-primary rounded-0", + justified = T + ), + checkboxGroupButtons( + "storm_overview_cost_index_mmh_mmp", + label = "MMH/MMP", + choices = c("MMH", "MMP"), + selected = c("MMH", "MMP"), + status = "outline-primary rounded-0", + justified = T + ), + radioGroupButtons( + "storm_overview_cost_index_y_scale", + label = "Y-Axis Scale", + choices = c("Linear", "Log"), + status = "outline-primary rounded-0", + justified = T + ) + ), + dygraphOutput("cost_index_chart") ) - ), - card() + ) ) ), nav_panel(