Ubuntu commited on
Commit
377e7bf
1 Parent(s): 3acd7a8

feat: changed layout

Browse files
Files changed (1) hide show
  1. app/view/mod_poisson_model.R +4 -1
app/view/mod_poisson_model.R CHANGED
@@ -1,5 +1,6 @@
1
  box::use(
2
  shiny[observeEvent, tagList, markdown, div, h3, p, numericInput, reactiveVal, moduleServer, actionButton, reactive, req, NS, plotOutput, renderPlot],
 
3
  bslib[layout_column_wrap, navset_card_tab, nav_panel, layout_sidebar, card_title, sidebar, card, card_header],
4
  dplyr[bind_rows, filter],
5
  data.table[setnames],
@@ -82,7 +83,8 @@ ui <- function(id) {
82
  table_card(
83
  "Model characteristics",
84
  ns("characteristics_tab")
85
- )
 
86
  # plot_card(
87
  # "Sensitivity plot",
88
  # ns("sensitivity_plot"),
@@ -321,6 +323,7 @@ plot_card <- function(header, plot_id, settings = NULL, btn_id = NULL, btn_label
321
  table_card <- function(header, table_id) {
322
  card(
323
  full_screen = TRUE,
 
324
  card_header(
325
  class = "bg-dark",
326
  header
 
1
  box::use(
2
  shiny[observeEvent, tagList, markdown, div, h3, p, numericInput, reactiveVal, moduleServer, actionButton, reactive, req, NS, plotOutput, renderPlot],
3
+ htmltools[css],
4
  bslib[layout_column_wrap, navset_card_tab, nav_panel, layout_sidebar, card_title, sidebar, card, card_header],
5
  dplyr[bind_rows, filter],
6
  data.table[setnames],
 
83
  table_card(
84
  "Model characteristics",
85
  ns("characteristics_tab")
86
+ ),
87
+ width = 1,
88
  # plot_card(
89
  # "Sensitivity plot",
90
  # ns("sensitivity_plot"),
 
323
  table_card <- function(header, table_id) {
324
  card(
325
  full_screen = TRUE,
326
+ fill = FALSE,
327
  card_header(
328
  class = "bg-dark",
329
  header