bUdgEtRack/helper_ui.R

dashboard<- tabItem(
  tabName = "dashboard",
  autoWaiter(),
  fluidRow(
    column(
      width = 4,
      "Filter Cost Center and GL Accounts"
    ),
    column(
      width = 4,
      pickerInput(
        "glaccount",
        choices = glaccounts,
        selected = glaccounts,
        options = list(
          `actions-box` = TRUE), 
        multiple = TRUE
      )
    ),
    column(
      width = 4,
      pickerInput(
        "costcenter",
        choices = cost.centers, # Getting the list from reading data from local. See helper_server
        selected = cost.centers,
        options = list(
          `actions-box` = TRUE), 
        multiple = TRUE
      )
    )
  ),
  fluidRow(
    valueUI("variation"),
    valueUI("variabs"),
    valueUI("actexpe"),
  ),
  fluidRow(
    shinydashboardPlus::box(
      title = "Deviation % by Month",
      collapsible = TRUE,
      status = "navy",
      solidHeader = TRUE,
      echarts4rOutput("monthlypervar",height = "300px")
    ),
    shinydashboardPlus::box(
      title = "Abs. Deviation by Month",
      collapsible = TRUE,
      status = "navy",
      solidHeader = TRUE,
      echarts4rOutput("monthlyabsvar",height = "300px")
    )
  ),
  fluidRow(
    shinydashboardPlus::box(
      title = "Plan vs Actual",
      collapsible = TRUE,
      status = "navy",
      solidHeader = TRUE,
      sidebar = boxSidebar(
        startOpen = FALSE,
        id = "monthselector",
        pickerInput(
          "mont",
          choices = mont,
          selected = max(mont)
        )
      ),
      echarts4rOutput("monthlyabs",height = "300px")
    )
  )
)

upload<- tabItem(
  tabName = "upload",
  autoWaiter(),
  fluidRow(
    
    shinydashboardPlus::box(
      title = "Fresh Upload",
      collapsible = TRUE,
      width = 12,
      status = "navy",
      solidHeader = TRUE,
      fileInput(
        "inpfile",
        "Upload the file",
        multiple = FALSE,
        accept = ".csv",
        width = NULL,
        buttonLabel = "Browse...",
        placeholder = "No file selected"
      ),
      datatableUI("freshdat"),
      actionBttn("datsubmit","Submit")
    )
  )
)

appndev <- tabItem(
  tabName = "approvals",
  autoWaiter(),
    shinydashboardPlus::box(
      title = "Deviations without explanation",
      collapsible = TRUE,
      width = 12,
      status = "navy",
      solidHeader = TRUE,
      sidebar = boxSidebar(
        startOpen = FALSE,
        id = "limitselector",
        sliderInput("limittoignore","Define limit", min=100, max=2000, step=100, value = 500)
      ),
      datatableUI("devnoexp"),
      actionBttn("notify","Notify")
    ),
    shinydashboardPlus::box(
      title = "Awaiting Approval",
      collapsible = TRUE,
      width = 12,
      status = "navy",
      solidHeader = TRUE,
      excelOutput("expnoapp"),
      actionBttn("approvalsubmit","Submit")
    )

)

explan <- tabItem(
  tabName = "explanations",
  autoWaiter(),
    shinydashboardPlus::box(
      title = "Explanations Pending",
      collapsible = TRUE,
      width = 12,
      status = "navy",
      solidHeader = TRUE,
      excelOutput("explanationtofill"),
      actionBttn("explanationsubmit","Submit")
    )
    

)

admin<-tabItem(
  tabName = "admin",
  autoWaiter(),
    shinydashboardPlus::box(
      title = "Email IDs",
      width = 8,
      collapsible = TRUE,
      status = "navy",
      solidHeader = TRUE,
      excelOutput("emailtable"),
      actionBttn("emailsubmit","Submit")
    ),
  shinydashboardPlus::box(
    title = "Deviation Rules",
    width = 4,
    collapsible = TRUE,
    status = "navy",
    solidHeader = TRUE,
    excelOutput("limitable"),
    actionBttn("limitsubmit","Submit")
  )
  
)