plot.default supprimée

Création de desc() avec gestion des options.

DESCRIPTION

@@ -9,6 +9,3 @@ Depends:
     R2HTML,xlsx
 Description: 
 License: GPLv3
-Collate:
-    'label.R'
-    'charger.R'

NAMESPACE

@@ -1,7 +1,7 @@
+S3method("label<-",data.frame)
+S3method("label<-",default)
+S3method(label,default)
 export("label<-")
-export("label<-.data.frame")
-export("label<-.default")
 export(charger)
+export(desc)
 export(label)
-export(label.default)
-export(plot.default)

R/charger.R

@@ -8,7 +8,7 @@
 #' La table de valeurs prend automatiquement le nom du fichier (suffixé par le numéro de feuille) et est attachée à l'environnement courant.
 #' @encoding ISO-8859-1
 #' @param fichier Fichier de données à charger
-#' @nom nom de la data frame dans laquelle stocker les données chargées
+#' @param nom Nom de la data frame dans laquelle stocker les données chargées
 #' @param feuille Feuille à utiliser si fichier excel et en cas de feuilles mutiples (et qu'on veut accéder à une feuille au-delà de la première)
 #' @export
 #' @examples

R/desc.R

@@ -0,0 +1,49 @@
+#' Descriptif global de la table courante
+#' 
+#' Produit un tableau descriptif de la table courante
+#' 
+#' Permet de produire un tableau descriptif des variables contenues dans la table courante.
+#' Si les labels et formats sont définis et chargés ils seront utilisés pour peupler le tableau.
+#' Tous les paramètres ont une valeur par défaut, il est donc possible de simplement lancer desc() pour obtenir un tableau descriptif par défaut.
+#' @encoding ISO-8859-1
+#' @param html Nom du fichier html, par défaut "desc.html", éventuellement suffixé d'un nombre si le fichier existe déjà
+#' @param titre Titre du tableau, par défaut "Descriptif global de nom_de_la_table"
+#' @param table Table à utiliser, par défaut la dernière chargée
+#' @param variables Vecteur de noms de variables à décrire, par défaut toutes les variables contenues dans la table
+#' @param variables_neg Vecteur de noms de variables à exclure de la description
+#' @param miss Booleen : afficher ou non les valeurs manquantes, par défaut FALSE
+#' @param anglais Booleen : obtenir un tableau en anglais(intitulés, séparation des décimales), par défaut FALSE
+#' @param note Note de bas de page, par défaut vide
+#' @param nbdec Nombre de décimales après la virgule, par défaut 1
+#' @export
+desc <- function(html="desc", titre=NULL, table=NULL, variables=NULL, variables_neg=NULL, miss=FALSE, anglais=FALSE, note="", nbdec=1)
+{
+  nbdec_orig=getOption("digits")
+  dec_mark=getOption("OutDec")
+  options(digits=nbdec)
+  if (anglais)
+  {
+    options(OutDec=".")
+  }
+  else
+  {
+    options(OutDec=",")
+  }
+  
+  if (is.null(titre) & is.null(table))
+  {
+    titre<-paste("Descriptif global de",.attachd)
+  }
+  else if (is.null(titre))
+  {
+    titre<-paste("Descriptif global de",deparse(substitute(table))) 
+  }
+  if (is.null(table)) table<-eval(parse(text=.attachd))
+  if (!is.null(variables)) table=table[variables]
+  if (!is.null(variables_neg)) table[variables_neg]<-list(NULL)
+  
+  #code code code code code code
+  
+  options(digits=nbdec_orig)
+  options(OutDec=dec_mark)
+}

R/label.R

@@ -67,69 +67,4 @@ label.default <- function(objet)
     }
   }
   objet
-}
-
-#' Fonction de remplacement pour plot
-#' 
-#' plot en utilisant les labels comme étiquettes 
-#' 
-#' @encoding ISO-8859-1
-#' @export
-plot.default<-function (x, y = NULL, type = "p", xlim = NULL, ylim = NULL, 
-          log = "", main = NULL, sub = NULL, xlab = NULL, ylab = NULL, 
-          ann = par("ann"), axes = TRUE, frame.plot = axes, panel.first = NULL, 
-          panel.last = NULL, asp = NA, ...) 
-{
-  localAxis <- function(..., col, bg, pch, cex, lty, lwd) Axis(...)
-  localBox <- function(..., col, bg, pch, cex, lty, lwd) box(...)
-  localWindow <- function(..., col, bg, pch, cex, lty, lwd) plot.window(...)
-  localTitle <- function(..., col, bg, pch, cex, lty, lwd) title(...)
-  xlabel <- if (!missing(x))
-  {
-    if (is.null(label(x)))
-      deparse(substitute(x))
-    else
-      label(x)
-  }
-  ylabel <- if (!missing(y))
-  {
-    if (is.null(label(y)))
-      deparse(substitute(y))
-    else
-      label(y)
-  }
-  xy <- xy.coords(x, y, xlabel, ylabel, log)
-  xlab <- if (is.null(xlab)) 
-    xy$xlab
-  else xlab
-  ylab <- if (is.null(ylab)) 
-    xy$ylab
-  else ylab
-  xlim <- if (is.null(xlim)) 
-    range(xy$x[is.finite(xy$x)])
-  else xlim
-  ylim <- if (is.null(ylim)) 
-    range(xy$y[is.finite(xy$y)])
-  else ylim
-  dev.hold()
-  on.exit(dev.flush())
-  plot.new()
-  localWindow(xlim, ylim, log, asp, ...)
-  panel.first
-  plot.xy(xy, type, ...)
-  panel.last
-  if (axes) {
-    localAxis(if (is.null(y)) 
-      xy$x
-              else x, side = 1, ...)
-    localAxis(if (is.null(y)) 
-      x
-              else y, side = 2, ...)
-  }
-  if (frame.plot) 
-    localBox(...)
-  if (ann) 
-    localTitle(main = main, sub = sub, xlab = xlab, ylab = ylab, 
-               ...)
-  invisible()
 }

