Ondrej Salamon osalamon

Step 1 - me aka osalamon - 1st question/specifiaction what I want to:

In each file/submodule in the folder view and all its subfolders there's a function with name ending by theses 3 characters _ui. These functions are intended to be compiled from R code into the HTML/JS code, and as such they are going to be front end, visible to the users of the app. Try to wrap each potentialy in GUI visible texts with the function i18n$translate(" ... visible text here ..."). Example (file honeybee_info.R):

From this code

tags$p(
          "Source code and scripts of the pDT can be found at ",
          tags$a(icon("github"), "https://github.com/BioDT", href = "https://github.com/BioDT", target = "_blank"),
 "."

	box::use(shiny[NS, column, tags, fluidRow, icon], )

	#' @export
	disease_info_ui <- function(id, i18n) {
	ns <- NS(id)
	fluidRow(
	id = ns("welcome"),
	class = "fluid-row",
	column(
	width = 6,

	box::use(
	shiny[moduleServer, NS, tagList, div, column, tags, fluidRow, icon, actionButton, observeEvent],
	bslib[nav_select],
	)

	#' @export
	honeybee_info_ui <- function(id, i18n) {
	ns <- NS(id)
	fluidRow(
	class = "fluid-row",

	box::use(
	shiny,
	bslib,
	htmltools[css],
	waiter[Waiter],
	leaflet,
	leaflet.extras,
	zip[zip],
	jsonlite,
	terra,