Transmettre un rapport où l’information peut être filtrée
Rendre le dataset interactif avec la fonction suivante:
Rendre le dataset interactif avec la fonction suivante:
library(crosstalk)
library(readr)
library(dplyr)
athome <- read_csv( 'data/athome.csv')
interactif_athome <- SharedData$new(athome)
bscols(widths = c(4,4,4),
filter_slider("surface", "Surface", 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))Utiliser le dataset interactif pour les outputs :
athome.csv sans que ce soit visible