Spaces:
Sleeping
Sleeping
Ubuntu
commited on
Commit
•
377e7bf
1
Parent(s):
3acd7a8
feat: changed layout
Browse files
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
|