@@ -10,34 +10,34 @@ app_driver_tm_g_response <- function() {
1010 teal :: init(
1111 data = data ,
1212 modules = teal :: modules(
13- tm_g_response(
14- label = " Response Plots" ,
15- response = teal.transform :: data_extract_spec(
16- dataname = " ADSL" ,
17- select = teal.transform :: select_spec(
18- label = " Select variable:" ,
19- choices = teal.transform :: variable_choices(data [[" ADSL" ]], c(" BMRKR2" , " COUNTRY" )),
20- selected = " BMRKR2" ,
21- multiple = FALSE ,
22- fixed = FALSE
13+ tm_g_response(
14+ label = " Response Plots" ,
15+ response = teal.transform :: data_extract_spec(
16+ dataname = " ADSL" ,
17+ select = teal.transform :: select_spec(
18+ label = " Select variable:" ,
19+ choices = teal.transform :: variable_choices(data [[" ADSL" ]], c(" BMRKR2" , " COUNTRY" )),
20+ selected = " BMRKR2" ,
21+ multiple = FALSE ,
22+ fixed = FALSE
23+ )
24+ ),
25+ x = teal.transform :: data_extract_spec(
26+ dataname = " ADSL" ,
27+ select = teal.transform :: select_spec(
28+ label = " Select variable:" ,
29+ choices = teal.transform :: variable_choices(data [[" ADSL" ]], c(" SEX" , " RACE" )),
30+ selected = " RACE" ,
31+ multiple = FALSE ,
32+ fixed = FALSE
33+ )
34+ ),
35+ ggplot2_args = teal.widgets :: ggplot2_args(
36+ labs = list (subtitle = " Plot generated by Response Module" )
2337 )
24- ),
25- x = teal.transform :: data_extract_spec(
26- dataname = " ADSL" ,
27- select = teal.transform :: select_spec(
28- label = " Select variable:" ,
29- choices = teal.transform :: variable_choices(data [[" ADSL" ]], c(" SEX" , " RACE" )),
30- selected = " RACE" ,
31- multiple = FALSE ,
32- fixed = FALSE
33- )
34- ),
35- ggplot2_args = teal.widgets :: ggplot2_args(
36- labs = list (subtitle = " Plot generated by Response Module" )
3738 )
3839 )
3940 )
40- )
4141 )
4242}
4343
0 commit comments