wget http://www.ubuntu-fr.org/telechargement?action=dl

wget -c http://www.ubuntu-fr.org/telechargement?action=dl

wget --background -c http://www.ubuntu-fr.org/telechargement?action=dl

scp fichier_origine copie_destination

scp image.png akassambara@85.123.10.201:~/images/

scp -r mon_dossier akassambara@85.123.10.201:~/images/

 
scp akassambara@85.123.10.201:image.png copie_image_sur_mon_pc.png
#Copier le fichier sans  changer le nom :
scp akassambara21@85.123.10.201:image.png 
 

scp -P 16296 akassambara@85.123.10.201:image.png .

 
#Connexion au serveur debian
ftp ftp.debian.org
ls #Afficher le contenu du repertoire 
pwd #chemin du r?pertoire actuel
cd # Changer de r?pertoire
 

ftp get README 

 ftp> !pwd # Pour savoir dans quel dossier vous ?tes chez vous

sftp login@ip

C'est une sorte de scp intelligent : il compare et analyse les diff?rences entre deux dossiers puis copie uniquement les changements.

 
rsync -arv --delete Images/ backups/
 

 
 rsync -arv --delete --backup --backup-dir=~/kass/backups_supprimes Images/ backups/
 

 
rsync -arv --delete --backup --backup-dir=/home/kassambara/fichiers_supprimes Images/ mateo21@IP_du_serveur:mes_backups/
 

 
rsync -arv --delete --backup --backup-dir=/home/kass/fichiers_supprimes Images/ kass@IP_du_serveur:mes_backups/ -e "ssh -p 12473"
 

 
free -tg
 

 
df -h
 

 
lsb_release -a
 

 
uname -a
 

 
grep 'model name' /proc/cpuinfo | wc -l
 

 
date #Affiche la date
ls #Liste les fichiers et dossiers du r?pertoire actuel 
ls -a #Affiche tout le contenu du dossier, m?me les fichiers cach?s
ls Examples #Affiche le contenu du dossier Examples
clear #Efface le contenu de la console
pwd #Affiche le r?pertoire courant
 

 
pwd #renvoie le r?pertoire courant
which mysql #Renvoie l'emplacement du programme mysql (/usr/bin/mysql)
which pwd #Renvoie l'emplacement de la commande pwd (/bin/pwd)
 

 
ls #Affiche la liste des fichiers et dossier du r?pertoire courant
ls -a #Afficher tous les fichiers et dossiers cach?s
ls -F #Rajoute ? la fin des ?l?ments un symbole pour qu'on puisse faire la distinction entre les dossiers, fichiers
ls -l #Liste d?taill?e (droits, nombre de liens physiques, propri?taire, groupe, taille en octets, date de derni?re modification, nom du fichier ou dossier)
ls -lh #Liste d?taill?e avec la taille indiqu?e en Ko, Mo, Go. (NB: h=human readable)
ls -lt #Trier par date de derni?re modification
 

ls -larth #contient toutes les options que j'aime

 
cd / #Aller ? la racine
cd usr/games #Aller dans le dossier games
cd .. #Revenir au dossier pr?c?dent (usr)
cd ../.. #Permet de reculer de deux dossiers parents
cd ~ #Retour au r?pertoire parent 
 

 
cd  #on se place dans le r?pertoire home
du #Affiche la taille en octets des dossiers (uniquement) du r?pertoire actuel
du -h #taille pour les humains (en Ko, Mo, Go)
du -a #Affiche la taille des dossiers ET des fichiers
du -sh #Affiche la taille totale occup?e par le dossier actuel.
 

 
cd /var/log #on se place dans le dossier log
ls #affiche le contenu du dossier log
cat syslog #Affiche tout le contenu du fichier  syslog dans la console d'un coup
cat -n syslog #Affiche le contenu du fichier en indiquant le num?ro de ligne
 

 
less syslog
 

 
cd /var/log #on se place dans le dossier log
head syslog #Affiche juste les premi?res lignes du fichier. Ne permet pas de se d?placer dans le fichier comme less
head -n 3 syslog #Affiche les 3 premi?res lignes du fichier
tail syslog #affiche les derni?res lignes du fichier
tail -n 3 #Affiche les 3 derni?res lignes du fichier
 

