refactor: removed mixing patterns

pharmaverse · Dec 12, 2024 · 4479fe7 · 4479fe7
1 parent d0ac1f6
commit 4479fe7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/inst/shiny/modules/tab_tlg.R b/inst/shiny/modules/tab_tlg.R
@@ -257,7 +257,10 @@ tab_tlg_server <- function(id, data) {
                            choices = "")
       }
 
-      tlg_order_graphs <- filter(tlg_order_filt, Type == "Graph")$id
+      tlg_order_graphs <- filter(tlg_order_filt, Type == "Graph") %>%
+        select("id") %>%
+        pull()
+
       panels <- lapply(tlg_order_graphs, function(g_id) {
         plot_ui <- {
           g_def <- .TLG_DEFINITIONS[[g_id]]

diff --git a/inst/shiny/tlg.yaml b/inst/shiny/tlg.yaml
@@ -83,4 +83,4 @@ g_pkconc_ind_log:
     ymin:
       type: numeric
     ymax:
-      type: numeric
+      type: numeric