{"app.R": "library(shiny)\nlibrary(shinydashboard)\nlibrary(DT)\nlibrary(dplyr)\nlibrary(MASS)\n\nsource(\"ui.R\")\nsource(\"server.R\")\n\nshinyApp(ui = ui, server = server)", "ui.R": "# UI definition\nheader <- dashboardHeader(\n title = 'Boston Housing Analysis',\n tags$li(\n class = 'dropdown',\n tags$img(\n src = 'logo.png',\n height = '30px',\n style = 'margin: 10px;'\n )\n )\n)\n\nsidebar <- dashboardSidebar(\n sidebarMenu(\n menuItem('Overview', tabName = 'overview', icon = icon('dashboard')),\n menuItem('Price Analysis', tabName = 'price', icon = icon('dollar-sign')),\n menuItem('Crime Statistics', tabName = 'crime', icon = icon('shield-alt')),\n menuItem('Environmental', tabName = 'environment', icon = icon('tree'))\n )\n)\n\nbody <- dashboardBody(\n tabItems(\n tabItem(\n tabName = 'overview',\n fluidRow(\n box(\n title = 'Filters',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n column(4, sliderInput('rm_filter', 'Number of Rooms:', min = 3, max = 9, value = c(3, 9))),\n column(4, sliderInput('price_filter', 'House Price (000s):', min = 5, max = 50, value = c(5, 50))),\n column(4, sliderInput('tax_filter', 'Tax Rate:', min = 100, max = 800, value = c(100, 800)))\n )\n ),\n fluidRow(\n box(\n title = 'Overview Data',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n DTOutput('overview_table')\n )\n )\n ),\n tabItem(\n tabName = 'price',\n fluidRow(\n box(\n title = 'Price Analysis Filters',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n column(6, selectInput('price_range', 'Price Range:', \n choices = c('Low (< 20k)', 'Medium (20k-35k)', 'High (> 35k)'),\n selected = 'Medium (20k-35k)')),\n column(6, checkboxGroupInput('price_features', 'Include Features:',\n choices = c('Rooms', 'Crime Rate', 'Age', 'Tax Rate'),\n selected = c('Rooms', 'Crime Rate')))\n )\n ),\n fluidRow(\n box(\n title = 'Price Analysis Data',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n DTOutput('price_table')\n )\n )\n ),\n tabItem(\n tabName = 'crime',\n fluidRow(\n box(\n title = 'Crime Statistics Filters',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n column(6, sliderInput('crime_filter', 'Crime Rate:', min = 0, max = 1, value = c(0, 1))),\n column(6, selectInput('crime_sort', 'Sort By:',\n choices = c('Crime Rate (High to Low)', 'Crime Rate (Low to High)'),\n selected = 'Crime Rate (High to Low)'))\n )\n ),\n fluidRow(\n box(\n title = 'Crime Statistics Data',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n DTOutput('crime_table')\n )\n )\n ),\n tabItem(\n tabName = 'environment',\n fluidRow(\n box(\n title = 'Environmental Filters',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n column(4, sliderInput('nox_filter', 'NOx Concentration:', min = 0, max = 1, value = c(0, 1))),\n column(4, checkboxInput('river_filter', 'Near Charles River', FALSE)),\n column(4, sliderInput('age_filter', 'Building Age:', min = 0, max = 100, value = c(0, 100)))\n )\n ),\n fluidRow(\n box(\n title = 'Environmental Data',\n status = 'primary',\n solidHeader = TRUE,\n width = 12,\n DTOutput('environment_table')\n )\n )\n )\n )\n)\n\nui <- dashboardPage(header, sidebar, body)", "server.R": "# Server logic\nserver <- function(input, output) {\n \n # Load and prepare data\n data <- reactive({\n Boston\n })\n \n # Overview tab\n output$overview_table <- renderDT({\n df <- data() %>%\n filter(\n rm >= input$rm_filter[1] & rm <= input$rm_filter[2],\n medv >= input$price_filter[1] & medv <= input$price_filter[2],\n tax >= input$tax_filter[1] & tax <= input$tax_filter[2]\n ) %>%\n select(medv, rm, crim, tax, age, nox)\n \n datatable(df,\n colnames = c('Price (000s)', 'Rooms', 'Crime Rate', 'Tax Rate', 'Age', 'NOx'),\n options = list(pageLength = 10)\n )\n })\n \n # Price Analysis tab\n output$price_table <- renderDT({\n price_range <- switch(input$price_range,\n 'Low (< 20k)' = c(0, 20),\n 'Medium (20k-35k)' = c(20, 35),\n 'High (> 35k)' = c(35, Inf)\n )\n \n features <- c('medv')\n if ('Rooms' %in% input$price_features) features <- c(features, 'rm')\n if ('Crime Rate' %in% input$price_features) features <- c(features, 'crim')\n if ('Age' %in% input$price_features) features <- c(features, 'age')\n if ('Tax Rate' %in% input$price_features) features <- c(features, 'tax')\n \n df <- data() %>%\n filter(medv >= price_range[1], medv <= price_range[2]) %>%\n select(all_of(features))\n \n datatable(df, options = list(pageLength = 10))\n })\n \n # Crime Statistics tab\n output$crime_table <- renderDT({\n df <- data() %>%\n filter(crim >= input$crime_filter[1], crim <= input$crime_filter[2]) %>%\n select(crim, medv, rm, tax, age) %>%\n arrange(if(input$crime_sort == 'Crime Rate (High to Low)') desc(crim) else crim)\n \n datatable(df,\n colnames = c('Crime Rate', 'Price (000s)', 'Rooms', 'Tax Rate', 'Age'),\n options = list(pageLength = 10)\n )\n })\n \n # Environmental tab\n output$environment_table <- renderDT({\n df <- data() %>%\n filter(\n nox >= input$nox_filter[1] & nox <= input$nox_filter[2],\n age >= input$age_filter[1] & age <= input$age_filter[2]\n )\n \n if(input$river_filter) {\n df <- df %>% filter(chas == 1)\n }\n \n df %>%\n select(nox, age, chas, medv, rm) %>%\n datatable(\n colnames = c('NOx', 'Age', 'River Location', 'Price (000s)', 'Rooms'),\n options = list(pageLength = 10)\n )\n })\n}", "www/logo.png": "# A placeholder logo file should be added to the www directory"}