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

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
custom_theme <- function(...,
version = 5,
primary = "#1E4A8F",
secondary = "#FF6F61",
primary = FreesearchR_colors("primary"),
secondary = FreesearchR_colors("secondary"),
bootswatch = "united",
base_font = bslib::font_google("Montserrat"),
heading_font = bslib::font_google("Public Sans", wght = "700"),
code_font = bslib::font_google("Open Sans")
# success = "#1E4A8F",
# info = ,
# warning = ,
# danger = ,
code_font = bslib::font_google("Open Sans"),
success = FreesearchR_colors("success"),
info = FreesearchR_colors("info"),
warning = FreesearchR_colors("warning"),
danger = FreesearchR_colors("danger")
# fg = "#000",
# bg="#fff",
# base_font = bslib::font_google("Alice"),
@ -32,18 +32,35 @@ custom_theme <- function(...,
bootswatch = bootswatch,
base_font = base_font,
heading_font = heading_font,
code_font = code_font
code_font = code_font,
success=success,
info=info,
warning=warning,
danger=danger
)
}
compliment_colors <- function() {
c(
"#00C896",
"#FFB100",
"#8A4FFF",
"#11A0EC"
FreesearchR_colors <- function(choose = NULL) {
out <- c(
primary = "#1E4A8F",
secondary = "#FF6F61",
success = "#00C896",
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
custom_theme <- function(...,
version = 5,
primary = "#1E4A8F",
secondary = "#FF6F61",
primary = FreesearchR_colors("primary"),
secondary = FreesearchR_colors("secondary"),
bootswatch = "united",
base_font = bslib::font_google("Montserrat"),
heading_font = bslib::font_google("Public Sans", wght = "700"),
code_font = bslib::font_google("Open Sans")
# success = "#1E4A8F",
# info = ,
# warning = ,
# danger = ,
code_font = bslib::font_google("Open Sans"),
success = FreesearchR_colors("success"),
info = FreesearchR_colors("info"),
warning = FreesearchR_colors("warning"),
danger = FreesearchR_colors("danger")
# fg = "#000",
# bg="#fff",
# base_font = bslib::font_google("Alice"),
@ -7823,18 +7823,35 @@ custom_theme <- function(...,
bootswatch = bootswatch,
base_font = base_font,
heading_font = heading_font,
code_font = code_font
code_font = code_font,
success=success,
info=info,
warning=warning,
danger=danger
)
}
compliment_colors <- function() {
c(
"#00C896",
"#FFB100",
"#8A4FFF",
"#11A0EC"
FreesearchR_colors <- function(choose = NULL) {
out <- c(
primary = "#1E4A8F",
secondary = "#FF6F61",
success = "#00C896",
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
hostUrl: https://api.shinyapps.io/v1
appId: 14600805
bundleId:
bundleId: 10170173
url: https://agdamsbo.shinyapps.io/FreesearchR/
version: 1