windows et l'UTF-8…

DESCRIPTION

@@ -9,3 +9,4 @@ Description:
 License: GPLv3
 Collate:
     'label.R'
+    'charger.R'

NAMESPACE

@@ -1,5 +1,6 @@
 export("label<-")
-export(label)
 export("label<-.data.frame")
 export("label<-.default")
+export(charger)
+export(label)
 export(label.default)

R/charger.R

@@ -1,16 +1,20 @@
-#' Charger un fichier de données dans l'environnement
+#' Charger un fichier de données dans l'environnement
 #' 
-#' 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
 #' 
-#' 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.
 #' @encoding UTF-8
-#' @param fichier Fichier de données à charger
-#' @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)
+#' @param fichier Fichier de données à charger
+#' @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
 #' charger("data.csv") #charger un fichier texte
 #' charger("donnees.xls") #charger un fichier excel
-#' charger(NULL)
+#' charger(NULL)
+charger <- function(fichier,feuille=1)
+{
+  
+}

R/label.R

@@ -47,7 +47,7 @@ label.default <- function(objet)
 #' @export
 "label<-.data.frame" <- function(objet,value)
 {
-  if (length(value)==1)
+  if (length(value)==1 && is.null(names(value)))
   {
     objet<-unclass(objet)
     label(objet)<-value
@@ -59,7 +59,10 @@ label.default <- function(objet)
     {
       for (nom in names(value))
       {
-        label(objet[[nom]])<-value[[nom]]
+        if (is.null(objet[[nom]]))
+          warning(paste(nom,"n'est pas un élément"))
+        else
+          label(objet[[nom]])<-value[[nom]]
       }
     }
   }

SEECNancy.Rproj

@@ -7,7 +7,7 @@ AlwaysSaveHistory: Default
 EnableCodeIndexing: Yes
 UseSpacesForTab: Yes
 NumSpacesForTab: 2
-Encoding: WINDOWS-1252
+Encoding: UTF-8
 
 RnwWeave: Sweave
 LaTeX: pdfLaTeX

man/charger.Rd

@@ -0,0 +1,34 @@
+\encoding{UTF-8}
+\name{charger}
+\alias{charger}
+\title{Charger un fichier de données dans l'environnement}
+\usage{
+  charger(fichier, feuille = 1)
+}
+\arguments{
+  \item{fichier}{Fichier de données à charger}
+
+  \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
+}
+\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.
+}
+\examples{
+charger("data.csv") #charger un fichier texte
+charger("donnees.xls") #charger un fichier excel
+charger(NULL)
+}
+

man/label.Rd

@@ -1,10 +1,10 @@
 \encoding{UTF-8}
 \name{label}
 \alias{label}
+\alias{label.default}
 \alias{label<-}
 \alias{label<-.data.frame}
 \alias{label<-.default}
-\alias{label.default}
 \title{Etiquetter un objet}
 \usage{
   label(objet)
@@ -18,21 +18,22 @@
   label.data.frame(objet, value) <- value
 }
 \arguments{
-  \item{objet}{L'objet à nommer}
+  \item{objet}{L'objet à nommer}
 
   \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
 }
 \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"