Remove duplicate stub create_server that was

overriding real implementation

R/app_server.R

@@ -369,125 +369,3 @@ create_server <- function(input, output, session) {
       )
   })
 }
-# Server logic for St. Andrews Shiny App
-
-library(shiny)
-library(shinyMobile)
-library(sf)
-library(dplyr)
-library(leaflet)
-library(DT)
-
-create_server <- function(input, output, session) {
-  
-  # Load configuration
-  source("./R/config.R", local = TRUE)
-  
-  # Load owners data
-  owners_data <- reactive({
-    req(app_config$data_paths$owners)
-    data <- readRDS(app_config$data_paths$owners)
-    return(data)
-  })
-  
-  # Get last sale date
-  last_sale_date <- reactive({
-    owners <- owners_data()
-    date <- attr(owners, "last_sale_date")
-    if (is.null(date)) {
-      return(Sys.Date())
-    }
-    return(date)
-  })
-  
-  # Display last sale date
-  output$last_sale_date_display <- renderText({
-    date <- last_sale_date()
-    paste("Last sale date:", format(date, "%B %d, %Y"))
-  })
-  
-  # More server logic for the map, table, etc. would go here
-  # For now, I'll add placeholders for the outputs referenced in the UI
-  
-  # Map output
-  output$map <- renderLeaflet({
-    leaflet() %>%
-      addTiles() %>%
-      setView(lng = -82.4, lat = 27.1, zoom = 12)
-  })
-  
-  # Table output
-  output$table <- renderDT({
-    datatable(data.frame(Note = "Owner data would be displayed here"))
-  })
-  
-  # Listings map
-  output$listings_map <- renderLeaflet({
-    leaflet() %>%
-      addTiles() %>%
-      setView(lng = -82.4, lat = 27.1, zoom = 12)
-  })
-  
-  # Listings table
-  output$listings_table <- renderDT({
-    datatable(data.frame(Note = "Active listings would be displayed here"))
-  })
-  
-  # Sales map
-  output$sales_map <- renderLeaflet({
-    leaflet() %>%
-      addTiles() %>%
-      setView(lng = -82.4, lat = 27.1, zoom = 12)
-  })
-  
-  # Sales table
-  output$sales_table <- renderDT({
-    datatable(data.frame(Note = "Recent sales would be displayed here"))
-  })
-  
-  # Resources content
-  output$resources_content <- renderUI({
-    f7Card(
-      title = "Community Resources",
-      "Links and documents will be displayed here."
-    )
-  })
-  
-  # Download handlers
-  output$download_filtered <- downloadHandler(
-    filename = function() {
-      paste("owners-filtered-", Sys.Date(), ".csv", sep = "")
-    },
-    content = function(file) {
-      write.csv(data.frame(Note = "Filtered owner data"), file)
-    }
-  )
-  
-  output$download_all <- downloadHandler(
-    filename = function() {
-      paste("owners-all-", Sys.Date(), ".csv", sep = "")
-    },
-    content = function(file) {
-      write.csv(data.frame(Note = "All owner data"), file)
-    }
-  )
-  
-  # Button observers for resources tab
-  observeEvent(input$res_beaches, {
-    f7Dialog(
-      title = "Beaches",
-      text = "Beach information would be displayed here."
-    )
-  })
-  
-  observeEvent(input$res_links, {
-    f7Dialog(
-      title = "Links",
-      text = "Community links would be displayed here."
-    )
-  })
-  
-  observeEvent(input$res_restart, {
-    session$reload()
-  })
-}