Warning: Error in get_palette_color: could not find function "get_palette_color"

[chrisumphlett]

I'm trying to test this out in an existing, somewhat complex app I already have. It has a reactive data frame created with eventReactive(). I put a stripped-down version of the server code before with what I think are all of the relevant parts.

When I run the test code it works fine. When I adapt my app and inject the relevant pieces, I'm getting this warning/error I listed in the title. I cannot find a function of that name in any of the code for this package; and it's not a function I've created in my code.

Any ideas so I can proceed with troubleshooting? The app briefly loads but then closes and I see this error. It wouldn't seem to have anything to do (yet) with the reactivity and the action. This code shouldn't even run yet as far as I can tell.

Here's what I'm trying:

server <- function(input, output, session) {
    signal <- reactiveVal(rnorm(1))
    shinyjs::onclick("actionButton",
                   shinyjs::toggle(id = "greetbox-outer", anim = TRUE))
    data_input <- shiny::eventReactive(input$actionButton, {
        # A bunch of dplyr stuff
        return(final_data_frame)
    })

    filtered_data <- callModule(
        shiny_data_filter,
        "data_filter",
        data = data_input(),
        verbose = TRUE
    )

    output$tblLead <- renderReactable({
        lead <- filtered_data()

        reactable(lead, ##A bunch of reactable options##)

        output$lead <- renderUI({
            tagList(
                reactableOutput("tblLead"),
                if (input$actionButton == 0){
                    return()
                } else {
                    div(
                        style = "position: absolute; left: 24em; bottom: 0.5em;",
                        downloadButton(outputId = "dl2", label = "Download table"),
                    )
                }
            )
        })
    })
}