Merge pull request #188 from noaa-nwfsc/update_appearance

changed font size of app and changed size of sidebar

.gitignore

@@ -9,3 +9,4 @@ inst/doc
 /Meta/
 _site
 LICENSE
+FishSET_RPackage.Rproj

inst/ShinyFiles/MainApp/fleetUI.R

@@ -6,10 +6,10 @@ saveFleetUI <- function(id) {
 
   tagList(
     downloadLink(ns('downloadplotHIDE'), label = ''),
-    actionButton(ns('downloadplot'), label = 'Save plot to folder',
+    actionButton(ns('downloadplot'), label = HTML('Save plot to<br> folder'),
                  class = "btn-primary"),
     downloadLink(ns('downloadTableHIDE'), label = ''),
-    actionButton(ns('downloadTable'), label = 'Save table to folder as csv',
+    actionButton(ns('downloadTable'), label = HTML("Save table to folder<br> as csv"),
                  class = "btn-primary")
   )
 }
@@ -19,19 +19,21 @@ plotSaveUI <- function(id) {
 
   tagList(
     downloadLink(ns('downloadPlotHIDE'), label = ''),
-    actionButton(ns('save_plot'), label = 'Save plot to folder',
+    actionButton(ns('save_plot'), label = HTML('Save plot to<br> folder'),
                  class = "btn-primary",
-                 width = "49%"))
+                width = "49%"
+               ))
 }
 
 tableSaveUI <- function(id) {
   ns <- NS(id)
 
   tagList(
     downloadLink(ns('downloadTableHIDE'), label = ''),
-    actionButton(ns('save_table'), label = 'Save table to folder as csv',
+    actionButton(ns('save_table'), label = HTML("Save table to <br>folder as csv"),
                  class = "btn-primary",
-                 width = "50%")
+                 width = "49%"
+               )
   )
 }
 

inst/ShinyFiles/MainApp/fleet_helpers.R

@@ -1,4 +1,3 @@
-
 date_select <- function(dat) {
 
   if (any(grepl("date", colnames(dat), ignore.case = TRUE))) {

inst/ShinyFiles/MainApp/map_viewer_app.R

@@ -18,7 +18,7 @@ map_viewer_serv <- function(id, dat, spatdat, project) {
 
     output$var_select <- renderUI({
       bslib::page_sidebar(
-        sidebar = bslib::sidebar( width = 550,
+        sidebar = bslib::sidebar( width = 400,
 
           selectInput(ns("avd"), "Area ID variable (primary data)",
                       choices = colnames(dat$dataset), selected = "ZoneID"),

inst/ShinyFiles/MainApp/server.R

@@ -9,6 +9,8 @@ source("zone_closure_Server.R", local = TRUE)
 source("run_policy_UI.R", local = TRUE)
 source("run_policy_server.R", local = TRUE)
 
+
+
 # default global search value
 if(!exists("default_search")) {default_search <- ""}
 
@@ -20,8 +22,9 @@ fs_exist <- exists("folderpath", where = ".GlobalEnv")
 
 ### SERVER SIDE    
 server = function(input, output, session) {
-  options(shiny.maxRequestSize = 8000*1024^2)
-
+   options(shiny.maxRequestSize = 8000*1024^2)
+
+
   #Disable buttons
   toggle_inputs <- function(input_list, enable_inputs = TRUE){
     # Toggle elements
@@ -1108,7 +1111,8 @@ server = function(input, output, session) {
 
   output$load_manage_proj_ui <- renderUI({
       actionButton('load_manage_proj', 'Manage Projects', class = "btn-secondary", 
-                   style = "padding-left:20px; padding-right: 20px;")
+                   #style = "padding-left:20px; padding-right: 20px;"
+                   )
   })
 
   # Manage Projects
@@ -5859,9 +5863,9 @@ server = function(input, output, session) {
           tags$br(),
 
           actionButton("mod_add", "Save model and add new model", 
-                       style="color: #fff; background-color: #337ab7; border-color: #800000;"),
+                       class = "btn-primary"),
 
-          tags$br(), tags$br(),
+          tags$br(), 
 
           uiOutput('mod_run_bttn')
         )
@@ -5925,7 +5929,7 @@ server = function(input, output, session) {
           uiOutput('mod_run_custom_ui'),
 
           actionButton("mod_submit", "Run model(s)",
-                       style = "color: #fff; background-color: #6EC479; border-color:#000000;")
+                       class = "btn-primary")
         )
       }
     })