Ajout des dépendances à xlsx et R2HTML Début de la fonction chargermaster
@@ -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: | |||
@@ -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) | |||
} |
@@ -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]] | |||
} | |||
@@ -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 |
@@ -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) | |||
} | |||
@@ -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" | |||