Basic DataTable
show with app 
library(shiny)

data = read.csv('myroadlessNZ.csv', header = TRUE)

shinyServer(function(input, output) {
  
  output$table <- renderDataTable({
    
    if (input$incontinent != "All"){
      data <- data[data$incontinent == input$incontinent,]
    }
    
    if (input$within1mile != "All"){
      data <- data[data$within1mile == input$within1mile,]
    }
    
    data
  })
  
})
  
library(shiny)

nsamp = 20
long = -runif(nsamp, min=-179, max=-168)
lat = runif(nsamp,min=-47,max=-34)

# students would populate the incontinent and within1mile columns
data = data.frame(sample=1:nsamp, 
	latitude=round(lat, 4),longitude=round(long, 4),
	incontinent=sample(c('Y', 'N'), nsamp, replace = TRUE),
	within1mile=sample(c('Y', 'N'), nsamp, replace = TRUE))
	
write.csv(data, 'myroadlessNZ.csv', row.names = FALSE)

shinyUI(
  fluidPage(
  
    titlePanel("Basic DataTable"),
          
    # Create a new Row in the UI for selectInputs
    fluidRow(
      column(4, 
          selectInput("incontinent", 
                      "In Continent?", 
                      c("All", 
                        unique(as.character(data$incontinent))))
      ),
      column(4, 
          selectInput("within1mile", 
                      "Within 1 Mile?", 
                      c("All", 
                        unique(as.character(data$within1mile))))
      )       
    ),
    # Create a new row for the table.
    fluidRow(
      dataTableOutput(outputId="table")
    )    
  )  
)