renv update and using standard_panel function from dfeshiny

.Rprofile

@@ -12,23 +12,5 @@ cat("Sourcing .Rprofile.", fill = TRUE)
 
 source("renv/activate.R")
 
-# Function to run tests
-run_tests_locally <- function() {
-  Sys.unsetenv("http_proxy")
-  Sys.unsetenv("https_proxy")
-  source("global.r")
-  # message("================================================================================")
-  # message("== testthat ====================================================================")
-  # message("")
-  # testthat::test_dir("tests/testthat")
-  # message("")
-  message("================================================================================")
-  message("== shinytest2 ==================================================================")
-  message("")
-  shinytest2::test_app()
-  message("")
-  message("================================================================================")
-}
-
 # Install commit-hooks locally
 statusWriteCommit <- file.copy(".hooks/pre-commit.R", ".git/hooks/pre-commit", overwrite = TRUE)

R/standard_panels.R

@@ -38,51 +38,3 @@ a11y_panel <- function() {
   )
 }
 
-support_links <- function() {
-  tabPanel(
-    "Support and feedback",
-    gov_main_layout(
-      gov_row(
-        column(
-          width = 12,
-          h1("Support and feedback"),
-          h2("Give us feedback"),
-          p(
-            "This dashboard is a new service that we are developing. If you have any feedback or suggestions for improvements, please submit them using our ",
-            a(
-              href = "https://forms.office.com",
-              "feedback form", .noWS = c("after")
-            ), "."
-          ),
-          p(
-            "If you spot any errors or bugs while using this dashboard, please screenshot and email them to ",
-            a(href = "mailto:[email protected]", "[email protected]", .noWS = c("after")), "."
-          ),
-          h2("Find more information on the data"),
-          p(
-            "The data used to produce the dashboard, along with methodological information can be found on ",
-            a(href = "https://explore-education-statistics.service.gov.uk/", "Explore Education Statistics", .noWS = c("after")),
-            "."
-          ),
-          h2("Contact us"),
-          p(
-            "If you have questions about the dashboard or data within it, please contact us at ",
-            a(href = "mailto:[email protected]", "[email protected]", .noWS = c("after"))
-          ),
-          h2("See the source code"),
-          p(
-            "The source code for this dashboard is available in our ",
-            a(href = "https://github.com/dfe-analytical-services/shiny-template", "GitHub repository", .noWS = c("after")),
-            "."
-          )
-        ),
-        column(
-          12,
-          h2("Use of cookies"),
-          textOutput("cookie_status"),
-          actionButton("remove", "Reset cookie consent"),
-        )
-      )
-    )
-  )
-}

global.R

@@ -27,6 +27,7 @@ shhh(library(metathis))
 shhh(library(shinyalert))
 shhh(library(shinytest2))
 shhh(library(rstudioapi))
+shhh(library(bslib))
 shhh(library(dfeshiny))
 # shhh(library(shinya11y))