I am creating a wrapper function for internal use, and I would like to add custom style css on the waiter when the function is called. Here is the minimal example:
# here is the wrapper function
wrapper_fun <- function() {
w <- waiter_show(
html = tagList(
spin_fading_circles(),
"Loading ..."
)
)
dep <- htmltools::htmlDependency(
name = "myPack",
version = "v1",
package = "myPack",
src = "www",
stylesheet = 'custom.css'
)
tagList(w, dep)
}
Above will not work, the dependencies will not be added on waiter_show. I wonder if you have better idea how to add some custom styles on the waiter class (such as .waiter-overlay.waiter-local) - using a css file in a function.
I am creating a wrapper function for internal use, and I would like to add custom style css on the waiter when the function is called. Here is the minimal example:
Above will not work, the dependencies will not be added on
waiter_show
. I wonder if you have better idea how to add some custom styles on the waiter class (such as.waiter-overlay.waiter-local
) - using a css file in a function.