2021-11-01 14:38:23 +01:00
|
|
|
|
|
|
|
|
2021-11-16 12:21:55 +01:00
|
|
|
ui <- dashboardPage(
|
|
|
|
title = "RadaR2",
|
|
|
|
skin = "black",
|
2021-11-01 14:38:23 +01:00
|
|
|
# HEADER ------------------------------------------------------------------
|
|
|
|
|
|
|
|
dashboardHeader(
|
2021-11-16 12:21:55 +01:00
|
|
|
title = span(img(src = "radar.png", height = 30), strong("RadaR2")),
|
2021-11-01 14:38:23 +01:00
|
|
|
titleWidth = 500,
|
|
|
|
|
|
|
|
tags$li(
|
|
|
|
a(
|
2021-11-16 12:21:55 +01:00
|
|
|
strong(trnslt("About RadaR2")),
|
2021-11-01 14:38:23 +01:00
|
|
|
height = 40,
|
|
|
|
href = "https://www.jmir.org/2019/6/e12843/",
|
|
|
|
title = "",
|
|
|
|
target = "_blank"
|
|
|
|
),
|
|
|
|
class = "dropdown",
|
|
|
|
)
|
|
|
|
),
|
|
|
|
|
|
|
|
# SIDEBAR -----------------------------------------------------------------
|
|
|
|
|
|
|
|
dashboardSidebar(disable = TRUE,
|
|
|
|
sidebarMenu(id = "sidebar_id",
|
|
|
|
menuItem(icon = icon("check-square"),
|
|
|
|
materialSwitch(
|
|
|
|
inputId = "allInput",
|
2021-11-16 12:21:55 +01:00
|
|
|
label = trnslt("All specialties selected"),
|
2021-11-01 14:38:23 +01:00
|
|
|
value = TRUE,
|
|
|
|
status = "danger")),
|
|
|
|
menuItem(icon = icon("user-nurse"),
|
|
|
|
checkboxGroupInput(inputId = "specialtyInput",
|
2021-11-16 12:21:55 +01:00
|
|
|
label = trnslt("Select specialties"),
|
2021-11-01 14:38:23 +01:00
|
|
|
choices = sort(unique(radar_data$specialty_shiny)))),
|
|
|
|
menuItem(icon = icon("hospital"),
|
|
|
|
checkboxGroupInput(inputId = "departmentInput",
|
2021-11-16 12:21:55 +01:00
|
|
|
label = trnslt("Select departments"),
|
2021-11-01 14:38:23 +01:00
|
|
|
choices = sort(unique(radar_data$department))))
|
|
|
|
)
|
|
|
|
),
|
|
|
|
|
|
|
|
|
|
|
|
# BODY --------------------------------------------------------------------
|
|
|
|
|
|
|
|
dashboardBody(
|
|
|
|
|
|
|
|
# fluidRow(
|
|
|
|
# column = 12,
|
|
|
|
# infoBoxOutput(outputId = "no_tests", width = 4),
|
|
|
|
# infoBoxOutput(outputId = "no_pos", width = 4),
|
|
|
|
# infoBoxOutput(outputId = "top_mo", width = 4)
|
|
|
|
# ),
|
|
|
|
# br(),
|
|
|
|
fluidRow(
|
|
|
|
tags$style(
|
|
|
|
".nav-tabs {background-color: white;}
|
|
|
|
.nav-tabs-custom .nav-tabs li.active:hover a, .nav-tabs-custom .nav-tabs li.active a {background-color: transparent; border-color: transparent;}
|
|
|
|
.nav-tabs-custom .nav-tabs li.active {border-top-color: black;}"),
|
|
|
|
div(
|
|
|
|
id = "resistance",
|
|
|
|
column(
|
|
|
|
width = 6,
|
|
|
|
uiOutput("box2")
|
|
|
|
|
|
|
|
),
|
|
|
|
column(
|
|
|
|
width = 6,
|
|
|
|
uiOutput("box1")
|
|
|
|
),
|
|
|
|
column(
|
|
|
|
width = 6,
|
|
|
|
uiOutput("box3")
|
|
|
|
),
|
|
|
|
column(
|
|
|
|
width = 6,
|
|
|
|
uiOutput("box4")
|
|
|
|
)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
)
|