diff --git a/dashboard.Rmd b/dashboard.Rmd index 5f71210..857f9e0 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -415,21 +415,15 @@ output$cost_index_chart <- renderDygraph({ # TODO: add button to select normalized costs #}) -fillCol( - flex = c(.2, .8), - fluidRow( - column(4, - selectInput("storm_overview_cost_index_lf", "Landfall Select", choices = NULL) +fluidRow( + style = "height: 100%", + column(3, + selectInput("storm_overview_cost_index_lf", "Landfall", choices = NULL), + radioGroupButtons("storm_overview_cost_index_value", label = "Value", choices = c("Index", "Loss"), status = "outline-primary rounded-0", justified = T) ), - column(4, - # TODO: add button to select normalized costs - #checkboxInput("storm_overview_select_base", "Include Normalized Losses", value = F) - ), - column(4, - #checkboxInput("mmpSelect", "Display MMP", value = T) + column(9, + dygraphOutput("cost_index_chart") ) - ), - dygraphOutput("cost_index_chart") ) ```