1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#' Deprecated functions
#'
#' These functions have been deprecated but remain for backwards compatibility.
#'
#' @keywords internal
#' @rdname deprecated
#' @returns a [bs_theme()] object.
#' @export
bs_theme_new <- function(...) {
.Deprecated("bs_global_theme")
bs_global_theme(...)
}
#' @rdname deprecated
#' @export
bs_theme_clear <- function(...) {
.Deprecated("bs_global_clear")
bs_global_clear(...)
}
#' @rdname deprecated
#' @export
bs_theme_get <- function(...) {
.Deprecated("bs_global_get")
bs_global_get(...)
}
#' @rdname deprecated
#' @export
bs_theme_set <- function(...) {
.Deprecated("bs_global_set")
bs_global_set(...)
}
#' @rdname deprecated
#' @export
bs_theme_base_colors <- function(...) {
.Deprecated("bs_global_base_colors")
bs_global_base_colors(...)
}
bs_global_base_colors <- function(bg = "#FFFFFF", fg = "#000000") {
theme <- assert_global_theme("bs_global_base_colors()")
theme <- bs_base_colors(theme, bg = bg, fg = fg)
bs_global_set(theme)
}
#' @rdname deprecated
#' @export
bs_theme_accent_colors <- function(...) {
.Deprecated("bs_global_accent_colors")
bs_global_accent_colors(...)
}
bs_global_accent_colors <- function(primary = NULL, secondary = NULL, success = NULL,
info = NULL, warning = NULL, danger = NULL) {
theme <- assert_global_theme("bs_global_accent_colors()")
theme <- bs_accent_colors(
theme, primary = primary, secondary = secondary, success = success,
info = info, warning = warning, danger = danger
)
bs_global_set(theme)
}
#' @rdname deprecated
#' @export
bs_theme_fonts <- function(...) {
.Deprecated("bs_global_fonts")
bs_global_fonts(...)
}
bs_global_fonts <- function(base = NULL, code = NULL, heading = NULL) {
theme <- assert_global_theme("bs_global_fonts()")
theme <- bs_fonts(theme, base = base, code = code, heading = heading)
bs_global_set(theme)
}
#' @rdname deprecated
#' @export
bs_theme_add_variables <- function(...) {
.Deprecated("bs_global_add_variables")
bs_global_add_variables(...)
}
#' @rdname deprecated
#' @export
bs_theme_add <- function(...) {
.Deprecated("bs_global_bundle")
bs_global_bundle(sass::sass_layer(...))
}
#' @rdname deprecated
#' @export
bs_theme_get_variables <- function(...) {
.Deprecated("bs_global_get_variables")
bs_global_get_variables(...)
}
bs_global_get_variables <- function(varnames) {
theme <- assert_global_theme("bs_global_get_variables()")
bs_get_variables(theme, varnames)
}
#' @rdname deprecated
#' @export
bootstrap <- function(theme = bs_theme_get(), ...) {
.Deprecated("bs_theme_dependencies")
bs_theme_dependencies(theme, ...)
}
#' @rdname deprecated
#' @export
bootstrap_sass <- function(rules = list(), theme = bs_theme_get(), ...) {
.Deprecated("sass::sass_partial")
theme <- as_bs_theme(theme)
theme$rules <- ""
sass_partial(rules, theme)
}
#' @rdname deprecated
#' @export
bs_add_declarations <- function(theme, declarations) {
.Deprecated("bs_add_mixins")
bs_bundle(theme, sass_layer(declarations = declarations))
}
|
