R/shiny_helpers.R

In zac-garland/equityresearch: Equity Research in R

full_page <- function(tabname,output){

  tabItem(tabName = tabname,
          fluidRow(column(12,
                          output)))

}


full_row <- function(output){

  fluidRow(column(12,
                  output))

}


half_row <- function(output_one,output_two){

  fluidRow(column(6,output_one),
           column(6,output_two))
}