Skip to content
Snippets Groups Projects
Commit c959a052 authored by jml's avatar jml
Browse files

typo

parent 14167e65
No related branches found
No related tags found
No related merge requests found
Package: friendlyr Package: friendlyr
Type: Package Type: Package
Version: 0.0.9 Version: 0.1.0
Authors@R: c(person("Jean-Marie", "Lepioufle", , "jml@nilu.no", role=c("aut","cre")), Authors@R: c(person("Jean-Marie", "Lepioufle", , "jml@nilu.no", role=c("aut","cre")),
person("NILU",role="cph")) person("NILU",role="cph"))
Title: friendlyr Title: friendlyr
......
...@@ -15,11 +15,8 @@ ...@@ -15,11 +15,8 @@
#' meta() #' meta()
#' } #' }
meta <- function(service, username=NULL,password=NULL,element_id=NULL,timeResolution=NULL,station_id=NULL,location=NULL) { meta <- function(service, username=NULL,password=NULL,element_id=NULL,timeResolution=NULL,station_id=NULL,location=NULL) {
friend <- friendlyr(service=service, username=username,password=password) friend <- friendlyr(service=service, username=username,password=password)
res <- friend$meta(element_id=element_id,timeResolution=timeResolution,station_id=station_id,location=location) res <- friend$meta(element_id=element_id,timeResolution=timeResolution,station_id=station_id,location=location)
res <- tibble::as_tibble(res) res <- tibble::as_tibble(res)
res$ID <- as.factor(res$ID)
if (!is.null(element_id)) res$CO_NAME <- as.factor(res$CO_NAME)
return(res) return(res)
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment