{"app.R": "library(shiny)\nlibrary(leaflet)\nlibrary(dplyr)\nsource(\"ui.R\")\nsource(\"server.R\")\n\nshinyApp(ui = ui, server = server)", "server.R": "library(magrittr)\nlibrary(shiny)\nlibrary(ggplot2)\nlibrary(dplyr)\nlibrary(leaflet)\n\n# Generate sample data\nset.seed(123)\ndates <- seq(as.Date('2024-01-01'), as.Date('2025-12-31'), by='month')\nshipments_data <- data.frame(\n date = dates,\n shipments = round(runif(length(dates), 150, 200)),\n volume = round(runif(length(dates), 7000, 8000)),\n weight = round(runif(length(dates), 3000, 4000))\n)\n\nconsignor_data <- data.frame(\n Consignor = c('BTK-CHEMIE GMBH', 'TOP AWARD INC', 'TAKING YOU WITH US (PTY) LTD',\n 'ECATP GMBH', 'WESTLAKE EPOXY BV', 'DOW EUROPE GMBH', 'DYNAMIC CHEMICAL PTE. LTD'),\n Count = c(141, 121, 59, 46, 45, 43, 41),\n Volume = c(1644, 4852, 4852, 545, 1871, 762, 973),\n Weight = c(1046, 207, 1635, 207, 1145, 613, 760)\n)\n\ncountry_data <- data.frame(\n Country = c('China', 'Netherlands', 'Germany', 'India', 'Italy', 'Taiwan'),\n Count = c(1156, 305, 204, 150, 111, 101)\n)\n\nserver <- function(input, output) {\n \n # Shipments Plot\n output$shipmentsPlot <- renderPlot({\n ggplot(shipments_data, aes(x = date, y = shipments)) +\n geom_col(fill = '#4CAF50') +\n theme_minimal() +\n theme(axis.text.x = element_text(angle = 45))\n })\n \n # Volume Plot\n output$volumePlot <- renderPlot({\n ggplot(shipments_data, aes(x = date, y = volume)) +\n geom_col(fill = '#4CAF50') +\n theme_minimal() +\n theme(axis.text.x = element_text(angle = 45))\n })\n \n # Weight Plot\n output$weightPlot <- renderPlot({\n ggplot(shipments_data, aes(x = date, y = weight)) +\n geom_col(fill = '#4CAF50') +\n theme_minimal() +\n theme(axis.text.x = element_text(angle = 45))\n })\n \n # World Map\n output$map <- renderLeaflet({\n leaflet() %>%\n addTiles() %>%\n setView(lng = 0, lat = 20, zoom = 2) %>%\n addProviderTiles(providers$CartoDB.Positron)\n })\n \n # Consignor Table\n output$consignorTable <- renderTable({\n consignor_data\n })\n \n # Pie Charts\n output$pieChart1 <- renderPlot({\n pie_data <- data.frame(\n category = c('TEL', 'AU', 'ICL', 'Courier', 'Road'),\n value = c(19, 21, 17, 23, 20)\n )\n ggplot(pie_data, aes(x = \"\", y = value, fill = category)) +\n geom_bar(stat = \"identity\", width = 1) +\n coord_polar(theta = \"y\") +\n theme_void()\n })\n \n output$pieChart2 <- renderPlot({\n pie_data <- data.frame(\n category = c('DT Terms', 'DD Terms'),\n value = c(45, 55)\n )\n ggplot(pie_data, aes(x = \"\", y = value, fill = category)) +\n geom_bar(stat = \"identity\", width = 1) +\n coord_polar(theta = \"y\") +\n theme_void()\n })\n \n # Country Bar Plot\n output$countryBarPlot <- renderPlot({\n ggplot(country_data, aes(x = reorder(Country, -Count), y = Count)) +\n geom_col(fill = '#4CAF50') +\n theme_minimal() +\n theme(axis.text.x = element_text(angle = 45))\n })\n}\n", "ui.R": "library(shiny)\nlibrary(bslib)\n\nui <- page_fluid(\n theme = bs_theme(version = 5),\n \n titlePanel(\"CARGO INTELLIGENCE DASHBOARD | VOLUME\"),\n \n fluidRow(\n column(2,\n div(class = \"value-box\",\n h6(\"Total Shipments\"),\n h3(\"2,753\")\n )\n ),\n column(2,\n div(class = \"value-box\",\n h6(\"Total Volume\"),\n h3(\"91,551 M\u00b3\")\n )\n ),\n column(2,\n div(class = \"value-box\",\n h6(\"Total Weight\"),\n h3(\"48,892 T\")\n )\n ),\n column(2,\n div(class = \"value-box\",\n h6(\"Avg Shipments per month\"),\n h3(\"184\")\n )\n ),\n column(2,\n div(class = \"value-box\",\n h6(\"Average Volume\"),\n h3(\"3.7\")\n )\n ),\n column(2,\n div(class = \"value-box\",\n h6(\"Total TEUs\"),\n h3(\"2,974\")\n )\n )\n ),\n \n fluidRow(\n column(4,\n card(\n card_header(\"Shipments Per Month\"),\n plotOutput(\"shipmentsPlot\", height = \"150px\")\n ),\n card(\n card_header(\"Volume Shipped Per Month (M\u00b3)\"),\n plotOutput(\"volumePlot\", height = \"150px\")\n ),\n card(\n card_header(\"Weight Shipped Per Month (T)\"),\n plotOutput(\"weightPlot\", height = \"150px\")\n )\n ),\n column(4,\n card(\n card_header(\"World Map\"),\n leafletOutput(\"map\", height = \"450px\")\n )\n ),\n column(4,\n card(\n card_header(\"Consignor Summary\"),\n tableOutput(\"consignorTable\")\n ),\n fluidRow(\n column(6,\n plotOutput(\"pieChart1\", height = \"150px\")\n ),\n column(6,\n plotOutput(\"pieChart2\", height = \"150px\")\n )\n ),\n card(\n card_header(\"Shipments Count By Country\"),\n plotOutput(\"countryBarPlot\", height = \"150px\")\n )\n )\n )\n)", "install.R": "install.packages('bslib')\ninstall.packages('dplyr')\ninstall.packages('ggplot2')\ninstall.packages('leaflet')\ninstall.packages('magrittr')\ninstall.packages('shiny')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}