tdata to teal_data - tm_a_pca

[kartikeyakirar]

Example App

data <- teal_data()
data <- within(data, {
  library(nestcolor)
  ADSL <- teal.modules.general::rADSL
})
datanames <- c("ADSL")
datanames(data) <- datanames
join_keys(data) <- default_cdisc_join_keys[datanames]
app <- teal::init(
  data = data,
  modules = teal::modules(
    teal.modules.general::tm_a_pca(
      "PCA",
      dat = teal.transform::data_extract_spec(
        dataname = "ADSL",
        select = teal.transform::select_spec(
          choices = teal.transform::variable_choices(
            data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")
          ),
          selected = c("BMRKR1", "AGE"),
          multiple = TRUE
        ),
        filter = NULL
      ),
      ggplot2_args = teal.widgets::ggplot2_args(
        labs = list(subtitle = "Plot generated by PCA Module")
      )
    )
  )
)

shinyApp(app$ui, app$server)

[github-actions]

Code Coverage Summary

Filename                      Stmts    Miss  Cover    Missing
--------------------------  -------  ------  -------  ----------------------------------------------
R/tm_a_pca.R                    829     829  0.00%    72-1025
R/tm_a_regression.R             716     716  0.00%    96-895
R/tm_data_table.R               174     174  0.00%    62-284
R/tm_file_viewer.R              172     172  0.00%    42-244
R/tm_front_page.R               127     116  8.66%    65-207
R/tm_g_association.R            332     332  0.00%    92-483
R/tm_g_bivariate.R              655     495  24.43%   128-709, 757, 763, 767, 878, 895, 913, 933-955
R/tm_g_distribution.R          1028    1028  0.00%    122-1272
R/tm_g_response.R               351     351  0.00%    88-503
R/tm_g_scatterplot.R            719     719  0.00%    163-973
R/tm_g_scatterplotmatrix.R      280     261  6.79%    80-377, 431, 445
R/tm_missing_data.R            1044    1044  0.00%    60-1241
R/tm_outliers.R                 976     976  0.00%    78-1183
R/tm_t_crosstable.R             254     254  0.00%    83-375
R/tm_variable_browser.R         819     814  0.61%    63-1290
R/utils.R                       122     122  0.00%    74-351
R/zzz.R                           1       1  0.00%    2
TOTAL                          8599    8404  2.27%

Diff against main

Filename                   Stmts    Miss  Cover
-----------------------  -------  ------  --------
R/tm_data_table.R             +3      +3  +100.00%
R/tm_g_association.R          -1      -1  +100.00%
R/tm_variable_browser.R      -14     -14  +0.01%
TOTAL                        -12     -12  +0.00%

Results for commit: fa53869

Minimum allowed coverage is 80%

♻️ This comment has been updated with latest results

[github-actions]

Unit Tests Summary

  1 files    5 suites   0s ⏱️
16 tests 16 ✔️ 0 💤 0 ❌
49 runs  49 ✔️ 0 💤 0 ❌

Results for commit fa53869.

[gogonzo]

👍