---
title: "Manager Console"
output: html_document
runtime: shiny
---
.main-container { max-width: 1920px; }
< /code>
knitr::opts_chunk$set(echo = TRUE)
< /code>
library(DT)
library(dplyr)
library(htmltools)
library(lubridate)
library(readxl)
library(shiny)
library(tidyverse)
library(zoo)
< /code>
ui
groove_data %
select(Ops_Rep, Total, everything())
return(export_ops_leader_stats_table)
} else if (input$ops_leader_stat == "Containers"){
temp_summary %
group_by(Ops_Rep, ETD_month) %>%
summarise(Qty = sum(qty, na.rm = TRUE), .groups = "drop")
export_ops_leader_stats_table %
select(Ops_Rep, ETD_month, Qty) %>%
pivot_wider(names_from = ETD_month, values_from = Qty, values_fill = 0) %>%
mutate(Total = rowSums(across(where(is.numeric)))) %>%
select(Ops_Rep, Total, everything())
return(export_ops_leader_stats_table)
}
})
output$rep_table_perform
shinyApp(ui,server)
< /code>

Подробнее здесь: https://stackoverflow.com/questions/796 ... the-screen
Мобильная версия