Commit 07ba7278 authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

stationId without ':'

parent d57fdbc4
......@@ -15,7 +15,7 @@ get_short_data <- function(frostObj,stations,referencetime,elements,...) {
elements=paste(elements,collapse=","),
...,
format='jsonld')
if(!is.null(tmp)) {
nrows <- tmp$totalItemCount
res <- short_data_init()
......@@ -23,6 +23,7 @@ get_short_data <- function(frostObj,stations,referencetime,elements,...) {
df <- short_data_df(tmp=tmp,indice=i)
res <- rbind(res,df)
}
res[,"sourceId"] <-gsub(":.*","",res[,"sourceId"])
}
......
Supports Markdown
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