Crosstalk example

Différents filtres

library(crosstalk)
library(readr)
library(dplyr)

athome <- read_csv( 'data/athome.csv') %>% 
  filter(!is.na(surface) & type_bien %in% c('appartement', 'maison') & !type_bien_dtl == 'villa' & surface<500)


# Rendre le dataset interactif
interactif_athome <- SharedData$new(athome) 

# bscols pour la mise en page
bscols(widths = c(4,4,4),
filter_slider("surface", "Surface (m2)", interactif_athome, column=~surface, step=5),
filter_select("ville", "Ville", interactif_athome, group=~ville),
filter_checkbox("type_annonce", "Type d'annonce", interactif_athome, group=~type_annonce)
)

Surface (m2)

Ville

Type d'annonce

location

vente