642
Le logiciel R
file.path(.repertoires.comptes,paste(nom,".RData",sep=""))
}
6.2- compte <- function(nom) {
chemin <- chemin.compte(nom)
compte <- data.frame(somme=numeric(0),mode =
factor(levels=c("D´ ebit","Cr´ edit")),
date=character(0),remarque=character(0))
save(compte,file=chemin)
cat("Compte",nom,"cr´ e´ e !\n")
}
6.3- d´ ebite <- function(nom,somme,remarque="",
date=format(Sys.time(),"%d/%m/%Y")) {
chemin <- chemin.compte(nom)
load(chemin)
compte <- rbind(compte,data.frame(somme=somme,mode="D´ ebit",
date=date,remarque=remarque))
save(compte,file=chemin)
}
cr´ edite <- function(nom,somme,remarque="",
date=format(Sys.time(),"%d/%m/%Y")) {
chemin <- chemin.compte(nom)
load(chemin)
compte <- rbind(compte,data.frame(somme=somme,mode="Cr´ edit",
date=date,remarque=remarque))
save(compte,file=chemin)
}
6.4- L’instruction
sum(compte[compte$mode=="Cr´ edit","somme"])
renvoie la somme cr´ edit´ ee sur le compte. Nous modifions la fonction
compte() ainsi :
compte <- function(nom) {
chemin <- chemin.compte(nom)
if(!file.exists(chemin)) {
compte <- data.frame(somme=numeric(0),mode=
factor(levels=c("D´ ebit","Cr´ edit")),date=character(0),
remarque=character(0))
save(compte,file=chemin)
cat("Compte",nom,"cr´ e´ e !\n")
} else {
load(chemin)
cat("Etat compte",nom,"=",sum(compte[compte$mode=="Cr´ edit",