UI changes based on sonu user studies

Dockerfile

@@ -4,7 +4,7 @@ RUN apt-get update -y && apt-get install -y libssh-dev python3-pip git libmariad
 
 RUN R -q -e 'install.packages(c("ellipsis"), repos="https://cran.rstudio.com/")'
 RUN R -q -e 'install.packages(c("shiny"), repos="https://cran.rstudio.com/")'
-RUN R -q -e 'install.packages(c("shinyFeedback", "shinyWidgets", "shinydashboard", "shinydashboardPlus", "ssh", "remotes", "markdown", "lubridate", "jsonlite", "dplyr", "DT", "glue", "httr", "purrr", "RColorBrewer", "rlang", "shinyBS", "shinyjs", "tidyverse", "uuid", "memoise", "rclipboard", "shinyvalidate", "shinylogs", "testhat", "bsicons", "listviewer", "htmltools", "cookies", "RMariaDB", "DBI", "parsedate", "testthat", "shinylogs", "ids"), repos="https://cran.r-project.org")'
+RUN R -q -e 'install.packages(c("shinyFeedback", "shinyWidgets", "shinydashboard", "shinydashboardPlus", "ssh", "remotes", "markdown", "lubridate", "jsonlite", "dplyr", "DT", "glue", "httr", "purrr", "RColorBrewer", "rlang", "shinyBS", "shinyjs", "tidyverse", "uuid", "memoise", "rclipboard", "shinyvalidate", "shinylogs", "testhat", "bsicons", "listviewer", "htmltools", "cookies", "RMariaDB", "DBI", "parsedate", "testthat", "shinylogs", "ids", "shinycssloaders"), repos="https://cran.r-project.org")'
 
 RUN R -q -e "remotes::install_github('getwilds/[email protected]')"
 

app/about.md

@@ -1,5 +1,7 @@
-### Resources
+### Getting Help with PROOF and WDL at Fred Hutch
 - Get started with PROOF [How-To documentation](https://sciwiki.fredhutch.org/dasldemos/proof-how-to/) and [troubleshooting tips](https://sciwiki.fredhutch.org/dasldemos/proof-troubleshooting/)
+- Ask a question about or report a problem with PROOF in our [GitHub repository](https://github.com/getwilds/proof/issues/new?template=Blank+issue)
+- Email us at [[email protected]](mailto:[email protected])
 - Find curated WDL workflow repositories and containers in Fred Hutch [DaSL's getWILDS GitHub organization](https://github.com/orgs/getwilds/repositories?q=wdl).
 - Find Cromwell and WDL Resources in [Fred Hutch's GitHub organization](https://github.com/FredHutch?utf8=%E2%9C%93&q=wdl+OR+cromwell&type=&language=).
 - Learn about Cromwell and WDL on the [Fred Hutch Biomedical Data Science Wiki](https://sciwiki.fredhutch.org/compdemos/Cromwell/).
@@ -10,7 +12,7 @@
 ## Users Elsewhere
 This Shiny app and the R packages it relies on are all open source.  Thus, if you are at a different institution and want to use this application to support your work or your users, we encourage you to look through our resources and fork our repositories.  Feel free to contact DaSL developers by filing issues or emailing `[email protected]`. For this use case, we have provided the more general "DIY Cromwell" login button at the top. 
 
-### Resources
+### Some Resources for Using Cromwell
   - DIY: Get a Cromwell server running by yourself (does not require logging in). To learn more about how to get your Cromwell server running, read through the instructions in the GitHub repo [FredHutch/diy-cromwell-server](https://github.com/FredHutch/diy-cromwell-server)
 - `rcromwell`:  An [R package](https://github.com/getwilds/rcromwell) that makes interacting with the Cromwell API easier. 
 - `shiny-cromwell`:  This app's [GitHub repo](https://github.com/FredHutch/shiny-cromwell) contains information on how to set started with this application.  

app/buttons.R

@@ -2,7 +2,8 @@ logInButton <-
   actionButton(
     inputId = "proofAuth",
     label = "PROOF Login",
-    class = "btn-sm",
+    class = "btn-success btn-sm",
+    style = "color: white;",
     icon = icon("truck-fast")
 
   )
@@ -20,6 +21,7 @@ logInCromwellButton <-
     inputId = "ownCrom",
     label = "DIY Cromwell",
     class = "btn-sm",
+    style = "color: white;",
     icon = icon("plug-circle-xmark")
   )
 logOutCromwellButton <-

app/modals.R

@@ -13,7 +13,11 @@ loginModal <- function(failed = FALSE, error = "Invalid username or password") {
     },
     footer = tagList(
       modalButton("Cancel"),
-      actionButton("submit", "Submit")
+      shinyFeedback::loadingButton(
+        inputId = "submit",
+        label = "Submit",
+        class = "btn btn-default"
+      )
     ),
     easyClose = TRUE
   )