tail -f syslog

 
cd # on se place dans le home
touch fichier1.txt # cr?ation du fichier 1
touch fichier1.txt fichier2.txt #Cr?ation de deux fichiers en m?me temps
touch "mon fichier.txt" # le nom du fichier contient des espaces
mkdir dossier1.txt #cr?ation du dossier
mkdir dossier1.txt dossier2.txt #Cr?ation de deux dossiers en m?me temps
mkdir -p animaux/vertebres/chat # Le param?tre -p sert ? cr?er des dossiers interm?diaires (animaux puis vertebres dans animaux, puis chat dans vertebres). 
 

 
#copier dans le m?me dossier
cp fichier1.txt fichier1_copie.txt # param?tre 1: nom du fichier ? copier; param?tre 2: nom de la copie
#copier dans un autre dossier
cp fichier1.txt mondossier/ #fichier1.txt est copier vers "mondossier" sous le m?me nom
cp fichier1.txt mondossier/fichier2.txt # fichier1.txt est copier vers "mondossier" sous le nom fichier2.txt
 

 
#Avec l'option -R, vous pouvez copier un dossier, ainsi que tous les sous-dossiers et fichiers qu'il contient !
cp -R dossier1 dossier2 #dossier1 est copi? sous le nom dossier2
 

 
cp *.jpg mondossier/ # Copier tous les fichiers image .jpg dans un sous-dossier
cp so* mondossier/ #Copier tous les fichiers dont le nom commence par ? so ?
 

 
mv fichier1.txt fichier2.txt #renommer un fichier
mv fichier1.txt mondossier/ #fichier1.txt est d?placer vers un sous-dossier
mv fichier1.txt mondossier/fichier2.txt # fichier1.txt est d?placer dans le sous-dossier avec changement de nom
mv *.jpg mondossier/ #d?place tous les fichiers image .jpg dans un sous-dossier
 

 
rm fichier1.txt # supprime le fichier
rm fichier1.txt fichier2.txt # supprime plusieurs fichiers en m?me temps
rm -i fichier1.txt # Demande une confirmation lors de la suppression
rm -f fichier1.txt # Force la suppression quoi qu'il arrive
rm -v fichier1.txt # Verbose (parle beaucoup), montre l'avancement
rm -r dossier/ #supprime un dossier et son contenu
rm -rf * #supprime tous les fichiers et sous-dossiers du dossier dans lequel je me trouve
 

 
ln -s fichier1.txt fichier2.txt #fichier 2 repr?sente un raccourci de fichier 1
 

 
sudo ls #ex?cuter une commande en tant que root
sudo su #devenir root et le rester
 

 
adduser patrick #ajout de l'utilisateur patrick; le mot de pass vous sera demand?
passwd patrick #changer le mot de passe de patrick
deluser patrick #supprime l'utilisateur patrick sans confirmation
deluser --remove-home patrick# supprime le repertoire personnel de patrick
 

 
addgroup amis #ajouter un groupe d'utilisateur
usermod -g amis patrick #ajouter patrick dans le groupe amis
usermod -g patrick patrick #remettre patrick dans le groupe patrick comme il l'?tait avant
delgroup amis # supprime le groupe amis
 

 
chown patrick rapport.txt #patrick devient le propri?taire du fichier
chgrp amis rapport.txt #changer le groupe propri?taire d'un fichier
#chown peut aussi changer le groupe propri?taire d'un fichier
chown patrick:amis rapport.txt #Cela affectera le fichier ? l'utilisateur patrick et au groupe amis.
#-R : affecter r?cursivement les sous-dossiers
#donner tout le contenu du dossier personnel de patrick ? mateo21 (et au groupe mateo21)
chown -R mateo21:mateo21 /home/patrick/
 

 
mateo21@mateo21-desktop:~$ ls -l
total 40
drwxr-xr-x 2 mateo21 mateo21 4096 2007-11-13 21:53 Desktop
drwxr-xr-x 2 mateo21 mateo21 4096 2007-11-13 13:46 Documents
 

 
chmod 600 rapport.txt
 

 
chmod g+w rapport.txt # Ajouter le droit d'?criture au groupe
chmod o-r rapport.txt #Enlever le droit de lecture aux autres
chmod g+w,o-w rapport.txt #Ajouter le droit d'?criture au groupe et l'enlever aux autres
chmod go-r rapport.txt #Enlever le droit de lecture au groupe et aux autres 
chmod +x rapport.txt #Ajouter le droit d'ex?cution ? tout le monde
chmod u=rwx,g=r,o=- rapport.txt #Affecter tous les droits au propri?taire, juste la lecture au groupe, rien aux autres
 

 
chmod -R 700 /home/mateo21
 

