{"app.R": "library(shiny)\nlibrary(bslib)\nlibrary(readxl)\nlibrary(DT)\nlibrary(dplyr)\n\nsource(\"ui.R\")\nsource(\"server.R\")\n\nshinyApp(ui = ui, server = server)", "server.R": "library(magrittr)\nlibrary(bslib)\nlibrary(shiny)\nlibrary(readxl)\nlibrary(DT)\nlibrary(dplyr)\n\nserver <- function(input, output, session) {\n # Reactive values to store data\n rv <- reactiveValues(\n original_data = NULL,\n current_data = NULL,\n saved_datasets = list(),\n dataset_counter = 0\n )\n \n # Read Excel file\n observeEvent(input$file, {\n req(input$file)\n rv$original_data <- read_excel(input$file$datapath)\n rv$current_data <- rv$original_data\n \n # Update filter column choices\n updateSelectInput(session, \"filter_col\",\n choices = names(rv$original_data))\n })\n \n # Sort ascending\n observeEvent(input$sort_asc, {\n req(rv$current_data, input$filter_col)\n rv$current_data <- arrange(rv$current_data, across(all_of(input$filter_col)))\n })\n \n # Sort descending\n observeEvent(input$sort_desc, {\n req(rv$current_data, input$filter_col)\n rv$current_data <- arrange(rv$current_data, desc(across(all_of(input$filter_col))))\n })\n \n # Apply filter\n observeEvent(input$apply_filter, {\n req(rv$current_data, input$filter_col, input$filter_val)\n rv$current_data <- rv$current_data %>%\n filter(across(all_of(input$filter_col), \n ~grepl(input$filter_val, ., ignore.case = TRUE)))\n })\n \n # Clear all manipulations\n observeEvent(input$clear, {\n req(rv$original_data)\n rv$current_data <- rv$original_data\n })\n \n # Save as new dataset\n observeEvent(input$save_dataset, {\n req(rv$current_data)\n rv$dataset_counter <- rv$dataset_counter + 1\n dataset_name <- paste(\"Dataset\", rv$dataset_counter)\n rv$saved_datasets[[dataset_name]] <- rv$current_data\n \n # Add new tab for saved dataset\n insertTab(\n inputId = \"tabs\",\n tab = nav_panel(\n dataset_name,\n card(\n card_header(dataset_name),\n DTOutput(paste0(\"saved_table_\", rv$dataset_counter))\n )\n ),\n target = \"Data View\",\n position = \"after\"\n )\n })\n \n # Render main data table\n output$data_table <- renderDT({\n req(rv$current_data)\n datatable(rv$current_data, \n options = list(scrollX = TRUE, \n scrollY = \"400px\", \n pageLength = 10))\n })\n \n # Render saved dataset tables\n observe({\n for(i in seq_len(rv$dataset_counter)) {\n local({\n local_i <- i\n output[[paste0(\"saved_table_\", local_i)]] <- renderDT({\n dataset_name <- paste(\"Dataset\", local_i)\n datatable(rv$saved_datasets[[dataset_name]],\n options = list(scrollX = TRUE, \n scrollY = \"400px\", \n pageLength = 10))\n })\n })\n }\n })\n \n # Add Visualization tab\n observe({\n req(rv$original_data)\n if (length(isolate(input$tabs)) == 1) { # Only add if not already present\n insertTab(\n inputId = \"tabs\",\n tab = nav_panel(\n \"Visualization\",\n layout_sidebar(\n sidebar = sidebar(\n selectInput(\"chart_x\", \"X-axis\", choices = names(rv$original_data)),\n selectInput(\"chart_y\", \"Y-axis\", choices = names(rv$original_data)),\n selectInput(\"chart_type\", \"Chart Type\",\n choices = c(\"Scatter Plot\", \"Bar Chart\", \"Line Plot\")),\n selectInput(\"dataset_select\", \"Select Dataset\",\n choices = c(\"Current Data\"))\n ),\n card(\n card_header(\"Chart\"),\n plotOutput(\"chart\")\n )\n )\n ),\n target = \"Data View\",\n position = \"after\"\n )\n }\n \n # Update dataset choices for visualization\n saved_names <- paste(\"Dataset\", seq_len(rv$dataset_counter))\n updateSelectInput(session, \"dataset_select\",\n choices = c(\"Current Data\", saved_names))\n })\n \n # Render chart\n output$chart <- renderPlot({\n req(input$chart_x, input$chart_y, input$chart_type, input$dataset_select)\n \n # Get selected dataset\n plot_data <- if(input$dataset_select == \"Current Data\") {\n rv$current_data\n } else {\n rv$saved_datasets[[input$dataset_select]]\n }\n \n req(plot_data)\n \n if(input$chart_type == \"Scatter Plot\") {\n plot(plot_data[[input$chart_x]], plot_data[[input$chart_y]],\n xlab = input$chart_x, ylab = input$chart_y,\n main = \"Scatter Plot\")\n } else if(input$chart_type == \"Bar Chart\") {\n barplot(table(plot_data[[input$chart_x]]),\n main = \"Bar Chart\",\n xlab = input$chart_x)\n } else if(input$chart_type == \"Line Plot\") {\n plot(plot_data[[input$chart_x]], plot_data[[input$chart_y]],\n type = \"l\",\n xlab = input$chart_x, ylab = input$chart_y,\n main = \"Line Plot\")\n }\n })\n}", "ui.R": "library(shiny)\nlibrary(bslib)\nlibrary(DT)\n\nui <- page_sidebar(\n title = \"Data Transformation App\",\n sidebar = sidebar(\n fileInput(\"file\", \"Choose Excel File\",\n accept = c(\".xls\", \".xlsx\")),\n actionButton(\"sort_asc\", \"Sort Ascending\"),\n actionButton(\"sort_desc\", \"Sort Descending\"),\n selectInput(\"filter_col\", \"Filter Column\", choices = NULL),\n textInput(\"filter_val\", \"Filter Value\"),\n actionButton(\"apply_filter\", \"Apply Filter\"),\n actionButton(\"save_dataset\", \"Save as New Dataset\"),\n actionButton(\"clear\", \"Clear All Manipulations\")\n ),\n navset_card_tab(\n nav_panel(\n \"Data View\",\n card(\n card_header(\"Transformed Data\"),\n DTOutput(\"data_table\")\n )\n ),\n id = \"tabs\"\n )\n)", "install.R": "install.packages('DT')\ninstall.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"}