library(data.table)
setnames(encounter,c("id_visite", "id_patient", "nda", "statut_vital", "age_visite_annee", "age_visite_jour", "age_visite_mois", "date_debut_visite", "date_fin_visite", "duree_visite_jour", "statut_visite", "type_visite","source"))
file_name <- "visite"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.