knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(magrittr) library(dplyr) library(tibble) library(tidyr) library(gt) library(CheckOfTable)
Le tableau test ci-dessous possède 7 lignes et 5 colonnes.
Deux colonnes nom
et b
sont du type chaîne de caractère tandis que les autres sont du type numérique.
table_test<- tibble(nom=paste0("ind_",1:7), a=c(1:5,NA,-2), b=letters[1:7], c=c(-12,0,1,2:4,-2), d=c(10,20,25,30,35,36,37) ) ## table_test %>% gt() %>% tab_header( title = md("Tableau test") ) %>% tab_options(column_labels.background.color ="#275662" )
{CheckOfTable}
fcot_table(data=table_test,table_orig = "tableau test")
fcot_colnames(table_test,noms_colonnes = c("nom","a","b","c","d"),table_orig = "table test")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.