DataTable

library(readr)
library(DT)

properties_data <- read_csv("properties_data.csv")

datatable(properties_data, filter = 'top',class = 'cell-border stripe')