tests/testthat/_mocks/find-source/r-script1.R

In transltr: Support Many Languages in R

# This script mocks a real R script containing source code.

ui <- shiny::fluidPage(
    shiny::titlePanel(tr$translate("Hello Shiny!")),
    # Sidebar layout with input and output definitions.
    shiny::sidebarLayout(
        # Sidebar panel for inputs.
        shiny::sidebarPanel(
            # Input: Slider for the number of bins.
            shiny::sliderInput(
                inputId = "bins",
                label   = `tr`$translate("Number of bins:"),
                min     = 1L,
                max     = 50L,
                value   = 30L)
        ),
        # Main panel for displaying outputs.
        shiny::mainPanel(
            # Output: histogram.
            shiny::plotOutput(outputId = "distPlot")
        )
    )
)

server <- function(input, output) {
    # Histogram of the Old Faithful Geyser Data.
    # This expression that generates a histogram is wrapped
    # in a call to shiny::renderPlot() to indicate that:
    #   1. it is "reactive" and therefore should be automatically
    #      re-executed when inputs (input$bins) change, and
    #   2. its output type is a plot.
    output$distPlot <- shiny::renderPlot({
        x    <- faithful$waiting
        bins <- seq(min(x), max(x), length.out = input$bins + 1L)

        graphics::hist(x,
            breaks = bins,
            col    = "#75AADB",
            border = "white",
            xlab   = tr$`translate`("Waiting time to next eruption (in mins)"),
            main   = tr$"translate"("Histogram of waiting times"))
    })
}

shiny::shinyApp(ui = ui, server = server)