verification warning duplicated

[chlebowa]

What happened?

In Show R Code the no-verification warning is duplicated.

sessionInfo()

No response

Relevant log output

No response

Code of Conduct

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

Contribution Guidelines

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

Security Policy

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

[donyunardi]

Hi @chlebowa, any chance you can provide code to reproduce this? I don't see warnings in the example code of tm_a_pca.

[chlebowa]

You can use any module you want, just pass an unverified teal_data object.

[donyunardi]

Ah I see, yes, I am able to reproduce this.

Example Code

```r # CDISC data example library(teal.modules.general) library(teal.widgets) data <- teal_data( ADSL = rADSL ) #' app <- init( data = data, modules = modules( tm_a_pca( "PCA", dat = data_extract_spec( dataname = "ADSL", select = select_spec( choices = variable_choices( data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY") ), selected = c("BMRKR1", "AGE"), multiple = TRUE ), filter = NULL ), ggplot2_args = ggplot2_args( labs = list(subtitle = "Plot generated by PCA Module") ) ) ) ) if (interactive()) { shinyApp(app$ui, app$server) } ```

We'll look into this.