nano

 
nano salut.txt #ouvre le fichier
 

nano -miA salut.txt

 
nano .nanorc # cr?ation du fichier
set mouse #Activation de la souris
set autoindent #Pour ?viter d'avoir ? taper -i. Indentation automatique.
set smarthome #Pour ?viter d'avoir ? taper -A. Retour ? la ligne intelligent
 

 
## Nanorc files
# include "/usr/share/nano/nanorc.nanorc"
## C/C++
# include "/usr/share/nano/c.nanorc"
## HTML
# include "/usr/share/nano/html.nanorc"
 

sudo nano /etc/apt/sources.list

 
#Installation
apt-get update #(optionnel) : pour mettre notre cache ? jour si ce n'est pas d?j? fait ;
apt-cache search monpaquet #(optionnel) : pour rechercher le paquet que nous voulons t?l?charger si nous ne connaissons pas son nom exact ;
apt-get install monpaquet # pour t?l?charger et installer notre paquet.
#d?sinstallation
apt-get remove monpaquet #desinstalle un paquet
apt-get autoremove  monpaquet #desinstalle mon paquet ainsi que les d?pendances devenues inutiles.
#mise ? jour
apt-get upgrade #met ? jour tous les paquets install?s
 

 
man mkdir #Affiche le manuel d'une commande
apropos sound #Rechercher toutes les commandes qui parlent de son
 

locate monfichier.txt #recherche rapide

 
source("https://www.sthda.com/french/upload/r2xlsx.r")
 

 
source("https://www.sthda.com/french/upload/r2xlsx.r")
 
#create an Excel workbook. Both .xls and .xlsx file formats can be used.
filename <- "Example1.xlsx"
wb <- createWorkbook(type="xlsx")
#Create a sheet in that workbook to contain the table
sheet <- createSheet(wb, sheetName = "example1")
 
#Add header
#+++++++++++++++++++++++++++++++
xlsx.addHeader(wb, sheet, value="Add table",level=1, color="black", underline=1)
xlsx.addLineBreak(sheet, 1)
 
#Add Text :Author
#+++++++++++++++++++++++++++++++
xlsx.addText(wb, sheet, 
             value="Author : Alboukadel KASSAMBARA. \n@:alboukadel.kassambara@gmail.com.\n Website : http://ww.sthda.com",
             isItalic=TRUE, colSpan=5, rowSpan=3, fontColor="darkgray", fontSize=14)
xlsx.addLineBreak(sheet, 3)
 
#Add table
#+++++++++++++++++++++++++++++++
xlsx.addTable(wb, sheet, head(iris), startCol=2)
xlsx.addLineBreak(sheet, 2)
 
#saving a workbook to an Excel file and writes the file to disk.
saveWorkbook(wb, filename)
 
#View the file
xlsx.openFile(filename)
 
 

 
#......
#Don't forget to create a workbook and a sheet as previously
#......
#Header
#**************************************
#header level 1
xlsx.addHeader(wb, sheet, value="Header 1",level=1, color="black")
#header level 2
xlsx.addHeader(wb, sheet, value="Header 2",level=2, color="black")
#header level 3
xlsx.addHeader(wb, sheet, value="Header 3",level=3, color="black")
#header level 4
xlsx.addHeader(wb, sheet, value="Header 4",level=4, color="black")
#header level 5
xlsx.addHeader(wb, sheet, value="Header 5",level=5, color="black")
#header level 6
xlsx.addHeader(wb, sheet, value="Header 6",level=6, color="black")
 
#......
#Don't forget to save the workbook
#......
 

 
#......
#Don't forget to create a workbook and a sheet as previously
#......
 
