{"app.R": "library(shiny)\nlibrary(bslib)\nlibrary(arules)\nlibrary(arulesViz)\nlibrary(tidyverse)\nlibrary(DT)\n\nsource(\"ui.R\")\nsource(\"server.R\")\nsource(\"data.R\")\n\nshinyApp(ui = ui, server = server)", "data.R": "# Generate sample transaction data\ngenerate_transaction_data <- function(n_transactions = 1000) {\n # List of possible items\n items <- c('bread', 'milk', 'eggs', 'cheese', 'butter', \n 'yogurt', 'meat', 'fish', 'vegetables', 'fruit', \n 'coffee', 'tea', 'juice', 'soda', 'snacks')\n \n # Generate transactions\n transactions <- lapply(1:n_transactions, function(i) {\n # Random number of items per transaction (1-5 items)\n n_items <- sample(1:5, 1)\n # Randomly select items\n sample(items, n_items)\n })\n \n # Convert to transactions class\n trans <- as(transactions, 'transactions')\n return(trans)\n}\n\n# Generate sample data\nsample_transactions <- generate_transaction_data()", "server.R": "source('data.R')\nlibrary(shiny)\nlibrary(arules)\nlibrary(arulesViz)\n\nserver <- function(input, output, session) {\n \n # Reactive value to store rules\n rules <- eventReactive(input$analyze, {\n # Generate rules\n apriori(sample_transactions,\n parameter = list(\n support = input$support,\n confidence = input$confidence,\n minlen = 2\n ))\n })\n \n # Display rules in table\n output$rules_table <- DT::renderDataTable({\n req(rules())\n rules_df <- DATAFRAME(rules())\n rules_df <- rules_df[, c('lhs', 'rhs', 'support', 'confidence', 'lift')]\n DT::datatable(rules_df,\n options = list(pageLength = 10),\n rownames = FALSE)\n })\n \n # Visualize rules\n output$rules_plot <- renderPlot({\n req(rules())\n plot(rules(),\n method = input$plot_type,\n control = list(main = paste('Association Rules -', input$plot_type)))\n })\n \n # Summary output\n output$summary <- renderPrint({\n req(rules())\n summary(rules())\n })\n}\n", "ui.R": "library(shiny)\nlibrary(bslib)\nlibrary(DT)\n\nui <- page_sidebar(\n title = 'Market Basket Analysis Dashboard',\n theme = bs_theme(version = 5, bootswatch = 'flatly'),\n \n sidebar = sidebar(\n title = 'Analysis Parameters',\n \n # Parameters for analysis\n sliderInput('support',\n 'Minimum Support:',\n min = 0.001,\n max = 0.1,\n value = 0.01,\n step = 0.001),\n \n sliderInput('confidence',\n 'Minimum Confidence:',\n min = 0.1,\n max = 1,\n value = 0.5,\n step = 0.1),\n \n selectInput('plot_type',\n 'Visualization Type:',\n choices = c('Graph', 'Matrix', 'Grouped Matrix'),\n selected = 'Graph'),\n \n actionButton('analyze', 'Run Analysis', class = 'btn-primary')\n ),\n \n layout_column_wrap(\n width = 1/2,\n heights_equal = 'row',\n \n card(\n card_header('Association Rules'),\n DT::dataTableOutput('rules_table')\n ),\n \n card(\n card_header('Rules Visualization'),\n plotOutput('rules_plot', height = '600px')\n )\n ),\n \n card(\n card_header('Summary Statistics'),\n verbatimTextOutput('summary')\n )\n)", "install.R": "install.packages('DT')\ninstall.packages('arules')\ninstall.packages('arulesViz')\ninstall.packages('bslib')\ninstall.packages('shiny')\ninstall.packages('tidyverse')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}