shiny_app_code/panels/primary_output.R

In jameshay218/virosolver: Infer epidemic dynamics using viral load data

output_content <- function() { 
  fluidRow(
    mainPanel(
      plotOutput("dist_plot"),
      plotOutput("trace_plot")
    )
  )
}

out_tab <- tabPanel("Output",output_content())