johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 11:47:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Hide API docs by default

Browse source
This commit is contained in:
Elias Projahn 2025-03-05 17:03:07 +01:00
parent 709dc0d0ed
commit 753beeed71
2 changed files with 29 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
R/ui.R
View file

@ -1,6 +1,6 @@
#' Function for creating the main user interface.
#' @noRd
ui <- function(custom_dataset = NULL) {
ui <- function(custom_dataset = NULL, show_api_docs = FALSE) {
div(
custom_css(),
rclipboard::rclipboardSetup(),
@ -305,13 +305,17 @@ ui <- function(custom_dataset = NULL) {
includeMarkdown(system.file("content", "help.md", package = "ubigen"))
)
),
tabPanel(
title = "API access",
div(
class = "container",
includeMarkdown(system.file("content", "api.md", package = "ubigen"))
if (show_api_docs) {
tabPanel(
title = "API access",
div(
class = "container",
includeMarkdown(
system.file("content", "api.md", package = "ubigen")
)
)
)
)
}
)
)
}