Nothing
#' FrontEnd for RegLogServer
#'
#' @details Logic behind UI generation lies in there
#'
#' @param self object of R6
#' @param private object of R6
#' @noRd
#' @import shiny
RegLogServer_frontend <- function(
self,
private
) {
moduleServer(
id = self$module_id,
function(input, output, session) {
# create tagList for login ####
observe(
self$UI_list_login <- list(
title = h1("Login"),
id_input = textInput(
session$ns("login_user_id"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="user_id")
),
pass_input = passwordInput(
session$ns("password_login"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="password")
),
confirm_button = actionButton(
session$ns("login_button"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="login_bttn"),
class = "reglog_bttn"
)
)
)
# render UI for login and ease of usage ####
output$login_ui <- renderUI(
tagList(self$UI_list_login)
)
# create tagList for registration ####
observe(
self$UI_list_register <- list(
title = h1(RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="register_ui_1")),
description = p(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="register_ui_2"),
tags$ul(tags$li(RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="register_ui_3")),
tags$li(RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="register_ui_4")))),
id_input = textInput(
session$ns("register_user_ID"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="user_id")
),
mail_input = textInput(
session$ns("register_email"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="email")
),
pass1_input = passwordInput(
session$ns("register_pass1"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="password")
),
pass2_input = passwordInput(
session$ns("register_pass2"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="password_rep")
),
confirm_button = actionButton(
session$ns("register_bttn"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="register_bttn"),
class = "reglog_bttn"
)
)
)
# render UI for registration and ease of use ####
output$register_ui <- renderUI(
tagList(self$UI_list_register)
)
# create tagList for credentials edit ####
observe(
self$UI_list_credsEdit <- list(
title = h1(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_h1")),
h_current = h2(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_h2_old")),
desc_current = p(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_p_old")),
pass_current_input = passwordInput(
session$ns("cred_edit_old_pass"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "password")),
hr1 = tags$hr(),
h_pass = h2(RegLog_txt(
lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_h2_pass_change")),
desc_pass = p(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_p_pass_change")),
newpass1_input = passwordInput(
session$ns("cred_edit_new_pass1"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "password")),
newpass2_input = passwordInput(
session$ns("cred_edit_new_pass2"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "password_rep")),
new_pass_confirm_button = actionButton(
session$ns("cred_edit_pass_change"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_pass_change_bttn"),
class = "reglog_bttn"),
hr2 = tags$hr(),
h_creds = h2(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_h2_other_change")),
desc_creds = p(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_ui_p_other_change")),
new_id_input = textInput(
session$ns("cred_edit_new_ID"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "user_id")),
new_mail_input = textInput(
session$ns("cred_edit_new_mail"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "email")),
new_creds_confirm_button = actionButton(
session$ns("cred_edit_other_change"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "cred_edit_other_change_bttn"),
class = "reglog_bttn")
)
)
# render UI for credentials edit ####
output$creds_edit_ui <- renderUI(
tagList(self$UI_list_credsEdit)
)
# create tagList for reset password procedure ####
observe(
self$UI_list_resetPass <- list(
title = h1(RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="reset_ui_1")),
desc1 = p(RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="reset_ui_2")),
user_ID = textInput(
session$ns("reset_user_ID"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="user_id")
),
send_code_bttn = actionButton(
session$ns("reset_send"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="reset_bttn_1"),
class = "reglog_bttn"),
desc2 = p(RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="reset_ui_3")),
reset_code = textInput(
session$ns("reset_code"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="reset_ui_4")),
desc_pass = p(
RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "reset_ui_p_pass_change")),
newpass1_input = passwordInput(
session$ns("reset_pass1"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "password")),
newpass2_input = passwordInput(
session$ns("reset_pass2"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x = "password_rep")),
confirm_code_bttn = actionButton(
session$ns("reset_confirm_bttn"),
label = RegLog_txt(lang = private$lang, custom_txts = private$custom_txts, x ="reset_bttn_2"),
class = "reglog_bttn"
)
)
)
# render UI for reset password procedure ####
output$reset_pass_ui <- renderUI(
tagList(self$UI_list_resetPass)
)
}
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.