[Bug]: Missing visualization in tm_variable_browser

[donyunardi]

What happened?

A bug happened!

Using the example code, there is no visualization when Treat variable as factor is checked:

Code to reproduce

library(teal.modules.general)
data <- teal_data()
data <- within(data, {
  iris <- iris
  mtcars <- mtcars
  women <- women
  faithful <- faithful
  CO2 <- CO2
})
#'
app <- init(
  data = data,
  modules = modules(
    tm_variable_browser(
      label = "Variable browser"
    )
  )
)
if (interactive()) {
  shinyApp(app$ui, app$server)
}

[donyunardi]

This is the problem:

teal.modules.general/R/tm_variable_browser.R

Line 716 in 487b555

p <- ANL %>%

It should use plot variable instead of p

[kakanig1]

I would like to work on this :)