andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 18:09:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

slightly updated visuals
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-24 13:16:33 +02:00
parent ffe80bf043
commit 5a343f98cd
No known key found for this signature in database
3 changed files with 63 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
R/theme.R
View file

@ -6,16 +6,16 @@
#' @export #' @export
custom_theme <- function(..., custom_theme <- function(...,
version = 5, version = 5,
primary = "#1E4A8F", primary = FreesearchR_colors("primary"),
secondary = "#FF6F61", secondary = FreesearchR_colors("secondary"),
bootswatch = "united", bootswatch = "united",
base_font = bslib::font_google("Montserrat"), base_font = bslib::font_google("Montserrat"),
heading_font = bslib::font_google("Public Sans", wght = "700"), heading_font = bslib::font_google("Public Sans", wght = "700"),
code_font = bslib::font_google("Open Sans") code_font = bslib::font_google("Open Sans"),
# success = "#1E4A8F", success = FreesearchR_colors("success"),
# info = , info = FreesearchR_colors("info"),
# warning = , warning = FreesearchR_colors("warning"),
# danger = , danger = FreesearchR_colors("danger")
# fg = "#000", # fg = "#000",
# bg="#fff", # bg="#fff",
# base_font = bslib::font_google("Alice"), # base_font = bslib::font_google("Alice"),
@ -32,18 +32,35 @@ custom_theme <- function(...,
bootswatch = bootswatch, bootswatch = bootswatch,
base_font = base_font, base_font = base_font,
heading_font = heading_font, heading_font = heading_font,
code_font = code_font code_font = code_font,
success=success,
info=info,
warning=warning,
danger=danger
) )
} }
compliment_colors <- function() { FreesearchR_colors <- function(choose = NULL) {
c( out <- c(
"#00C896", primary = "#1E4A8F",
"#FFB100", secondary = "#FF6F61",
"#8A4FFF", success = "#00C896",
"#11A0EC" warning = "#FFB100",
danger = "#FF3A2F",
extra = "#8A4FFF",
info = "#11A0EC",
bg = "#FFFFFF",
dark = "#2D2D42",
fg = "#000000"
) )
if (!is.null(choose)) {
out[choose]
} else {
out
} }
}

45
inst/apps/FreesearchR/app.R
View file

@ -7797,16 +7797,16 @@ html_code_wrap <- function(string,lang="r"){
#' @export #' @export
custom_theme <- function(..., custom_theme <- function(...,
version = 5, version = 5,
primary = "#1E4A8F", primary = FreesearchR_colors("primary"),
secondary = "#FF6F61", secondary = FreesearchR_colors("secondary"),
bootswatch = "united", bootswatch = "united",
base_font = bslib::font_google("Montserrat"), base_font = bslib::font_google("Montserrat"),
heading_font = bslib::font_google("Public Sans", wght = "700"), heading_font = bslib::font_google("Public Sans", wght = "700"),
code_font = bslib::font_google("Open Sans") code_font = bslib::font_google("Open Sans"),
# success = "#1E4A8F", success = FreesearchR_colors("success"),
# info = , info = FreesearchR_colors("info"),
# warning = , warning = FreesearchR_colors("warning"),
# danger = , danger = FreesearchR_colors("danger")
# fg = "#000", # fg = "#000",
# bg="#fff", # bg="#fff",
# base_font = bslib::font_google("Alice"), # base_font = bslib::font_google("Alice"),
@ -7823,18 +7823,35 @@ custom_theme <- function(...,
bootswatch = bootswatch, bootswatch = bootswatch,
base_font = base_font, base_font = base_font,
heading_font = heading_font, heading_font = heading_font,
code_font = code_font code_font = code_font,
success=success,
info=info,
warning=warning,
danger=danger
) )
} }
compliment_colors <- function() { FreesearchR_colors <- function(choose = NULL) {
c( out <- c(
"#00C896", primary = "#1E4A8F",
"#FFB100", secondary = "#FF6F61",
"#8A4FFF", success = "#00C896",
"#11A0EC" warning = "#FFB100",
danger = "#FF3A2F",
extra = "#8A4FFF",
info = "#11A0EC",
bg = "#FFFFFF",
dark = "#2D2D42",
fg = "#000000"
) )
if (!is.null(choose)) {
out[choose]
} else {
out
} }
}

2
inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/FreesearchR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 14600805 appId: 14600805
bundleId: bundleId: 10170173
url: https://agdamsbo.shinyapps.io/FreesearchR/ url: https://agdamsbo.shinyapps.io/FreesearchR/
version: 1 version: 1