Skip to content

citizenair
citizenair
Commit b7fbe585 by Jan Wijffels
Options

doc

parent 0f410d37
Showing with 10 additions and 0 deletions
citizenair/R/read-citizendata.R
...@@ -34,6 +34,11 @@ ...@@ -34,6 +34,11 @@
#' x <- read_citizenair(filename) #' x <- read_citizenair(filename)
#' meta <- as.data.frame(x, type = "meta") #' meta <- as.data.frame(x, type = "meta")
#' measurements <- as.data.frame(x, type = "measurements") #' 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"), read_citizenair <- function(file = system.file(package = "citizenair", "data-raw", "test_dummy.xls"),
name = basename(file)){ name = basename(file)){
file <- path.expand(file) file <- path.expand(file)
......
citizenair/man/read_citizenair.Rd
...@@ -45,4 +45,9 @@ filename <- system.file(package = "citizenair", "data-raw", "citizenair-example. ...@@ -45,4 +45,9 @@ filename <- system.file(package = "citizenair", "data-raw", "citizenair-example.
x <- read_citizenair(filename) x <- read_citizenair(filename)
meta <- as.data.frame(x, type = "meta") meta <- as.data.frame(x, type = "meta")
measurements <- as.data.frame(x, type = "measurements") 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")
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment