Below is my code for ui script:
############################## CREATE THE SIDEBAR ##############################
sidebar <- dashboardSidebar(
sidebarMenu(
id = 'navpage',
menuItem("Intro", tabName = "intro", icon = icon("home")),
menuItem("Collect", tabName = "collect", icon = icon("compress")),
menuItem("Process", tabName = "data", icon = icon("database")),
menuItem("Trends", tabName = "insights", icon = icon("line-chart")),
menuItem("Optimise", tabName = "optimise", icon = icon("flask")),
menuItem(investigate_tab_name(), tabName = "investigate", icon = icon("search")),
menuItem("Operationalise", tabName = "operationalise", icon = icon("truck"))#,
# menuItem("Summary", tabName = "summary", icon = icon("bolt"))
),
div(style = "position: fixed; bottom: 0px; padding: 15px; margin:auto;",
img(src = 'tb_images/tb_logo.png', width = 200, style='padding-left: 26px;')
)
)
I have made changes to one of the tabs ("summary") being called in code above and following is an extract from tab_module_summary.R:
fluidPage(
titlePanel("Summary"),
fluidRow(
column(width=8,
box(title='Headline 1', width = NULL,
p("Lorem ipsum dolor sit amet, consectetur adipiscing elit. Cras vehicula placerat enim, id ullamcorper felis blandit eu. Maecenas posuere lacinia lectus eget feugiat."),
p('Interdum et malesuada fames ac ante ipsum primis in faucibus. Nam et odio nisi. Quisque ac fringilla nisl.'),
p('Fusce tempus ultricies leo, vitae efficitur ligula imperdiet sit amet. Sed non vestibulum felis.'),
p("Nulla convallis laoreet nisl, vestibulum rutrum elit molestie a. Cras cursus sit amet enim eget rutrum.")
),
tabBox(title='Headline 2', width = NULL, side = "right", selected = 'Video',
tabPanel('Instructions',
tags$ol(
tags$li('Cras vehicula volutpat ex et mattis.'),
tags$li('Praesent tincidunt velit et arcu fringilla, a pretium dolor interdum.'),
tags$li('Quisque tincidunt posuere ultricies. Cras aliquet pharetra rhoncus.'),
tags$li('Fusce porttitor placerat nunc, non consectetur libero accumsan non.'),
tags$li('Proin ultricies bibendum turpis vitae iaculis. Fusce malesuada diam non enim consectetur, et pretium metus scelerisque.'),
tags$li('Nullam at pulvinar mi, pellentesque congue ex.')
)
),
tabPanel('Video',
HTML('')
)
)
)
)
)
}