{"app.R": "library(shiny)\nlibrary(bslib)\nlibrary(dplyr)\nlibrary(DT)\nlibrary(plotly)\nlibrary(ggplot2)\n\nsource(\"ui.R\")\nsource(\"server.R\")\n\n# Define theme\ntheme <- bs_theme(\n bg = \"#FFFFFF\",\n fg = \"#2C3E50\",\n primary = \"#3498DB\",\n secondary = \"#95A5A6\",\n success = \"#18BC9C\",\n base_font = \"Source Sans Pro\"\n)\n\n# Create Shiny app\nshinyApp(ui = ui, server = server)", "server.R": "source('app.R')\nlibrary(shiny)\nlibrary(dplyr)\nlibrary(DT)\nlibrary(plotly)\nlibrary(ggplot2)\n\nserver <- function(input, output, session) {\n # Reactive value to store the data\n data <- reactiveVal(NULL)\n \n # Flag for data loaded\n output$data_loaded <- reactive({\n !is.null(data())\n })\n outputOptions(output, \"data_loaded\", suspendWhenHidden = FALSE)\n \n # Load data when file is uploaded\n observeEvent(input$file, {\n req(input$file)\n df <- read.csv(input$file$datapath)\n data(df)\n \n # Update input choices\n numeric_cols <- names(df)[sapply(df, is.numeric)]\n categorical_cols <- names(df)[sapply(df, function(x) is.factor(x) || is.character(x))]\n \n updateSelectInput(session, \"x_var\", choices = numeric_cols)\n updateSelectInput(session, \"y_var\", choices = numeric_cols)\n updateSelectInput(session, \"cat_var\", choices = categorical_cols)\n })\n \n # Render data table\n output$data_table <- renderDT({\n req(data())\n datatable(data(), options = list(pageLength = 5))\n })\n \n # Render statistical summary\n output$summary_stats <- renderPrint({\n req(data())\n df_numeric <- data()[sapply(data(), is.numeric)]\n summary_stats <- data.frame(\n Variable = names(df_numeric),\n Mean = sapply(df_numeric, mean, na.rm = TRUE),\n Median = sapply(df_numeric, median, na.rm = TRUE),\n SD = sapply(df_numeric, sd, na.rm = TRUE)\n )\n print(summary_stats)\n })\n \n # Render scatter plot\n output$scatter_plot <- renderPlotly({\n req(data(), input$x_var, input$y_var)\n p <- ggplot(data(), aes_string(x = input$x_var, y = input$y_var)) +\n geom_point(alpha = 0.6) +\n theme_minimal()\n ggplotly(p)\n })\n \n # Render bar plot\n output$bar_plot <- renderPlotly({\n req(data(), input$cat_var)\n p <- ggplot(data(), aes_string(x = input$cat_var)) +\n geom_bar(fill = \"#3498DB\") +\n theme_minimal() +\n theme(axis.text.x = element_text(angle = 45, hjust = 1))\n ggplotly(p)\n })\n \n # Render histogram\n output$histogram <- renderPlotly({\n req(data(), input$x_var, input$bins)\n p <- ggplot(data(), aes_string(x = input$x_var)) +\n geom_histogram(bins = input$bins, fill = \"#3498DB\", color = \"white\") +\n theme_minimal()\n ggplotly(p)\n })\n}", "ui.R": "library(plotly)\nlibrary(shiny)\nlibrary(bslib)\nlibrary(DT)\n\nui <- page_sidebar(\n theme = theme,\n title = \"Interactive Data Viewer\",\n \n sidebar = sidebar(\n fileInput(\"file\", \"Upload CSV File\",\n accept = c(\".csv\")),\n \n conditionalPanel(\n condition = \"output.data_loaded\",\n selectInput(\"x_var\", \"X Variable\", choices = NULL),\n selectInput(\"y_var\", \"Y Variable\", choices = NULL),\n selectInput(\"cat_var\", \"Categorical Variable\", choices = NULL),\n sliderInput(\"bins\", \"Number of bins\", min = 5, max = 50, value = 30)\n )\n ),\n \n conditionalPanel(\n condition = \"output.data_loaded\",\n \n # Data Preview Section\n card(\n card_header(\"Data Preview\"),\n DTOutput(\"data_table\")\n ),\n \n # Statistical Summary Section\n card(\n card_header(\"Statistical Summary\"),\n verbatimTextOutput(\"summary_stats\")\n ),\n \n # Plots Section\n layout_column_wrap(\n width = 1/2,\n card(\n card_header(\"Scatter Plot\"),\n plotlyOutput(\"scatter_plot\")\n ),\n card(\n card_header(\"Bar Plot\"),\n plotlyOutput(\"bar_plot\")\n )\n ),\n \n card(\n card_header(\"Histogram\"),\n plotlyOutput(\"histogram\")\n )\n ),\n \n conditionalPanel(\n condition = \"!output.data_loaded\",\n card(\n card_header(\"Welcome!\"),\n card_body(\n \"Please upload a CSV file to begin analyzing your data.\"\n )\n )\n )\n)", "install.R": "install.packages('DT')\ninstall.packages('bslib')\ninstall.packages('dplyr')\ninstall.packages('ggplot2')\ninstall.packages('plotly')\ninstall.packages('shiny')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}