Skip to content

hide left sidebar and switch to links #149

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
oadetayo wants to merge 9 commits into from
Closed

hide left sidebar and switch to links #149

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
4195126
hide left sidebar and switch to links
oadetayo Mar 17, 2025
f51bf85
resolve lintr issues
oadetayo Mar 17, 2025
dd1105f
ui updates
oadetayo Mar 26, 2025
67fee86
update title in ui test
oadetayo Mar 31, 2025
ccc2196
bump terra version
cjrace May 15, 2025
3c3c353
bump sf version
cjrace May 15, 2025
62f8ffc
re-init renv
cjrace Jul 11, 2025
bd2cf8e
remove CSS (wasn't working as hoped)
cjrace Jul 16, 2025
3d7dbdc
Merge branch 'main' into 86-update-page-navigation
cjrace Mar 29, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 20 additions & 0 deletions R/helper_functions.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -110,3 +110,23 @@ in_line_nav_link <- function(link_text, target_link) {
"</a>"
))
}


# left nav ====================================================================
dfe_contents_links <- function(links_list) {
# Function to create a sidebar link with an ID
create_sidelink <- function(link_text) {
link_id <- links_list[[link_text]] %||% tolower(link_text)
tags$li("—", actionLink(link_id, link_text, class = "contents_link"))
}

# The HTML div to be returned
tags$div(
style = "position: sticky; top: 0.5rem; padding: 0.25rem; padding-left: 2rem;",
h2("Contents"),
tags$ol(
style = "list-style-type: none; padding-left: 0; font-size: 1rem;",
lapply(names(links_list), create_sidelink)
)
)
}
4 changes: 2 additions & 2 deletions R/ui_panels/example_tab_1.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
example_tab_1_panel <- function() {
tabPanel(
"Example tab 1",
bslib::nav_panel(
"example_tab_1",
gov_main_layout(
gov_row(
column(
Expand Down
4 changes: 2 additions & 2 deletions R/ui_panels/user_guide.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
user_guide_panel <- function() {
tabPanel(
"User guide",
bslib::nav_panel(
"user_guide",
gov_main_layout(
gov_row(
column(
Expand Down
11,111 changes: 5,104 additions & 6,007 deletions renv.lock
View file
Open in desktop

Large diffs are not rendered by default.

Loading
Loading