{"app.R": "library(shiny)\nlibrary(ggplot2)\n\nsource(\"ui.R\")\nsource(\"server.R\")\n\nshinyApp(ui = ui, server = server)", "server.R": "library(shiny)\nlibrary(ggplot2)\n\nserver <- function(input, output) {\n \n calculate_growth <- function(monthly_contribution, years, return_rate) {\n months <- years * 12\n monthly_rate <- return_rate / 100 / 12\n \n balance <- numeric(months + 1)\n balance[1] <- monthly_contribution\n \n for(i in 2:(months + 1)) {\n balance[i] <- balance[i-1] * (1 + monthly_rate) + monthly_contribution\n }\n \n data.frame(\n Month = 0:months,\n Balance = balance,\n Year = (0:months) / 12\n )\n }\n \n output$growth_plot <- renderPlot({\n growth_data <- calculate_growth(\n input$monthly_contribution,\n input$years,\n input$return_rate\n )\n \n ggplot(growth_data, aes(x = Year, y = Balance)) +\n geom_line(color = \"#2c3e50\", size = 1) +\n scale_y_continuous(labels = scales::dollar_format()) +\n labs(\n title = \"Investment Growth Over Time\",\n x = \"Years\",\n y = \"Account Balance ($)\"\n ) +\n theme_minimal() +\n theme(\n plot.title = element_text(hjust = 0.5),\n text = element_text(size = 12)\n )\n })\n}", "ui.R": "library(shiny)\n\nui <- fluidPage(\n titlePanel(\"Compound Interest Calculator\"),\n \n sidebarLayout(\n sidebarPanel(\n numericInput(\"monthly_contribution\",\n \"Monthly Contribution ($)\",\n value = 500,\n min = 0,\n max = 10000),\n \n numericInput(\"years\",\n \"Investment Period (Years)\",\n value = 10,\n min = 1,\n max = 50),\n \n sliderInput(\"return_rate\",\n \"Annual Return Rate (%)\",\n min = 5,\n max = 10,\n value = 7,\n step = 0.1)\n ),\n \n mainPanel(\n plotOutput(\"growth_plot\")\n )\n )\n)", "install.R": "install.packages('ggplot2')\ninstall.packages('shiny')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}