inst/App/cv_builder/main_box.R

In DivadNojnarg/shinyCV: Create beautiful HTML CVs with shiny

# generate the main box
# 2 tabPanels if input$academic_cv == FALSE
# 6 tabPanels if input$academic_cv == TRUE
main_box <- function(input) {
  if (input$academic_cv == TRUE) {
    if (is.element("teaching", input$academic_filter)) {
      if (is.element("publications", input$academic_filter)) {
        if (is.element("talks", input$academic_filter)) {
          tabBox(
            id = "main_body", width = 12,
            tabPanel(
              title = HTML(paste0(icon("graduation-cap"), "Formation")),
              uiOutput("formation_timeline")
            ),
            tabPanel(
              title = HTML(paste0(icon("archive"), "Experience")),
              # wrap in fluidRow so that elements
              # are added by column
              fluidRow(uiOutput("experience"))
            ),
            tabPanel(
              title = HTML(paste0(icon("university"), "Teaching")),
              fluidRow(uiOutput("teaching_courses"), uiOutput("teaching_internships"))
            ),
            tabPanel(
              title = HTML(paste0(icon("pencil"), "Publications")),
              fluidRow(uiOutput("publications"))
            ),
            tabPanel(
              title = HTML(paste0(icon("microphone"), "Conferences/Talks")),
              uiOutput("talk_timeline")
            )
          )
        } else {
          tabBox(
            id = "main_body", width = 12,
            tabPanel(
              title = HTML(paste0(icon("graduation-cap"), "Formation")),
              uiOutput("formation_timeline")
            ),
            tabPanel(
              title = HTML(paste0(icon("archive"), "Experience")),
              # wrap in fluidRow so that elements
              # are added by column
              fluidRow(uiOutput("experience"))
            ),
            tabPanel(
              title = HTML(paste0(icon("university"), "Teaching")),
              fluidRow(uiOutput("teaching_courses"), uiOutput("teaching_internships"))
            ),
            tabPanel(
              title = HTML(paste0(icon("pencil"), "Publications")),
              fluidRow(uiOutput("publications"))
            )
          )
        }
      } else {
        if (is.element("talks", input$academic_filter)) {
          tabBox(
            id = "main_body", width = 12,
            tabPanel(
              title = HTML(paste0(icon("graduation-cap"), "Formation")),
              uiOutput("formation_timeline")
            ),
            tabPanel(
              title = HTML(paste0(icon("archive"), "Experience")),
              # wrap in fluidRow so that elements
              # are added by column
              fluidRow(uiOutput("experience"))
            ),
            tabPanel(
              title = HTML(paste0(icon("university"), "Teaching")),
              fluidRow(uiOutput("teaching_courses"), uiOutput("teaching_internships"))
            ),
            tabPanel(
              title = HTML(paste0(icon("microphone"), "Conferences/Talks")),
              uiOutput("talk_timeline")
            )
          )
        } else {
          tabBox(
            id = "main_body", width = 12,
            tabPanel(
              title = HTML(paste0(icon("graduation-cap"), "Formation")),
              uiOutput("formation_timeline")
            ),
            tabPanel(
              title = HTML(paste0(icon("archive"), "Experience")),
              # wrap in fluidRow so that elements
              # are added by column
              fluidRow(uiOutput("experience"))
            ),
            tabPanel(
              title = HTML(paste0(icon("university"), "Teaching")),
              fluidRow(uiOutput("teaching_courses"), uiOutput("teaching_internships"))
            )
          )
        }
      }
    } else if (is.element("publications", input$academic_filter)) {
      if (is.element("talks", input$academic_filter)) {
        tabBox(
          id = "main_body", width = 12,
          tabPanel(
            title = HTML(paste0(icon("graduation-cap"), "Formation")),
            uiOutput("formation_timeline")
          ),
          tabPanel(
            title = HTML(paste0(icon("archive"), "Experience")),
            # wrap in fluidRow so that elements
            # are added by column
            fluidRow(uiOutput("experience"))
          ),
          tabPanel(
            title = HTML(paste0(icon("pencil"), "Publications")),
            fluidRow(uiOutput("publications"))
          ),
          tabPanel(
            title = HTML(paste0(icon("microphone"), "Conferences/Talks")),
            uiOutput("talk_timeline")
          )
        )
      } else {
        tabBox(
          id = "main_body", width = 12,
          tabPanel(
            title = HTML(paste0(icon("graduation-cap"), "Formation")),
            uiOutput("formation_timeline")
          ),
          tabPanel(
            title = HTML(paste0(icon("archive"), "Experience")),
            # wrap in fluidRow so that elements
            # are added by column
            fluidRow(uiOutput("experience"))
          ),
          tabPanel(
            title = HTML(paste0(icon("pencil"), "Publications")),
            fluidRow(uiOutput("publications"))
          )
        )
      }
    } else if (is.element("talks", input$academic_filter)) {
      tabBox(
        id = "main_body", width = 12,
        tabPanel(
          title = HTML(paste0(icon("graduation-cap"), "Formation")),
          uiOutput("formation_timeline")
        ),
        tabPanel(
          title = HTML(paste0(icon("archive"), "Experience")),
          # wrap in fluidRow so that elements
          # are added by column
          fluidRow(uiOutput("experience"))
        ),
        tabPanel(
          title = HTML(paste0(icon("microphone"), "Conferences/Talks")),
          uiOutput("talk_timeline")
        )
      )
    } else {
      tabBox(
        id = "main_body", width = 12,
        tabPanel(
          title = HTML(paste0(icon("graduation-cap"), "Formation")),
          uiOutput("formation_timeline")
        ),
        tabPanel(
          title = HTML(paste0(icon("archive"), "Experience")),
          # wrap in fluidRow so that elements
          # are added by column
          fluidRow(uiOutput("experience"))
        )
      )
    }
  } else {
    tabBox(
      id = "main_body", width = 12,
      tabPanel(
        title = HTML(paste0(icon("graduation-cap"), "Formation")),
        uiOutput("formation_timeline")
      ),
      tabPanel(
        title = HTML(paste0(icon("archive"), "Experience")),
        # wrap in fluidRow so that elements
        # are added by column
        fluidRow(uiOutput("experience"))
      )
    )
  }
}