# Add texts
#**************************************
#Add Text :Author
#+++++++++++++++++++++++++++++++
xlsx.addHeader(wb, sheet, value="Author",level=2, color="black", underline=1)
xlsx.addText(wb, sheet, value="Author : Alboukadel KASSAMBARA. \n@:alboukadel.kassambara@gmail.com.\n Website : http://ww.sthda.com",
             isItalic=TRUE, colSpan=5, rowSpan=3, fontColor="darkgray", fontSize=14)
xlsx.addLineBreak(sheet, 3)# Three line breaks
 
#Add paragraph
#+++++++++++++++++++++++++++++
xlsx.addHeader(wb, sheet, " Add paragraph", level=2, underline=1)
xlsx.addLineBreak(sheet, 2)
paragraph="Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged."
#customized
xlsx.addParagraph(wb, sheet, paragraph, fontSize=14, isItalic=TRUE, 
                  fontColor="darkred", backGroundColor="gray")
xlsx.addLineBreak(sheet, 2)
#......
#Don't forget to save the workbook
#......
 

 
#......
#Don't forget to create a workbook and a sheet as previously
#......
#Header
#**************************************
 
#Add Hyperlink
#+++++++++++++++++++++++++++++
xlsx.addHeader(wb, sheet, " Add Hyperlink", level=2, underline=1)
xlsx.addLineBreak(sheet, 1)
xlsx.addHyperlink(wb, sheet, "https://www.sthda.com", "Click-me!!", fontSize=12)
xlsx.addLineBreak(sheet, 2)
 
#......
#Don't forget to save the workbook
#......
 

 
#......
#Don't forget to create a workbook and a sheet as previously
#......
 
#Add table
#+++++++++++++++++++++++++++++
#add iris data using default settings
data(iris)
#header
xlsx.addHeader(wb, sheet, value="Add table",level=2, color="black", underline=1)
xlsx.addLineBreak(sheet, 1)
 
#header
xlsx.addHeader(wb, sheet, value="Simple Table",level=3, color="black")
xlsx.addLineBreak(sheet, 1)
xlsx.addTable(wb, sheet, head(iris), startCol=2)
xlsx.addLineBreak(sheet, 2)
 
#Customized table : column data format
xlsx.addHeader(wb, sheet, value="Customized table : font color and size",
               level=3, color="black")
xlsx.addLineBreak(sheet, 1)
xlsx.addTable(wb, sheet, data= head(iris),
              fontColor="darkblue", fontSize="16"             
)
xlsx.addLineBreak(sheet, 2)
#......
#Don't forget to save the workbook
#......
 

 
#......
#Don't forget to create a workbook and a sheet as previously
#......
#Add Plot
#+++++++++++++++++++++++++++++
#boxplot
data(ToothGrowth)
xlsx.addHeader(wb, sheet, " Add Plot", level=2, underline=1)
xlsx.addLineBreak(sheet, 1)
plotFunction<-function(){boxplot(len ~ dose, data = ToothGrowth,
                                 subset = supp == "VC", col = "yellow",
                                 main = "Guinea Pigs' Tooth Growth",
                                 xlab = "Vitamin C dose mg", ylab = "tooth length",
                                 xlim = c(0.5, 3.5), ylim = c(0, 35), yaxs = "i")
}
xlsx.addPlot(wb, sheet, plotFunction())
#......
#Don't forget to save the workbook
#......
 

 
#......
#Don't forget to create workbook and sheet as previously
#......
#Add Plot
#+++++++++++++++++++++++++++++
#ggplot2
rquery.loadPackages("ggplot2")#for plot
set.seed(1234)
df <- data.frame(cond = factor( rep(c("A","B"), each=200) ), 
                 rating = c(rnorm(200),rnorm(200, mean=.8)))
 
# Density plots with semi-transparent fill
xlsx.addHeader(wb, sheet, "Density plots with semi-transparent fill", level=2, underline=1)
xlsx.addLineBreak(sheet, 1)
 
gg.p<-ggplot(df, aes(x=rating, fill=cond)) + geom_density(alpha=.3)
xlsx.addPlot(wb, sheet, function(){print(gg.p)})
#......
#Don't forget to save the workbook
#......
 

 
file <- system.file("tests", "test_import.xlsx", package = "xlsx")
res <- xlsx.readFile(file, 1)  # read first sheet
head(res)
 

 
res <- xlsx.writeFile(USArrests, file="USArrests.xlsx", sheetName="USArrests")
 

 
#****************************************
#Add header :sheet title and subtitle
#****************************************
#wb :workbook object
#sheet : sheet object
#value : your header value
#level : header level; possible value (1 to 6)
#startRow : row index to start to write
#startCol : col index to start to write
#rowBreak : number of rows to jump before appending the data
#underline : a numeric value specifying the thickness of the underline.
#Allowed values are 0, 1, 2.
xlsx.addHeader(wb, sheet, value="Header", level=1, color="#FFFFFF",
                         startRow=NULL, startCol=2, underline=c(0,1,2))
 

 
#****************************************
#Add Text : add a simple line text
#****************************************
#the function is similar to xlsx.addParagraph
#wb :workbook object
#sheet : sheet object
#value : paragraph text
#fontColor: text color. default is black. value : all colors returned by colors() can be used
#backGroundColor : fill color of the cell
#fontSize : text size
#isBold : if TRUE, the text is written in bold format
#isItalic : if TRUE, the text is written in italic format
#startRow : row index to start to write
#startCol : col index to start to write
#colSpan : number of column to be merged (paragraph : width)
#rowSpan : number of rows to be merged corresponding to paragrath height
xlsx.addText(wb,sheet, value, fontColor="#FFFFFF", fontSize=12, backGroundColor="#FFFFFF",
                            isBold=FALSE, isItalic=FALSE,
                            startRow=NULL, startCol=2, colSpan=1, rowSpan=1)
 

 
#****************************************
#Add paragraph
#****************************************
#wb :workbook object
#sheet : sheet object
#value : paragraph text
#fontColor: text color. default is black. value : all colors returned by colors() can be used
#fontSize : text size
#backGroundColor : fill color of the cell
#isBold : if TRUE, the text is written in bold format
#isItalic : if TRUE, the text is written in italic format
#startRow : row index to start to write
#startCol : col index to start to write
#colSpan : number of column to be merged (paragraph : width)
#rowSapn : number of rows to be merged corresponding to paragrath height
xlsx.addParagraph(wb,sheet, value, fontColor="#FFFFFF", fontSize=12, backGroundColor="#FFFFFF",
                            isBold=FALSE, isItalic=FALSE,
                            startRow=NULL, startCol=2, colSpan=10, rowSpan=5)
 

 
#****************************************
#Add Hyperlink
#****************************************
#wb :workbook object
#sheet : sheet object
#value : paragraph text
#fontColor: text color. default is black. value : all colors returned by colors() can be used
#fontSize : text size
#isBold : if TRUE, the text is written in bold format
#isItalic : if TRUE, the text is written in italic format
#startRow : row index to start to write
#startCol : col index to start to write
xlsx.addHyperlink(wb,sheet, address, friendlyName, 
                            fontColor="blue", fontSize=12,
                            isBold=FALSE, isItalic=FALSE, startRow=NULL, startCol=2) 
 

 
#****************************************
#Add Line break to the sheet
#****************************************
#wb :workbook object
#sheet : sheet object
#value : your header value
#level : header level; possible value (1 to 6)
#startRow : row index to start to write
#startCol : col index to start to write
#numberOfLine : number of rows to jump before appending the data
xlsx.addLineBreak(sheet, numberOfLine=1)
 

 
#****************************************
#add table 
#****************************************
#wb :workbook object
#sheet : sheet object
#data : data frame
#level : header level; possible value (1 to 6)
#startRow : row index to start to write
#startCol : col index to start to write
#rowBreak : nimber of rows to jum before appending the data
#if col.names and row.names : column and row names  are written
#fontColor : color of text
#fontSize : text size
#rownamesFill: background color of table row names
#colnamesFill : background color of table column names
#rowFill : background color of pair rows (i.e : 2, 4, 6). For table styling.
#mergedColumnForRownames : number of column to merge for rownames. 
#Be carrefull : using mergedColumnForRownames is a  very slow process
xlsx.addTable(wb, sheet, data, startRow=NULL,startCol=2,
                        col.names=TRUE, row.names=TRUE, columnWidth=14,
                        fontColor="#FFFFFF", fontSize=12, rownamesFill="white", colnamesFill="white", rowFill="white",
                        mergedColumnForRownames=1,   ...)
 

 
