library(swiplr)
```{prolog database}
label(, header(1), "fr-FR", "Colonne une"). label(, row(1), "fr-FR", "Ligne une"). label(_, root, "fr-FR", "Document principale").
tr(Code, Fr) :- (label(, Code, "fr-FR", Fr) -> label(, Code, "fr-FR", Fr) ; Code = Fr ) .
cell_fr(Quoi, Entete, Ligne, Valeur) :- cell(What_, Header_, Row_, Value_), tr(What_, Quoi), tr(Header_, Entete), tr(Row_, Ligne), tr(Value_, Valeur) .
cell(root, header(1), row(1), 44). cell(root, header(12), row(25), 55). cell(root, header(10), row(1), 44). cell(root, header(10), row(25), 55). cell(root, header(4), row(1), 44). cell(root, header(10), row(5), 55).
?- cell(What, Header, Row, Value) ?- cell_fr(What, Header, Row, Value) ?- cell(What_, Header_, Row_, Value_), tr(What_, Quoi), tr(Header_, Entete), tr(Row_, Ligne), tr(Value_, Valeur)
```r swiplr::table_query(.swiplr_chunks$database, query = "cell_fr(root, COLUMN_HEADER, ENTITY, CELL)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.