mod_home.R

# Module UI Home

#' @title mod_home_ui and mod_home_server
#' @description A shiny module.
#' @import shiny
#' @import shinydashboard
#' @noRd
#' @keywords internal

mod_home_ui <- function(id) {
	ns <- NS(id)
	tabItem(
		tabName = "home",
		absolutePanel(  ## refers to a css class
		  id = "splash_panel", top = 0, left = 0, right = 0, bottom = 0,
		  ### Get the name for your tool
		  p(
		    tags$span("High Frequency Checks  ", style = "font-size: 60px"),
		    tags$span(strong("  alpha-version"), style = "font-size: 34px")
		  ),
		  br(),
		  ### Then a short explainer
		  p( "It is key to monitor the quality of data collection
		  while the process is ongoing so that remedial actions, if needed, can be implemented on time. This ",
		  tags$span("companion app", style = "color:#00B398"),
		  " implements systematic checks to improve the quality of your data and
		          implement basic data cleaning and anonymisation." ,
		     style = "font-size: 20px; text-align: left;"),
		  br(),
		  p( "Once set up, the process can be automatised on ",
		     tags$a(href="https://ridl.unhcr.org",
		            "RIDL" ),
		     " through a scheduled notebook on",
		     tags$a(href="https://rstudio.unhcr.org",
		            "UNHCR Posit Connect" ),
		     " server" ,
		     style = "font-size: 16px; text-align: left;"),

		  br(),
		  p("This app is part of a ",tags$span("companion app toolkit", style = "color:#00B398"),
		    "designed to mainstream knowledge, automate processes and facilitate standardised documentation of survey implementation. It includes: ",
		    tags$a(href="https://rstudio.unhcr.org/rmsSampling/", "rmsSampling"), " to help designing sampling strategies, ",
		    tags$a(href="https://rstudio.unhcr.org/Survey_Designer", "SurveyDesigner"), " to help integrating annual survey needs, ",
		    tags$a(href="https://rstudio.unhcr.org/XlsFormUtil/", "XlsFormUtil"), " to help reviewing form contextualisation, ",
		    tags$a(href="https://rstudio.unhcr.org/HighFrequencyChecks/", "HighFrequencyChecks"), " to monitor data collection quality, ",
		    tags$a(href="https://rstudio.unhcr.org/kobocruncher/", "KoboCruncher"), " to perform rapid data exploration and ",
		    tags$a(href="https://rstudio.unhcr.org/IndicatorCalc", "IndicatorCalc"), " to compile indicators.
		       Each App has different maturity level from Alpha Version, Beta version till Candidate Release",
		    style = "font-size: 12px; text-align: left;"),
		  p(tags$i( class = "fa fa-github"),
		    "App built with ",
		    tags$a(href="https://edouard-legoupil.github.io/graveler/",
		           "{graveler}" ),
		    " -- report ",
		    tags$a(href="https://github.com/Edouard-Legoupil/HighFrequencyChecks/issues/new/choose",
		           "issues here." ,
		    ),
		    style = "font-size: 10px")
		)
	)
}

# Module Server
#' @import shiny
#' @import shinydashboard
#' @noRd
#' @keywords internal

mod_home_server <- function(input, output, session) {
	ns <- session$ns
	# This create the links for the button that allow to go to the next module
	observeEvent(input$go_to_firstmod, {
	  shinydashboard::updateTabItems(
	    session = parent_session,
	    inputId = "tab_selected",
	    selected = "firstmod"
	  )
	})
}

## copy to body.R
# mod_home_ui("home_ui_1")

## copy to app_server.R
# callModule(mod_home_server, "home_ui_1")

## copy to sidebar.R
# menuItem("displayName",tabName = "home",icon = icon("user"))