inst/module/module.R

#' #MODULE# UI
#' 
#' @param id Unique id for module instance.
#' 
#' @keywords internal
#MODULE#UI <- function(id){
	ns <- NS(id)

	tagList(
		h2("#MODULE#")
	)
}

#' #MODULE# Server
#' 
#' @param id Unique id for module instance.
#' 
#' @keywords internal
#MODULE#_server <- function(id){
	moduleServer(
		id,
		function(
			input, 
			output, 
			session
			){
				
				ns <- session$ns
				send_message <- make_send_message(session)

				# your code here
		}
	)
}

# UI
# #MODULE#UI('id')

# server
# #MODULE#_server('id')

Try the leprechaun package in your browser

Any scripts or data that you put into this service are public.

leprechaun documentation built on Jan. 19, 2022, 5:08 p.m.