man/charger.Rd

@@ -3,28 +3,30 @@
 \alias{charger}
 \title{Charger un fichier de données dans l'environnement}
 \usage{
-  charger(fichier, nom = NULL, feuille = 1)
+charger(fichier, nom = NULL, feuille = 1)
 }
 \arguments{
   \item{fichier}{Fichier de données à charger}
 
+  \item{nom}{Nom de la data frame dans laquelle stocker les
+  données chargées}
+
   \item{feuille}{Feuille à utiliser si fichier excel et en
   cas de feuilles mutiples (et qu'on veut accéder à une
   feuille au-delà de la première)}
 }
 \description{
-  Charge un fichier texte ou excel contenant les données
-  ainsi que les formats et labels
+Charge un fichier texte ou excel contenant les données
+ainsi que les formats et labels
 }
 \details{
-  La fonction charge les données contenues dans le fichier
-  de données et créé une table de valeurs. Si des
-  labels/formats sont définis ils seront appliqués. Les
-  variables pour lesquelles un format est défini seront
-  considérées comme des variables qualitatives. La table de
-  valeurs prend automatiquement le nom du fichier (suffixé
-  par le numéro de feuille) et est attachée à
-  l'environnement courant.
+La fonction charge les données contenues dans le fichier de
+données et créé une table de valeurs. Si des labels/formats
+sont définis ils seront appliqués. Les variables pour
+lesquelles un format est défini seront considérées comme
+des variables qualitatives. La table de valeurs prend
+automatiquement le nom du fichier (suffixé par le numéro de
+feuille) et est attachée à l'environnement courant.
 }
 \examples{
 charger("data.csv") #charger un fichier texte (marche aussi pour les .txt)

man/desc.Rd

@@ -0,0 +1,46 @@
+\encoding{ISO-8859-1}
+\name{desc}
+\alias{desc}
+\title{Descriptif global de la table courante}
+\usage{
+desc(html = "desc.html", titre = NULL, table = NULL, variables = NULL,
+  miss = FALSE, anglais = FALSE, note = "", nbdec = 1)
+}
+\arguments{
+  \item{html}{Nom du fichier html, par défaut "desc.html",
+  éventuellement suffixé d'un nombre si le fichier existe
+  déjà}
+
+  \item{titre}{Titre du tableau, par défaut "Descriptif
+  global de nom_de_la_table"}
+
+  \item{table}{Table à utiliser, par défaut la dernière
+  chargée}
+
+  \item{variables}{Vecteur de noms de variables à décrire,
+  par défaut toutes les variables contenues dans la table}
+
+  \item{miss}{Booleen : afficher ou non les valeurs
+  manquantes, par défaut FALSE}
+
+  \item{anglais}{Booleen : obtenir un tableau en
+  anglais(intitulés, séparation des décimales), par défaut
+  FALSE}
+
+  \item{note}{Note de bas de page, par défaut vide}
+
+  \item{nbdec}{Nombre de décimales après la virgule, par
+  défaut 1}
+}
+\description{
+Produit un tableau descriptif de la table courante
+}
+\details{
+Permet de produire un tableau descriptif des variables
+contenues dans la table courante. Si les labels et formats
+sont définis et chargés ils seront utilisés pour peupler le
+tableau. Tous les paramètres ont une valeur par défaut, il
+est donc possible de simplement lancer desc() pour obtenir
+un tableau descriptif par défaut.
+}
+

man/label.Rd

@@ -7,15 +7,15 @@
 \alias{label<-.default}
 \title{Etiquetter un objet}
 \usage{
-  label(objet)
+label(objet)
 
-  label.default(objet)
+\method{label}{default}(objet)
 
-  label(objet, value) <- value
+label(objet) <- value
 
-  label.default(objet, value) <- value
+\method{label}{default}(objet) <- value
 
-  label.data.frame(objet, value) <- value
+\method{label}{data.frame}(objet) <- value
 }
 \arguments{
   \item{objet}{L'objet à nommer}
@@ -23,16 +23,16 @@
   \item{value}{Le texte de l'étiquette}
 }
 \value{
-  Renvoie une chaîne de caractères contenant l'étiquette de
-  l'objet
+Renvoie une chaîne de caractères contenant l'étiquette de
+l'objet
 }
 \description{
-  Attribuer ou récupérer l'étiquette d'un objet
+Attribuer ou récupérer l'étiquette d'un objet
 }
 \details{
-  Méthode par défaut pour accéder et modifier l'étiquette
-  d'un objet ou d'un élément d'un objet. Il est possible de
-  supprimer l'étiquette en passant NULL à la fonction.
+Méthode par défaut pour accéder et modifier l'étiquette
+d'un objet ou d'un élément d'un objet. Il est possible de
+supprimer l'étiquette en passant NULL à la fonction.
 }
 \examples{
 label(a) <- "Une variable"