Nothing
R/app_ui.R
Defines functions golem_add_external_resources app_ui
#' The application User-Interface
#'
#' @param request Internal parameter for `{shiny}`.
#' DO NOT REMOVE.
#' @import shiny
#' @noRd
app_ui <- function(request) {
tagList(
# Leave this function for adding external resources
golem_add_external_resources(),
# UI ELEMENTS ---------------------------------------------------------
shinydashboardPlus::dashboardPage(
options = list(sidebarExpandOnHover = TRUE),
title = "Study design of movement ecology studies",
skin = "black",
# HEADER ------------------------------------------------------------
header = shinydashboardPlus::dashboardHeader(
titleWidth = 220,
title = tagList(
tags$span(
class = "logo-mini",
tags$img(title = "movedesign",
src = "www/favicon.ico",
height = "30px")),
tags$span(
class = "logo-lg",
tags$img(title = "movedesign",
src = "www/logo.png",
height = "50px"))
),
controlbarIcon = icon("gears"),
shinydashboard::dropdownMenu(
shinydashboardPlus::messageItem(
from = "GitHub",
message = "Documentation, source, & citation",
icon = tags$i(class = "fa fa-github",
style = "color: #000000"),
href = "https://github.com/ecoisilva/movedesign"),
shinydashboardPlus::messageItem(
from = "Issues",
message = "Report Issues",
icon = icon("circle-exclamation"),
href = "https://github.com/ecoisilva/movedesign/issues"),
icon = icon("circle-info"),
type = "messages",
badgeStatus = NULL,
headerText = "Information:")
), # end of dashboardHeader
# SIDEBAR -----------------------------------------------------------
sidebar = shinydashboardPlus::dashboardSidebar(
width = 220,
shinydashboard::sidebarMenuOutput("side_menu")
), # end of dashboardSidebar
# CONTROL BAR -------------------------------------------------------
controlbar = shinydashboardPlus::dashboardControlbar(
id = "controlbar",
skin = "dark",
width = 300,
shinydashboardPlus::controlbarMenu(
id = "controlbarMenu",
shinydashboardPlus::controlbarItem(
title = "Settings", icon = icon("sliders"),
mod_comp_settings_ui("comp_settings_1")
), # end of controlbar item (settings)
shinydashboardPlus::controlbarItem(
title = "Share", icon = icon("share-nodes"),
fluidRow(
tags$div(
style = paste("font-size: 30px;",
"letter-spacing: .5rem;",
"text-align: center"),
tags$a(href = "https://github.com/",
icon("github")),
tags$a(href = "https://twitter.com/",
icon("twitter")),
tags$a(href = "https://www.linkedin.com/",
icon("linkedin")))
)
) # end of controlbar item (share)
) # end of controlbarMenu
), # end of dashboardControlbar
# BODY --------------------------------------------------------------
body = shinydashboard::dashboardBody(
shinydashboard::tabItems(
# shinydashboard::tabItem()
# Tab 1 'Home'
newTabItem(
tabName = "about",
mod_tab_about_ui("tab_about_1")),
# Tab 2.1 'Upload data'
newTabItem(
tabName = "data_upload",
mod_tab_data_upload_ui("tab_data_upload_1")),
# Tab 2.2 'Select data'
newTabItem(
tabName = "data_select",
mod_tab_data_select_ui("tab_data_select_1")),
# Tab 3 'Simulate data'
newTabItem(
tabName = "simulate",
mod_tab_sims_ui("tab_sims_1")),
# Tab 4 'Device'
newTabItem(
tabName = "device",
mod_tab_design_ui("tab_design_1")),
# Tab 5.1 'Home range estimation'
newTabItem(
tabName = "hr",
mod_tab_hrange_ui("tab_hrange_1")),
# Tab 5.2 'CTSD estimation'
newTabItem(
tabName = "ctsd",
mod_tab_ctsd_ui("tab_ctsd_1")),
# Tab 5.3 'Meta-analyses'
newTabItem(
tabName = "meta",
mod_tab_meta_ui("tab_meta_1")),
# Tab 6 'Report'
newTabItem(
tabName = "report",
mod_tab_report_ui("tab_report_1"))
) # end of tabItems
), # end of dashboardBody
footer = shinydashboardPlus::dashboardFooter(
left = tags$div(
HTML(paste0('<i class="fa fa-code-branch"',
'style = "color:#222d32;"> </i>',
HTML(' '), packageVersion("movedesign")))),
right = tags$div(
HTML(paste('<i class="fa fa-copyright"',
'style = "color:#222d32;"> </i>',
"2024\u20142025")))
) # end of dashboardFooter
) # end of dashboardPage
) # end of tagList
}
#' Add external Resources to the Application
#'
#' This function is internally used to add external
#' resources inside the Shiny application.
#'
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#' @noRd
golem_add_external_resources <- function() {
add_resource_path(
"www",
app_sys("app/www")
)
tags$head(
favicon(),
bundle_resources(
path = app_sys("app/www"),
app_title = "movedesign"
),
# Activate tooltips and popovers:
bsplus::use_bs_tooltip(),
bsplus::use_bs_popover(),
# Font types:
tags$link(href = paste0(
"https://fonts.googleapis.com/css?",
"family=",
"JetBrains+Mono", "|",
"JetBrains+Mono:ital,wght@0,100..800;1,100..800", "|",
"Fira+Sans", "|",
"Fira+Sans:italic", "|",
"Fira+Sans+Condensed:ital,wght@",
"0,100;0,200;0,300;0,400;0,500;0,600;0,700;0,800;0,900", "|",
"Barlow", "|",
"Barlow:ital", "|",
"Barlow:ital,wght@0,100;0,200;0,300;0,400;0,500;0,600;0,700", "|",
# "Barlow+Condensed", "|",
# "Barlow+Condensed:ital", "|",
# "Plus+Jakarta+Sans", "|",
"Roboto+Condensed", "|",
"Roboto+Condensed:wght@700",
"&display=fallback"),
rel = "stylesheet"),
# Misc:
rintrojs::introjsUI(), # set up introjs
shinyFeedback::useShinyFeedback(), # set up shinyFeedback
shinyjs::useShinyjs(), # set up shinyjs
shinyjs::extendShinyjs(script = "www/fullscreen.js",
functions = c("toggleFullScreen"))
)
}
Try the movedesign package in your browser
Any scripts or data that you put into this service are public.
