Closed gogonzo closed 5 months ago
1 files 29 suites 22s :stopwatch: 359 tests 359 :white_check_mark: 0 :zzz: 0 :x: 825 runs 825 :white_check_mark: 0 :zzz: 0 :x:
Results for commit 7f1bb907.
:recycle: This comment has been updated with latest results.
Filename Stmts Miss Cover Missing
---------------------------- ------- ------ ------- ------------------------------------------------------------------------------------------------------------------------------------------------------
R/calls_combine_by.R 7 0 100.00%
R/choices_labeled.R 49 14 71.43% 25, 36, 41, 51-56, 68, 72-76
R/count_labels.R 97 0 100.00%
R/filter_panel_api.R 29 1 96.55% 132
R/FilteredData-utils.R 68 25 63.24% 21-24, 27-30, 52-57, 153, 175-184
R/FilteredData.R 562 227 59.61% 110, 184, 326, 398, 501-510, 533, 554-595, 613-616, 632, 673-706, 721-723, 727-733, 762-790, 813-815, 819-821, 824-838, 842-852, 855-898, 939, 962-984
R/FilteredDataset-utils.R 23 1 95.65% 125
R/FilteredDataset.R 170 61 64.12% 52, 152, 191, 216-273, 312-314
R/FilteredDatasetDataframe.R 121 8 93.39% 87, 148, 158, 234-238
R/FilteredDatasetDefault.R 18 4 77.78% 103-116
R/FilteredDatasetMAE.R 134 37 72.39% 56, 117-122, 161-166, 170-171, 189-211
R/FilterPanelAPI.R 10 0 100.00%
R/FilterState-utils.R 101 2 98.02% 264, 294
R/FilterState.R 361 61 83.10% 89, 212, 230-234, 241-242, 256-257, 263-264, 311, 313, 315, 367, 411, 639, 682-705, 715-734, 769-775, 784-790
R/FilterStateChoices.R 332 108 67.47% 291-294, 306, 348, 370-377, 381-398, 426, 439-450, 462-470, 474-503, 524-527, 530-533, 544-567, 578, 583, 594
R/FilterStateDate.R 212 129 39.15% 227, 279-436
R/FilterStateDatettime.R 309 199 35.60% 266, 318-549
R/FilterStateEmpty.R 53 31 41.51% 89, 99-104, 117, 129-169
R/FilterStateExpr.R 75 62 17.33% 149-272
R/FilterStateLogical.R 196 144 26.53% 136, 158, 218, 222-406
R/FilterStateRange.R 408 105 74.26% 262, 384, 510-514, 517-527, 530, 542-548, 559-571, 575-585, 589-591, 605-632, 647, 650, 664-681, 716-721, 731-733
R/FilterStates-utils.R 70 9 87.14% 108, 127, 188-194, 216, 245
R/FilterStates.R 364 30 91.76% 78-82, 191, 314-323, 411-414, 457, 542-546, 591, 712-715
R/FilterStatesDF.R 5 0 100.00%
R/FilterStatesMAE.R 10 1 90.00% 40
R/FilterStatesMatrix.R 3 0 100.00%
R/FilterStatesSE.R 211 157 25.59% 36, 71-73, 83-85, 109-116, 124-131, 154-302
R/include_css_js.R 5 5 0.00% 12-16
R/teal_slice.R 107 4 96.26% 131, 195-196, 206
R/teal_slices.R 84 5 94.05% 150-155
R/test_utils.R 21 0 100.00%
R/utils.R 18 0 100.00%
R/variable_types.R 15 8 46.67% 44-51
R/zzz.R 17 17 0.00% 3-47
TOTAL 4265 1455 65.89%
Filename Stmts Miss Cover
---------------------- ------- ------ -------
R/FilterStateChoices.R -9 0 -0.86%
TOTAL -9 0 -0.07%
Results for commit: 7f1bb907e2ebccac2ce83a2218eae98bb095090b
Minimum allowed coverage is 80%
:recycle: This comment has been updated with latest results
I can confirm this PR solves the issue
> pkgload::load_all()
ℹ Loading teal.slice
> data <- data.frame(var = ordered(c("small", "medium", "large")))
> fstate <- teal.slice:::init_filter_state(
+ x = data$var,
+ slice = teal_slice(
+ dataname = "x",
+ varname = "var",
+ selected = c("small", "medium"),
+ ),
+ x_reactive = reactive(data$var)
+ )
>
> isolate(fstate$get_call())
var %in% c("small", "medium")
Fixes #575
Example app
```r library(teal) library(shiny) library(scda) ADSL <- synthetic_cdisc_data("latest")$adsl ADSL$empty <- NA ADSL$logical1 <- FALSE ADSL$logical <- sample(c(TRUE, FALSE), size = nrow(ADSL), replace = TRUE) ADSL$numeric <- rnorm(nrow(ADSL)) ADSL$numeric_categorical <- sample(1:3, size = nrow(ADSL), replace = TRUE) ADSL$categorical <- sample(letters[1:10], size = nrow(ADSL), replace = TRUE) ADSL$ordered <- ordered(sample(letters[1:10], size = nrow(ADSL), replace = TRUE)) ADSL$date <- Sys.Date() + seq_len(nrow(ADSL)) ADSL$datetime <- Sys.time() + seq_len(nrow(ADSL)) * 3600 * 12 ADSL$numeric[sample(1:nrow(ADSL), size = 10, )] <- NA ADSL$numeric[sample(1:nrow(ADSL), size = 10, )] <- Inf ADSL$numeric[sample(1:nrow(ADSL), size = 10, )] <- NA ADSL$logical[sample(1:nrow(ADSL), size = 10, )] <- NA ADSL$date[sample(1:nrow(ADSL), size = 10, )] <- NA ADSL$datetime[sample(1:nrow(ADSL), size = 10, )] <- NA ADSL$categorical[sample(1:nrow(ADSL), size = 10, )] <- NA ADTTE <- synthetic_cdisc_data("latest")$adtte ADRS <- synthetic_cdisc_data("latest")$adrs app <- init( data = teal_data(ADSL = ADSL, ADTTE = ADTTE, ADRS = ADRS), modules = list(example_module()), filter = teal_slices( teal_slice("ADSL", "empty"), teal_slice("ADSL", "logical1"), teal_slice("ADSL", "logical"), teal_slice("ADSL", "numeric"), teal_slice("ADSL", "numeric_categorical"), teal_slice("ADSL", "categorical"), teal_slice("ADSL", "ordered"), teal_slice("ADSL", "date"), teal_slice("ADSL", "datetime") ) ) runApp(app) ```