Click to show code
<- read.csv(file.path(here(),"data/properties.csv"))
properties # show 1000 first rows of properties using reactable
# show 100 first row of cleaned dataset using reactable
reactable(head(properties, 500),
bordered = TRUE,
striped = TRUE,
highlight = TRUE,
defaultPageSize = 5,
showPageSizeOptions = TRUE,
showPagination = TRUE,
showSortable = TRUE,
)