adding FISHEyE Hompage link in navbar

Author: ramhunte

R/app_ui.R

@@ -175,6 +175,19 @@ app_ui <- function(request) {
         )
       ), # END Contact Us nav_panel
 
+      #################################################################################
+      ################################ Fisheye Homepage ###############################
+      #################################################################################
+
+      bslib::nav_item(
+        tags$a(
+          href = "https://connect.fisheries.noaa.gov/fisheye/fisheyelandingpage.html",
+          target = "_blank",  # open in new tab
+          class = "nav-link", # required for navbar styling
+          "FISHEyE Homepage"
+        )
+      ), # END Fisheye Homepage Link
+
       footer = footer() # footer
     ) # END page_navbar
   ) # END tagList

app.R

@@ -2,6 +2,6 @@
 # To deploy, run: rsconnect::deployApp()
 # Or use the blue button on top of this file
 
-pkgload::load_all(export_all = FALSE,helpers = FALSE,attach_testthat = FALSE)
+# pkgload::load_all(export_all = FALSE,helpers = FALSE,attach_testthat = FALSE)
 options( "golem.app.prod" = TRUE)
 purcprod::run_app() # add parameters here (if any)