From 8756512231525ece68f123c51b3d08d7a6e0f2d0 Mon Sep 17 00:00:00 2001
From: Rainer Walke <walke@demogr.mpg.de>
Date: Fri, 20 Sep 2019 11:22:52 +0200
Subject: [PATCH] use the package as a package, need to install first
---
NAMESPACE | 2 ++
tests/Simple1.R | 22 ++++++++++++----------
2 files changed, 14 insertions(+), 10 deletions(-)
diff --git a/NAMESPACE b/NAMESPACE
index d75f824..40671ad 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1 +1,3 @@
exportPattern("^[[:alpha:]]+")
+
+import("data.table")
diff --git a/tests/Simple1.R b/tests/Simple1.R
index bc7fff6..5c1a1f3 100644
--- a/tests/Simple1.R
+++ b/tests/Simple1.R
@@ -1,6 +1,8 @@
# Rainer Walke, MPIDR Rostock
-source(file.path("..","R","eo1.R"))
+library(data.table)
+library(eoR)
+
####
@@ -9,7 +11,7 @@ source(file.path("..","R","eo1.R"))
# read all information from the file fltper_1x1
# example data source: Human Mortality Database https://www.mortality.org/
# period life tables 1x1 female
-infile <- file.path("..","inst","extdata","DEUTNP.fltper_1x1.txt")
+infile <- file.path(system.file(package="eoR"), "extdata", "DEUTNP.fltper_1x1.txt")
o1 <- readLT1x1(infile)
@@ -46,7 +48,7 @@ showMethods("length")
# read all information from the file Exposures_1x1
# example data source: Human Mortality Database https://www.mortality.org/
# period life tables 1x1 female
-infile2 <- file.path("..","inst","extdata","DEUTNP.Exposures_1x1.txt")
+infile2 <- file.path(system.file(package="eoR"), "extdata", "DEUTNP.Exposures_1x1.txt")
e1 <- readEX1x1(infile2)
@@ -79,10 +81,10 @@ showClass("EX1")
showMethods("length")
# read all information from 'GENESIS-Tabelle: 12613-02-02-4'
-# Statistische ?mter des Bundes und der L?nder, Deutschland, 2019
-# Gestorbene nach Geschlecht, Nationalit?t und Altersgruppen -
-# Jahressumme - regionale Tiefe: Kreise und krfr. St?dte
-infile3 <- file.path("..","inst","extdata","12613-02-02-4.csv")
+# Statistische Ämter des Bundes und der Länder, Deutschland, 2019
+# Gestorbene nach Geschlecht, Nationalität und Altersgruppen -
+# Jahressumme - regionale Tiefe: Kreise und krfr. Städte
+infile3 <- file.path(system.file(package="eoR"), "extdata", "12613-02-02-4.csv")
d1 <- readRegDeath(infile3)
@@ -126,9 +128,9 @@ showMethods("length")
# read all information from 'GENESIS-Tabelle: 12411-03-03-4'
-# Statistische ?mter des Bundes und der L?nder, Deutschland, 2019
-# Bev?lkerung nach Geschlecht, Nationalit?t und Altersgruppen
-infile4 <- file.path("..","inst","extdata","12411-03-03-4.csv")
+# Statistische Ämter des Bundes und der Länder, Deutschland, 2019
+# Bevölkerung nach Geschlecht, Nationalität und Altersgruppen
+infile4 <- file.path(system.file(package="eoR"), "extdata", "12411-03-03-4.csv")
r1 <- readRegExp(infile4)