Tableau avec odfWeave

Bonjour à tous,

Je cherche à savoir comment définir la couleur de fond des cases de mon tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10

<<MaFonction, echo = FALSE, results=xml>>= data(iris) d <- getStyleDefs() d$noBorder$backgroundColor <- "blue" d$ArialCentered$fontSize <- "12pt" d$ArialCentered$fontColor <- "red" setStyleDefs(d) odfTable(iris) @

---

Avec cet exemple la définition des couleurs ne fonctionnent pas !

Quelqu'un aurait une idée de la provenance du problème ?

Merci d'avance.

Bonjour,
je n'ai jamais utilisé odfWeave mais il me semble avoir lu que les couleurs se définissent en hexadécimal.

De mémoire, je dirais quelque chose du style #FF0000, mais il faudrait chercher avec

Code:

---

?colorConverter

---

:roll:

J'espère ne pas avoir dit de bêtise...

Bonne journée :)

Bien vu, merci.

Effectivement j'obtiens ce que je voulais avec les codes hexadécimaux:

Code:

---

1 2 3 4 5 6 7 8 9

<<MaFonction, echo = FALSE, results=xml>>= data(iris) d <- getStyleDefs() d$noBorder$backgroundColor <- "#66FF99" d$ArialCentered$fontSize <- "12pt" setStyleDefs(d) odfTable(iris) @

---

Maintenant je souhaiterais mettre une couleur à certaines cases du tableau et non pas à l'ensemble...??

Voilà c'est trouvé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

data(iris) d <- getStyleDefs() d$noBorder$backgroundColor <- "#66FF99" d$ArialCentered$fontSize <- "12pt" setStyleDefs(d) testStyles <- tableStyles(iris) testStyles$cell[,1] <-"black" testStyles$cell[2,3] <-"black" testStyles$cell[3,3] <-"black" testStyles$cell[,4] <-"black" odfTable(iris, styles=testStyles) @

---

Reste plus qu'à trouver comment faire fonctionner la fonction odfPageBreak()...

Actuellement, le code suivant ne produit pas de saut de page :

Code:

---

1 2 3 4

<<maFonction, echo=FALSE>>= print("test") odfPageBreak() @

---

Mais dans le document de sortie s'affiche :

Code:

---

<odfWeave:pageBreak/>

---

Bonjour,
cela ne fonctionnait pas jusqu'à ce que j'installe la dernière version du package (0.7.17)!
http://cran.r-project.org/

Dites moi si c'est bien cela qui bloque svp...

Bonne journée :)

Je viens de faire la mise à jour.

Avec ce code :

Code:

---

1 2 3 4 5

<<test, echo=FALSE>>= print("test") odfPageBreak() print("test2") @

---

J'obtiens :

Code:

---

1 2 3

[1] "test" <text:p text:style-name="OdfPageBreak"/> [1] "test2"

---

J'ai le package odfWeave version 0.7.17 et je suis sur R 2.10.1

Avec la version R 2.13.1 le résultat est incohérent :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

<<test, echo=FALSE>>= print("test") odfPageBreak() print("test2") @   <<test, echo=FALSE>>= print("test") odfPageBreak() print("test2") @   <<test, echo=FALSE>>= print("test") odfPageBreak() print("test2") @   [1] "test" <text:p text:style-name="OdfPageBreak"/> [1] "test2"   <<test, echo=FALSE>>= print("test") odfPageBreak() print("test2") @   <<test, echo=FALSE>>= print("test") odfPageBreak() print("test2") @   <<test, echo=FALSE>>=<<test, echo=FALSE>>= print("test")print("test") odfPageBreak()odfPageBreak() print("test2")print("test2") @@

---

Je sèche...

Re,
j'avoue que je sèche aussi.

J'ai essayé de changer le fichier d'exemples simple.odt en introduisant (fin de la page 2):

Code:

---

1 2 3 4 5 6 7 8

(...) digits = 3, styles = newStyles) odfPageBreak() @   To process this file, you might use: (...)

---

Le fichier produit par:

Code:

---

odfWeave("C:/Users/utilisateur/Documents/R/win-library/2.10/odfWeave/examples/simple_PageBreak.odt" , "C:/Users/utilisateur/Documents/R/win-library/2.10/odfWeave/examples/simple_PageBreak.out.odt")

---

fait bien un saut de page :roll:

Cela pourrait-il venir du fait que, dans votre cas, odfPageBreak() n'est pas en fin du code?

Bonne soirée :)

J'ai effectivement fait des tests à différents endroits de simple.odt
A priori, les sauts de page fonctionnent uniquement dans les codeschunk balisés de results=xml :

Code:

---

1 2 3

<<sautDePage, echo=FALSE, results=xml>>= odfPageBreak() @

---

Problème résolu, en attendant le suivant... !

Je reviens sur la problématique des tableaux avec odfTable.

Le code suivant fonctionne très bien pour spécifier un backgroundcolor vert au tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<<MaFonction, echo = FALSE, results=xml>>= data(iris) d <- getStyleDefs() d$noBorder$backgroundColor <- "#66FF99" d$ArialCentered$fontSize <- "12pt" setStyleDefs(d) testStyles <- tableStyles(iris) testStyles$cell[,1] <-"black" testStyles$cell[2,3] <-"black" testStyles$cell[3,3] <-"black" testStyles$cell[,4] <-"black" odfTable(iris, styles=testStyles) @

---

Mais si à la suite je souhaite ajouter une fonction de réinitialisation des couleurs (dans l'optique de réaliser un autre tableau),

Code:

---

1 2 3 4 5

<<ReinitStyles, echo = FALSE, results=xml>>= stylesInit <- getStyleDefs() stylesInit$noBorder$backgroundColor <- "#FFFFFF" setStyleDefs(stylesInit) @

---

Le backgroundcolor vert du tableau disparaît.
Mystère...J'ai fait de nombreux essais, mais là je sèche !

Merci d'avance pour vos suggestions !

Finalement je crois que le plus simple reste de créer ses propres styles sous OpenOffice (ici le style CaseVerte):

Code:

---

1 2 3 4 5 6 7 8

<<MaFonction, echo = FALSE, results=xml>>= data(iris) testStyles <- tableStyles(iris) testStyles$text[,2] <-"CaseVerte" testStyles$text[1,3] <-"CaseVerte" odfTable(iris, styles=testStyles) @

---