{"app.R": "library(shiny)\nlibrary(bslib)\nlibrary(ggplot2)\n\nsource(\"ui.R\")\nsource(\"server.R\")\nsource(\"data.R\")\n\nshinyApp(ui = ui, server = server)", "data.R": "# Mock database of roads\nget_similar_roads <- function(search_term) {\n # This is a mock function that would normally query a real database\n # Instead, we'll return some sample data\n \n # Create a sample dataset of 5 roads with random coordinates\n set.seed(123) # For reproducibility\n \n # Base coordinates (roughly centered in North America)\n base_lat <- 40\n base_lon <- -100\n \n # Sample road names based on the search term\n search_term <- tolower(gsub(\"street|road|avenue|st|rd|ave\", \"\", search_term))\n search_term <- trimws(search_term)\n \n # Generate similar names\n prefixes <- c(\"New\", \"Old\", \"West\", \"East\", \"North\")\n suffixes <- c(\"Street\", \"Road\", \"Avenue\", \"Boulevard\", \"Lane\")\n \n names <- character(5)\n for(i in 1:5) {\n names[i] <- paste(\n sample(prefixes, 1),\n tools::toTitleCase(search_term),\n sample(suffixes, 1)\n )\n }\n \n # Create the data frame\n data.frame(\n name = names,\n latitude = base_lat + rnorm(5, 0, 2),\n longitude = base_lon + rnorm(5, 0, 2),\n latitude_end = base_lat + rnorm(5, 0, 2),\n longitude_end = base_lon + rnorm(5, 0, 2)\n )\n}", "server.R": "source('data.R')\nlibrary(shiny)\nlibrary(ggplot2)\n\nserver <- function(input, output, session) {\n \n similar_roads <- eventReactive(input$find_btn, {\n # Get sample roads from our mock database\n get_similar_roads(input$street_name)\n })\n \n output$road_plot <- renderPlot({\n req(similar_roads())\n roads_data <- similar_roads()\n \n ggplot(roads_data, aes(x = longitude, y = latitude)) +\n geom_segment(\n aes(xend = longitude_end, yend = latitude_end),\n color = \"#FF6B6B\",\n size = 1.5,\n alpha = 0.8\n ) +\n geom_text(\n aes(label = name),\n check_overlap = TRUE,\n nudge_y = 0.02,\n color = \"white\",\n size = 4\n ) +\n theme_minimal() +\n theme(\n plot.background = element_rect(fill = \"#1a1a1a\"),\n panel.background = element_rect(fill = \"#1a1a1a\"),\n text = element_text(color = \"white\"),\n panel.grid = element_line(color = \"#333333\"),\n axis.text = element_text(color = \"#CCCCCC\")\n ) +\n labs(\n title = \"Similar Road Segments\",\n x = \"Longitude\",\n y = \"Latitude\"\n )\n })\n \n output$results_text <- renderText({\n req(similar_roads())\n paste(\"Found\", nrow(similar_roads()), \"similar roads\")\n })\n}", "ui.R": "library(shiny)\nlibrary(bslib)\n\nui <- page_navbar(\n title = \"Road Explorer\",\n theme = bs_theme(\n bg = \"#1a1a1a\",\n fg = \"#FFFFFF\",\n primary = \"#FF6B6B\",\n base_font = font_google(\"Roboto\"),\n heading_font = font_google(\"Oswald\")\n ),\n \n nav_panel(\n title = \"Search\",\n layout_column_wrap(\n width = 1,\n height = \"100%\",\n class = \"mt-3\",\n card(\n full_screen = TRUE,\n height = \"500px\",\n card_header(\"Find Similar Roads\"),\n card_body(\n style = \"background-image: url('https://images.unsplash.com/photo-1506354666786-959d6d497f1a?ixlib=rb-4.0.3'); \n background-size: cover; \n background-position: center;\n position: relative;\",\n div(\n style = \"position: absolute; \n top: 50%; \n left: 50%; \n transform: translate(-50%, -50%); \n background: rgba(0,0,0,0.7);\n padding: 2rem;\n border-radius: 10px;\n width: 80%;\n max-width: 500px;\",\n textInput(\n \"street_name\",\n \"Enter a street name:\",\n placeholder = \"e.g., Main Street\",\n width = \"100%\"\n ),\n br(),\n actionButton(\n \"find_btn\",\n \"Find Similar Roads\",\n class = \"btn-lg btn-primary w-100\",\n icon = icon(\"search\")\n )\n )\n )\n ),\n \n card(\n full_screen = TRUE,\n height = \"500px\",\n card_header(\"Similar Roads Found\"),\n card_body(\n plotOutput(\"road_plot\", height = \"100%\")\n ),\n card_footer(\n textOutput(\"results_text\")\n )\n )\n )\n )\n)", "install.R": "install.packages('bslib')\ninstall.packages('ggplot2')\ninstall.packages('shiny')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}