[Bug]: disappearing plot in tm_g_distribution

[chlebowa]

What happened?

The distribution plto becomes invisible after viewing the QQ plot.

app code

library(teal)
library(teal.modules.general)

data <- teal_data() |>
  within({
    iris <- iris
    mtcars <- mtcars
  })
datanames(data) <- c("iris", "mtcars")
modules <- modules(
  tm_g_distribution(
    dist_var = data_extract_spec(
      dataname = "iris",
      select = select_spec(variable_choices("iris"), "Petal.Length")
    )
  )
)

app <- init(data = data, modules = modules)
runApp(app)

On app start:

Go to QQ plot:

Return to histogram:

The plot can still be downloaded:

The QQ plot is still visible. The app still runs and reactivity is unaffected. Plots in other modules are unaffected.

Looks like a bug in adding the theoretical density distribution to the histogram (present in downloaded file).

sessionInfo()

> sessionInfo()
R version 4.4.0 (2024-04-24 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows 10 x64 (build 19045)

> packageVersion("teal")
[1] '0.15.2.9045'
> packageVersion("teal.modules.general")
[1] '0.3.0'
> packageVersion("teal.widgets")        
[1] '0.4.2'

Relevant log output

No errors in console.

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.