tests/e2e/app-files/main.R

In Appsilon/rhino: A Framework for Enterprise Shiny Applications

box::use(
  rhino[log, react_component],
  shiny,
)

box::use(app/view/hello, )

Box <- react_component("Box") # nolint object_name_linter

#' @export
ui <- function(id) {
  ns <- shiny$NS(id)
  shiny$tagList(
    Box(id = ns("box"), shiny$p("React works!")),
    hello$ui(ns("hello"))
  )
}

#' @export
server <- function(id) {
  shiny$moduleServer(id, function(input, output, session) {
    log$trace("This is a test")
    hello$server("hello")
  })
}