#****************************************
#add Plot 
#****************************************
#wb :workbook object
#sheet : sheet object
#startRow : row index to start to write
#startCol : col index to start to write
#plotFunction: plot function
xlsx.addPlot( wb, sheet, plotFunction, startRow=NULL,startCol=2,
               width=480, height=480,... )
 

 
#****************************************
#Write a data.frame to an Excel workbook
#****************************************
#data : data frame
#file : output file name
#if col.names and row.names : column and row names  are written
#append :if TRUE data should be appended to an existing file. 
#usage : res <- xlsx.writeFile(USArrests, file="USArrests.xlsx", sheetName="USArrests")
xlsx.writeFile(data, file, sheetName="Sheet1",
               col.names=TRUE, row.names=TRUE, append=FALSE, ...)
 

 
#****************************************
#Read a data.frame from an Excel workbook
#****************************************
#file :the path to the file to read
#sheetIndex: a number representing the sheet index in the workbook.
#startRow : index of starting row
#colIndex: a numeric vector indicating the cols you want to extract. If NULL, all columns found will be extracted
#endRow: The index of the last row to pull. If NULL, read all the rows in the sheet.
#header : if TRUE, the first row is considered as row names
#usage : 
#file <- system.file("tests", "test_import.xlsx", package = "xlsx")
#res <- xlsx.readFile(file, 1)  # read first sheet
#head(res)
xlsx.readFile(file, sheetIndex=1, startRow=1, colIndex=NULL, endRow=NULL, header=TRUE,...)
 

 
#++++++++++++++++++++++++++++
#Open file
#++++++++++++++++++++++++++++
xlsx.openFile(filename)
 

 
FILE <- "example"
system(paste0("pandoc -o ", FILE, ".docx ", FILE, ".md"))
 

 
library(knitr)
pandoc('foo.md', format='html')  # HTML
pandoc('foo.md', format='latex') # LaTeX/PDF
pandoc('foo.md', format='docx')  # MS Word
pandoc('foo.md', format='odt')   # OpenDocument
 

 
install.packages("devtools")
devtools::install_github('R2DOC', 'davidgohel')
devtools::install_github('R2DOCX', 'davidgohel')
 

 
Sys.setenv(NOAWT=1) #prevents usage of awt.[http://cran.r-project.org/doc/manuals/r-devel/R-admin.html#Java-_0028OS-X_0029]
install.packages("devtools")
devtools::install_github('R2DOC', 'davidgohel')
devtools::install_github('R2DOCX', 'davidgohel')
 

 
Sys.setenv(NOAWT=1) #prevents usage of awt - required on Mac
library(R2DOCX)
# Nom du fichier ? cr?er
docx.file <- "document.docx"
# Objet Docx ? manipuler
doc <- new ("Docx", title = "My example" )
#ajouter une table
doc = addTable( doc, iris[1:10,] )
# Ajouter du texte
doc <- addParagraph( doc, value = "Hello World!", stylename = "Normal" )
# ajouter un graphique
doc = addPlot( doc, function() plot( rnorm(10), rnorm(10) )
               , width = 10, height = 8
)
# Ecriture du fichier 
writeDoc( doc, docx.file )
 

 
# document word ? cr?er
docx.file = "document.docx"
# Document word ? utiliser comme template
template.file = file.path( find.package("R2DOCX"), "templates/TEMPLATE_01.docx", fsep = "/" )
# Cr?er un nouveau objet
doc = new("Docx"
, title = "My example" 
, basefile = template.file
)
# Dans le document de base, 2 mots cl?s existent- Rempla?ons les
doc = replaceText( doc, pattern = "AUTHOR", replacement = "John Doe" )
doc = replaceText( doc, pattern = "DATE", replacement = date() )
 

 
#Titre principale
#**************************************
doc = addParagraph( doc, value = "Exemple", stylename = "TitleDoc" )
doc = addPageBreak( doc ) #saut de page
 

 
#Table des mati?re (table of content : TOC)
#**************************************
#On vous demandera de mettre ? jour la table de mati?res
#la pr?mi?re fois que le document sera ouvert
doc = addHeader(doc, "Table des mati?res", 1);
doc = addTOC(doc)
doc = addPageBreak( doc )#saut de page
 

 
# Ajout de textes (normal and liste)
#**************************************
doc = addHeader(doc, "Dataset presentation", 1);
#texte normal
doc = addParagraph( doc, value = "Dataset 'measured.weights' is set of weights measurements collected on few people before savate training.", stylename = "Normal" )
#liste non ordonn?e
texts = c( "Column 'gender' is the subject gender." 
           , "Column 'id' is the unique subject identifier." 
           , "Column 'cat' is the subject weight category." 
           , "Column 'competitor' tells wether or not subject practice competition." 
           , "Column 'day' is the day of measurement." 
           , "Column 'weight' is the measured weight." 
)
doc = addParagraph( doc, value = texts, stylename = "BulletList" )
 

 
# template text
x = "[animal] eats [food]."
# define formatting properties for replacement text ? see chapter "styles"
textProp = textProperties( color = "blue" )
replacement.styles = list( animal= textProp, food= textProp )
# define replacement text
replacements = list( animal = "donkey", food = "grass" )
doc <- addParagraph( doc, value = x, stylename = "Normal"
                     , replacements = replacements
                     , replacement.styles = replacement.styles
)
 

 
# Ajouter une table
#**************************************
# Table utilisee
data( measured.weights )
doc = addHeader(doc, "Dataset", 1);
doc = addHeader(doc, "Dataset first lines", 2);
#Table simple
doc = addTable( doc
                , data = head( measured.weights, n = 10 )
                , formats = get.light.formats()
)
doc = addLineBreak( doc )#saut de ligne
 

 
doc = addTable( doc, data = weights.summary)
 

 
doc = addTable( doc
, data = weights.summary
, header.labels = list("id" = "Subject Identifier", "avg.weight" = "Average Weight"
, "regularity" = "Regularity", "visit.n" = "Number of visits", "last.day" = "Last visit"
) # columns labels to display
)
 

 
# simple addTable with row merging on 'day' column
doc = addHeader(doc, "Dataset last lines", 2);
sampledata = tail( measured.weights[ order(measured.weights$day), ], n = 20 )
doc = addTable( doc
, data = sampledata
, span.columns = c("day")
, col.colors = list( "gender" = ifelse( sampledata$gender == "male" , "#00c2ff", "#ffcdd1") )
)
 

 
# customized table
doc = addHeader(doc, "Dataset summary", 1);
doc = addTable( doc
, data = weights.summary
, header.labels = list("id" = "Subject Identifier", "avg.weight" = "Average Weight"
, "regularity" = "Regularity", "visit.n" = "Number of visits", "last.day" = "Last visit"
) # columns labels to display
, grouped.cols=list( "id" = "id"
, "Summary" = c( "avg.weight",  "regularity", "visit.n", "last.day" ) 
) # grouped headers line to add before headers line
, col.types = list( "id" = "character", "avg.weight" = "double"
, "regularity" = "percent", "visit.n" = "integer"
, "last.day" = "date" ) # reporting types of each columns 
, col.fontcolors = list( "regularity" = ifelse( weights.summary$regularity < 0.5 , "gray", "blue") ) # customized font colors for column "regularity"
)
 

 
# Ajouter un grahique
#**************************************
doc = addPageBreak( doc )
doc = addHeader(doc, "Graphics", 1);
doc = addPlot( doc,
               function() boxplot(measured.weights$weight ~ measured.weights$id,
                                  xlab = "Subjects", ylab = "Weights" , col = "#0088cc",
                                  legend = "My boxplot"),
               width=7, height=7
              )
 

 
doc = replaceText( doc, "AUTHOR", "Pearson")
 

 
doc <- new("Docx", title = "My example" )
styles( doc )
# [1] "Normal"                  "Titre1"                  "Titre2"                 
# [4] "Titre3"                  "Titre4"                  "Titre5"                 
# [7] "Titre6"                  "Titre7"                  "Titre8"                 
#[10] "Titre9"                  "Policepardfaut"          "TableauNormal"          
# ...
doc <- setHeaderStyle(doc, stylenames = c("Titre1", "Titre2", "Titre3", "Titre4", "Titre5", "Titre6", "Titre7", "Titre8", "Titre9" ) ) 
doc = addHeader( doc, "title 1", 1 )