function from shinycssloaders::withSpinner -argument "ui_element" is missing, with no default

[williamlai2]

Hi,

This is more a question than an issue.

I am trying to create a function from the withSpinner() function.

add_spinner <- function(spinner_colour = "#277BB4", spinner_type = 8){

  shinycssloaders::withSpinner(color = spinner_colour, type = getOption("spinner.type", default = spinner_type))
}

I am trying to use it in a function in a module like this:

leafletOutput("map") %>%
                          add_spinner()

But I get this error:

Error in digest::digest(ui_element) : argument "ui_element" is missing, with no default

I am wondering if you know how to fix this? In your withSpinner() code, ui_element is the first argument, and I thought that this would be piped in from the map. Thanks.

[daattali]

You aren't passing in the parameter into the withSpinner function. It seems you're having trouble with the concept of creating functions with pipes, this isn't a shiny related question or specific to this package. I suggest you try creating other "wrapper" functions with pipes and learn how to do that correctly, with regular non shiny R code, and then come back to this. I'm closing this issue as it's unrelated to this package.

[williamlai2]

Sure. Will have a look.