inst/test-app/ui.R

In shrektan/test.shiny.app: Test App to Debug Shiny Server Docker Image

library(shiny)

fluidPage(
  tabsetPanel(
    tabPanel(
      "run code",
      column(
        6,
        textAreaInput("code", "code", width = "100%", rows = 10),
        actionButton("run", "run")
      ),
      column(
        6,
        verbatimTextOutput("result2")
      )
    ),
    tabPanel(
      "pandoc & latex",
      downloadLink("word", label = "word"),
      downloadLink("pdf", label = "pdf"),
      verbatimTextOutput("result")
    )
  )
)