-
Notifications
You must be signed in to change notification settings - Fork 3
Dashboard dev #48
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Dashboard dev #48
Conversation
This is ready for review |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
LGTM.
dashboard/app.R
Outdated
@@ -111,32 +112,26 @@ ui <- fluidPage(padding=0, | |||
"Coverage" = "coverage")), | |||
selectInput( | |||
"forecasters", | |||
"Forecasters (Type a name or select from dropdown)", | |||
p("Forecasters", tags$br(), tags$span("Type a name or select from dropdown", style="font-weight:normal; font-size:13px")), |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Nit: going forward move styles into style.css
|
||
if (scoreType == "wis") { | ||
filteredScoreDf <- filteredScoreDf %>% rename(Score = wis) | ||
title = "Weighted Interval Score" | ||
# Only show WIS for forecasts that have all intervals | ||
filteredScoreDf = filteredScoreDf %>% filter(!is.na(`50`)) %>% filter(!is.na(`80`)) %>% filter(!is.na(`95`)) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Nit: I think there may be a way to filter by a vector so you only have to write one filter clause.
Uh oh!
There was an error while loading. Please reload this page.