{"app.R": "library(shiny)\nlibrary(bslib)\nlibrary(readxl)\nlibrary(dplyr)\n\nsource(\"ui.R\")\nsource(\"server.R\")\n\nshinyApp(ui = ui, server = server)", "server.R": "library(magrittr)\nlibrary(shiny)\nlibrary(dplyr)\nlibrary(readxl)\n\nserver <- function(input, output, session) {\n # Reactive value to store the data\n data <- reactiveVal()\n \n # Read uploaded file\n observeEvent(input$file, {\n req(input$file)\n df <- read_excel(input$file$datapath)\n data(df)\n \n # Update column choices in UI\n updateSelectInput(session, 'arrange_col', choices = names(df))\n updateSelectInput(session, 'filter_col', choices = names(df))\n updateSelectInput(session, 'group_col', choices = names(df))\n updateSelectInput(session, 'summarise_col', choices = names(df))\n })\n \n # Arrange data\n observeEvent(input$arrange_btn, {\n req(data())\n df <- data()\n arranged_df <- df %>%\n arrange(across(all_of(input$arrange_col)))\n data(arranged_df)\n })\n \n # Filter data\n observeEvent(input$filter_btn, {\n req(data())\n df <- data()\n filtered_df <- df %>%\n filter(if_else(is.numeric(.data[[input$filter_col]]),\n .data[[input$filter_col]] == as.numeric(input$filter_val),\n .data[[input$filter_col]] == input$filter_val))\n data(filtered_df)\n })\n \n # Group and summarise data\n observeEvent(input$group_summarise_btn, {\n req(data())\n df <- data()\n summarised_df <- df %>%\n group_by(across(all_of(input$group_col))) %>%\n summarise(\n result = switch(input$summarise_fun,\n 'mean' = mean(.data[[input$summarise_col]], na.rm = TRUE),\n 'sum' = sum(.data[[input$summarise_col]], na.rm = TRUE),\n 'min' = min(.data[[input$summarise_col]], na.rm = TRUE),\n 'max' = max(.data[[input$summarise_col]], na.rm = TRUE)),\n .groups = 'drop'\n )\n data(summarised_df)\n })\n \n # Render the data table\n output$data_table <- renderTable({\n req(data())\n data()\n })\n}", "ui.R": "library(shiny)\nlibrary(bslib)\n\nui <- page_navbar(\n title = 'Data Manipulation App',\n theme = bs_theme(version = 5),\n \n nav_panel(\n title = 'Data Transform',\n layout_sidebar(\n sidebar = sidebar(\n fileInput('file', 'Choose Excel File',\n accept = c('.xls', '.xlsx')),\n selectInput('arrange_col', 'Arrange by Column:', NULL),\n actionButton('arrange_btn', 'Arrange'),\n selectInput('filter_col', 'Filter Column:', NULL),\n textInput('filter_val', 'Filter Value:'),\n actionButton('filter_btn', 'Filter'),\n selectInput('group_col', 'Group by Column:', NULL),\n selectInput('summarise_col', 'Summarise Column:', NULL),\n selectInput('summarise_fun', 'Summary Function:',\n choices = c('mean', 'sum', 'min', 'max')),\n actionButton('group_summarise_btn', 'Group & Summarise')\n ),\n card(\n card_header('Transformed Data'),\n tableOutput('data_table')\n )\n )\n ),\n \n nav_panel(\n title = 'About',\n layout_sidebar(\n sidebar = sidebar(\n 'This is a data manipulation app that allows you to:',\n tags$ul(\n tags$li('Import Excel files'),\n tags$li('Arrange data'),\n tags$li('Filter data'),\n tags$li('Group and summarise data')\n )\n ),\n card(\n card_header('Instructions'),\n card_body(\n 'Use the sidebar controls to manipulate your data. The results will be shown in the main panel.',\n tags$br(), tags$br(),\n '1. Start by uploading an Excel file',\n tags$br(),\n '2. Use the buttons to transform your data:',\n tags$ul(\n tags$li('Arrange: Sort data by selected column'),\n tags$li('Filter: Filter data based on column value'),\n tags$li('Group & Summarise: Group data and calculate summary statistics')\n )\n )\n )\n )\n )\n)", "install.R": "install.packages('bslib')\ninstall.packages('dplyr')\ninstall.packages('magrittr')\ninstall.packages('readxl')\ninstall.packages('shiny')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}