diff --git a/inst/ShinyGR/server.R b/inst/ShinyGR/server.R index 8ea383f71e43151dbd686a3ecf30998ff321f522..3a2fdbf2363ce40577bd9b0e07d3165f5cf268a5 100644 --- a/inst/ShinyGR/server.R +++ b/inst/ShinyGR/server.R @@ -176,7 +176,7 @@ shinyServer(function(input, output, session) { CAL_click$valueButton <- CAL_click$valueButton - 1 CAL_click$valueButton <- ifelse(CAL_click$valueButton < -1, -1, CAL_click$valueButton) if (CAL_click$valueButton < 0) { - updateActionButton(session, inputId = "CalButton", label = "Run", icon = icon("sync")) + updateActionButton(session, inputId = "CalButton", label = "Run", icon = icon("arrows-rotate")) if (!getPrep()$isUngauged) { shinyjs::enable("CalButton") } diff --git a/inst/ShinyGR/ui.R b/inst/ShinyGR/ui.R index 3d8444f77abd85ab57ce79f0db393e92ee21a281..29ba3e1b6598a12e00226318ca87b16427aeee10 100644 --- a/inst/ShinyGR/ui.R +++ b/inst/ShinyGR/ui.R @@ -132,7 +132,7 @@ navbarPage(title = div("airGRteaching", choices = c("NSE [Q]", "NSE [sqrt(Q)]", "NSE [1/Q]", "KGE [Q]", "KGE [sqrt(Q)]", "KGE [1/Q]"))), column(width = 6, actionButton("CalButton", label = "Run", width = "100%", - icon = icon("sync"), + icon = icon("arrows-rotate"), style = ifelse(.GlobalEnv$.ShinyGR.args$theme != "Cerulean", "color:#ffffff; background-color:#A4C400; border-color:#A4C400; margin-top:25px; padding:6px;", "color:#565656; background-color:#ECF0F1; border-color:#DCDCDC; margin-top:25px; padding:6px;"))) @@ -219,7 +219,7 @@ navbarPage(title = div("airGRteaching", ) ), tabPanel(title = "Summary sheet", - icon = icon("th"), + icon = icon("table-cells"), sidebarLayout(position = "left", sidebarPanel(width = 3, h4("Choose a dataset:"), @@ -230,7 +230,7 @@ navbarPage(title = div("airGRteaching", ) ), navbarMenu(title = "Help", - icon = icon("question-circle"), + icon = icon("circle-question"), tabPanel(title = "Get started", icon = icon("cog", lib = "glyphicon"), fluidRow(column(width = 12, includeMarkdown("www/tab_fun.md")))