add case when no output

DESCRIPTION

 Package: frostr
 Type: Package
-Version: 0.1.1
+Version: 0.1.2
 Authors@R: c(person("Jean-Marie", "Lepioufle", , "jml@nilu.no", role=c("aut","cre")))
 Title: frostr
 Description: Extracting data from frostAPI.
@@ -20,4 +20,4 @@ License: GPL-3
 Encoding: UTF-8
 VignetteBuilder: knitr
 LazyData: false
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1

R/get_meta.R

@@ -56,6 +56,8 @@ get_short_meta_station <- function(frostObj,stations=NULL,west=NULL,south=NULL,e
          df <- short_meta_df(tmp=tmp,indice=i)
          res <- rbind(res,df)
        }
+      } else {
+          res <- NULL
       }
 
 

man/api.Rd

@@ -18,4 +18,3 @@ api()
 }
 }
 \keyword{api}
-

man/get_short_data.Rd

@@ -23,4 +23,3 @@ get_short_data
 get_short_data
 }
 \keyword{frostr}
-

man/get_short_meta_element.Rd

@@ -17,4 +17,3 @@ get_short_meta_element
 get_short_meta_element
 }
 \keyword{frostr}
-

man/get_short_meta_station.Rd

@@ -26,4 +26,3 @@ get_short_meta_station
 get_short_meta_station
 }
 \keyword{frostr}
-

man/get_short_meta_station_with_element.Rd

@@ -28,4 +28,3 @@ get_short_meta_station_with_element
 get_short_meta_station_with_element
 }
 \keyword{frostr}
-

man/get_short_new_element.Rd

@@ -17,4 +17,3 @@ get_short_new_element
 get_short_new_element
 }
 \keyword{frostr}
-