add homekeeper stack
This commit is contained in:
@@ -0,0 +1,35 @@
|
||||
ui <- function() {
|
||||
bslib::page(
|
||||
fillable = FALSE,
|
||||
title = "Listen",
|
||||
theme = bslib::bs_theme(version = 5),
|
||||
shiny::tags$head(
|
||||
shiny::tags$meta(name = "viewport", content = "width=device-width, initial-scale=1"),
|
||||
shiny::tags$style(shiny::HTML("
|
||||
body { background: #f8f9fa !important; }
|
||||
.bk-header {
|
||||
background: #fff;
|
||||
border-bottom: 1px solid #dee2e6;
|
||||
padding: .75rem 1rem;
|
||||
position: sticky;
|
||||
top: 0;
|
||||
z-index: 100;
|
||||
}
|
||||
.tap-card { cursor: pointer; }
|
||||
.tap-card:active { opacity: .8; }
|
||||
.card { overflow: hidden; }
|
||||
.item-row { border-bottom: 1px solid #f0f0f0; }
|
||||
.item-row:last-child { border-bottom: none; }
|
||||
#ss-connect-dialog, .shiny-disconnected-overlay { display: none !important; }
|
||||
"))
|
||||
),
|
||||
shiny::div(
|
||||
class = "bk-header d-flex justify-content-between align-items-center",
|
||||
shiny::tags$h4(class = "mb-0", "Listen")
|
||||
),
|
||||
shiny::div(
|
||||
class = "container-fluid p-3",
|
||||
screen_home_ui("s_home")
|
||||
)
|
||||
)
|
||||
}
|
||||
Reference in New Issue
Block a user