R/new_user_ui.R

In login: 'shiny' Login Module

#' UI for creating a new user account.
#'
#' This will render the UI for users to create an account.
#'
#' @param id id unique ID for the Shiny Login module.
#' @return `shiny` object containing the input fields for a user to create an account.
#' @export
new_user_ui <- function(id) {
	is_not_logged_in(
		id = id,
		htmltools::attachDependencies(
			x = uiOutput(NS(id, 'new_user_ui')),
			value = use_login(),
			append = TRUE
		)
	)
}