Commit 7b236e03 authored by jml's avatar jml
Browse files

add case when meta_station is null

parent bcd0a024
......@@ -84,7 +84,12 @@ get_short_meta_station_with_element <- function(frostObj,stations=NULL,west=NULL
ele_meta <- get_short_meta_element(frostObj=frostObj,elements=elements)
stn_meta <- get_short_meta_station(frostObj=frostObj,stations=stations,west=west,south=south,east=east,north=north)
res <- dplyr::inner_join(stn_meta,ele_meta)
if (!is.null(ele_meta) && !is.null(stn_meta)) {
res <- dplyr::inner_join(stn_meta,ele_meta)
} else {
res <- NULL
}
return(res)
}
......
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