doc

b7fbe585 · Jan Wijffels · 0f410d37 · b7fbe585 · b7fbe585
Commit b7fbe585 authored Nov 12, 2018 by Jan Wijffels
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

citizenair/R/read-citizendata.R
+5 -0

citizenair/man/read_citizenair.Rd
+5 -0

No files found.
--- a/citizenair/R/read-citizendata.R
+++ b/citizenair/R/read-citizendata.R
@@ -34,6 +34,11 @@
 #' x <- read_citizenair(filename)
 #' meta <- as.data.frame(x, type = "meta")
 #' measurements <- as.data.frame(x, type = "measurements")
+#' 
+#' filename <- system.file(package = "citizenair", "data-raw", "Test_LeuvenairVMM_v3.xls")
+#' x <- read_citizenair(filename)
+#' meta <- as.data.frame(x, type = "meta")
+#' measurements <- as.data.frame(x, type = "measurements")
 read_citizenair <- function(file = system.file(package = "citizenair", "data-raw", "test_dummy.xls"), 
                            name = basename(file)){
  file <- path.expand(file)

--- a/citizenair/man/read_citizenair.Rd
+++ b/citizenair/man/read_citizenair.Rd
@@ -45,4 +45,9 @@ filename <- system.file(package = "citizenair", "data-raw", "citizenair-example.
 x <- read_citizenair(filename)
 meta <- as.data.frame(x, type = "meta")
 measurements <- as.data.frame(x, type = "measurements")
+
+filename <- system.file(package = "citizenair", "data-raw", "Test_LeuvenairVMM_v3.xls")
+x <- read_citizenair(filename)
+meta <- as.data.frame(x, type = "meta")
+measurements <- as.data.frame(x, type = "measurements")
 }