{"app.R": "library(shiny)\nlibrary(readxl)\nlibrary(pROC)\nlibrary(ggplot2)\n\nsource(\"ui.R\")\nsource(\"server.R\")\n\nshinyApp(ui = ui, server = server)", "server.R": "library(ggplot2)\nlibrary(shiny)\n\nserver <- function(input, output, session) {\n # Reactive value to store the dataset\n data <- reactiveVal()\n \n # Update column choices when file is uploaded\n observeEvent(input$file, {\n req(input$file)\n df <- read_excel(input$file$datapath)\n data(df)\n \n updateSelectInput(session, \"pred_col\",\n choices = names(df)\n )\n updateSelectInput(session, \"actual_col\",\n choices = names(df)\n )\n })\n \n # Generate ROC curve and AUC value\n observeEvent(input$analyze, {\n req(data(), input$pred_col, input$actual_col)\n \n df <- data()\n pred <- df[[input$pred_col]]\n actual <- df[[input$actual_col]]\n \n # Create ROC object\n roc_obj <- roc(actual, pred)\n \n # Plot ROC curve\n output$roc_plot <- renderPlot({\n ggplot() +\n geom_path(aes(x = 1 - roc_obj$specificities,\n y = roc_obj$sensitivities)) +\n geom_abline(intercept = 0, slope = 1, linetype = \"dashed\", color = \"gray\") +\n labs(x = \"False Positive Rate (1 - Specificity)\",\n y = \"True Positive Rate (Sensitivity)\",\n title = \"ROC Curve\") +\n theme_minimal()\n })\n \n # Display AUC value\n output$auc_value <- renderText({\n paste(\"Area Under the Curve (AUC):\", round(auc(roc_obj), 3))\n })\n })\n}", "ui.R": "library(shiny)\n\nui <- fluidPage(\n titlePanel(\"AUC Curve Analysis\"),\n \n sidebarLayout(\n sidebarPanel(\n fileInput(\"file\", \"Choose Excel File\",\n accept = c(\".xls\", \".xlsx\")\n ),\n selectInput(\"pred_col\", \"Select Predictor Column\", choices = NULL),\n selectInput(\"actual_col\", \"Select Actual Values Column\", choices = NULL),\n actionButton(\"analyze\", \"Generate AUC Curve\")\n ),\n \n mainPanel(\n plotOutput(\"roc_plot\"),\n verbatimTextOutput(\"auc_value\")\n )\n )\n)", "install.R": "install.packages('ggplot2')\ninstall.packages('pROC')\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"}