Browse Source

On repasse en ISO-8859-1 (pourquoi repassage en UTF-8 ?)

Ajout des dépendances à xlsx et R2HTML
Début de la fonction charger
master
unknown 10 years ago
parent
commit
153b016396
6 changed files with 62 additions and 50 deletions
  1. +2
    -0
      DESCRIPTION
  2. +24
    -13
      R/charger.R
  3. +8
    -8
      R/label.R
  4. +2
    -2
      SEEC_Nancy.Rproj
  5. +17
    -17
      man/charger.Rd
  6. +9
    -10
      man/label.Rd

+ 2
- 0
DESCRIPTION View File

@@ -5,6 +5,8 @@ Version: 1.0
Date: 2013-09-18
Author: Maxime Wack
Maintainer: Maxime Wack <maximewack@free.fr>
Depends:
R2HTML,xlsx
Description:
License: GPLv3
Collate:


+ 24
- 13
R/charger.R View File

@@ -1,20 +1,31 @@
#' 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.
#' @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)
#' 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 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 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("data.csv") #charger un fichier texte (marche aussi pour les .txt)
#' charger("donnees.xls") #charger un fichier excel (marche aussi pour les .xlsx)
#' charger(NULL)
charger <- function(fichier,feuille=1)
charger <- function(fichier,nom,feuille=1)
{
fichier<-paste("../../data/",fichier,sep="")
if (!file.exists(fichier))
{
warning("Le fichier source n'existe pas !")
return -1
}
if (grepl("\\.csv$",fichier) || grepl("\\.txt$",fichier))
x<-read.csv2(fichier)
else if (grepl("\\.xlsx?$",fichier))
x<-read.xlsx(fichier,feuille)
assign(as.character(substitute(nom)),x,pos=1)
}

+ 8
- 8
R/label.R View File

@@ -1,15 +1,15 @@
#' Etiquetter un objet
#'
#' Attribuer ou récupérer l'étiquette d'un objet
#' Attribuer ou récupérer l'étiquette d'un objet
#'
#' 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.
#' @rdname label
#' @encoding UTF-8
#' @param objet L'objet à nommer
#' @param value Le texte de l'étiquette
#' @encoding ISO-8859-1
#' @param objet L'objet à nommer
#' @param value Le texte de l'étiquette
#' @export
#' @return Renvoie une chaîne de caractères contenant l'étiquette de l'objet
#' @return Renvoie une chaîne de caractères contenant l'étiquette de l'objet
#' @examples
#' label(a) <- "Une variable"
#'
@@ -60,7 +60,7 @@ label.default <- function(objet)
for (nom in names(value))
{
if (is.null(objet[[nom]]))
warning(paste(nom,"n'est pas un élément"))
warning(paste(nom,"n'est pas un élément"))
else
label(objet[[nom]])<-value[[nom]]
}


+ 2
- 2
SEEC_Nancy.Rproj View File

@@ -7,11 +7,11 @@ AlwaysSaveHistory: Default
EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: WINDOWS-1252
Encoding: ISO8859-1

RnwWeave: Sweave
LaTeX: pdfLaTeX

BuildType: Package
PackageInstallArgs: --no-multiarch
PackageRoxygenize: rd,namespace
PackageRoxygenize: rd,collate,namespace

+ 17
- 17
man/charger.Rd View File

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


+ 9
- 10
man/label.Rd View File

@@ -1,4 +1,4 @@
\encoding{UTF-8}
\encoding{ISO-8859-1}
\name{label}
\alias{label}
\alias{label.default}
@@ -18,22 +18,21 @@
label.data.frame(objet, value) <- value
}
\arguments{
\item{objet}{L'objet à nommer}
\item{objet}{L'objet à nommer}

\item{value}{Le texte de l'étiquette}
\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"


Loading…
Cancel
Save