Fix the typo on tags$strong

[vedhav]

Fixes the following example app:

devtools::load_all()

data <- teal_data()
data <- within(data, {
  library(scda)
  library(scda.2022)
  ADSL <- synthetic_cdisc_dataset("latest", "adsl")
})

datanames <- "ADSL"
datanames(data) <- datanames

join_keys(data) <- default_cdisc_join_keys[datanames]

## Reusable Configuration For Modules
ADSL <- data[["ADSL"]]

adsl_extracted_num <- data_extract_spec(
  dataname = "ADSL",
  select = select_spec(
    choices = variable_choices(ADSL),
    selected = "AGE",
    multiple = FALSE,
    fixed = FALSE
  )
)
adsl_extracted_num2 <- data_extract_spec(
  dataname = "ADSL",
  select = select_spec(
    choices = variable_choices(ADSL),
    selected = "BMRKR1",
    multiple = FALSE,
    fixed = FALSE
  )
)
fact_vars_adsl <- names(Filter(isTRUE, sapply(ADSL, is.factor)))
adsl_extracted_factors <- data_extract_spec(
  dataname = "ADSL",
  select = select_spec(
    choices = variable_choices(ADSL, subset = fact_vars_adsl),
    selected = NULL,
    multiple = FALSE,
    fixed = FALSE
  )
)

app <- init(
  data = data,
  modules = tm_g_scatterplot(
    "Scatterplot",
    x = adsl_extracted_num,
    y = adsl_extracted_num2,
    row_facet = adsl_extracted_factors,
    col_facet = adsl_extracted_factors,
    color_by = adsl_extracted_factors,
    size = 3, alpha = 1,
    plot_height = c(600L, 200L, 2000L)
  )
)

shinyApp(app$ui, app$server)

[github-actions[bot]]

Code Coverage Summary

Filename                      Stmts    Miss  Cover    Missing
--------------------------  -------  ------  -------  ------------------------------------
R/tm_a_pca.R                    827     827  0.00%    108-1068
R/tm_a_regression.R             776     776  0.00%    153-1033
R/tm_data_table.R               179     179  0.00%    93-325
R/tm_file_viewer.R              170     170  0.00%    44-248
R/tm_front_page.R               129     118  8.53%    70-222
R/tm_g_association.R            334     334  0.00%    135-541
R/tm_g_bivariate.R              671     411  38.75%   306-771, 812, 923, 940, 958, 969-991
R/tm_g_distribution.R          1042    1042  0.00%    122-1299
R/tm_g_response.R               350     350  0.00%    154-577
R/tm_g_scatterplot.R            726     726  0.00%    230-1057
R/tm_g_scatterplotmatrix.R      282     263  6.74%    165-476, 537, 551
R/tm_missing_data.R            1058    1058  0.00%    92-1304
R/tm_outliers.R                 988     988  0.00%    134-1265
R/tm_t_crosstable.R             255     255  0.00%    141-444
R/tm_variable_browser.R         825     820  0.61%    79-1064, 1102-1286
R/utils.R                        99      96  3.03%    82-267
R/zzz.R                           1       1  0.00%    2
TOTAL                          8712    8414  3.42%

Diff against main

Filename      Stmts    Miss  Cover
----------  -------  ------  --------
TOTAL             0       0  +100.00%

Results for commit: 6fa9a41f04a556de819b98dafa5dfbcf67318d87

Minimum allowed coverage is 80%

:recycle: This comment has been updated with latest results

[github-actions[bot]]

Unit Tests Summary

 1 files   6 suites   0s :stopwatch: 29 tests 29 :white_check_mark: 0 :zzz: 0 :x: 67 runs  67 :white_check_mark: 0 :zzz: 0 :x:

Results for commit 6fa9a41f.