output of wrappers more intuitive

dleutnant · Sep 2, 2015 · fe72c3f · fe72c3f
1 parent 6735c2f
commit fe72c3f
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/R/influxdb.R b/R/influxdb.R
@@ -378,7 +378,7 @@ influx_query <- function(con,
                   # extract time vector to feed xts object
                   if (timestamp_format != "default") {
 
-                    # to do: dealing with "millisecs" and "nanosecs"
+                    # TODO: dealing with "millisecs" and "nanosecs"
                     time <- as.POSIXct(values[,'time'], origin = "1970-1-1")
 
                   } else {

diff --git a/R/influxdb_explore_schema.R b/R/influxdb_explore_schema.R
@@ -18,6 +18,8 @@ show_databases <- function(con) {
                                     query = "show databases",
                                     return_xts = F)
 
+  result <- as.character(t(result)[[1]])
+
   return(result)
 
 }
@@ -49,6 +51,8 @@ show_measurements <- function(con, db, where=NULL) {
                                     query = query,
                                     return_xts = F)
 
+  result <- as.character(t(result)[[1]])
+
   return(result)
 
 }
@@ -124,6 +128,10 @@ show_tag_keys <- function(con, db, from=NULL, where=NULL) {
                                     query = query,
                                     return_xts = F)
 
+  # TODO: prevent names of measurements to be dropped!
+
+  result <- lapply(lapply(result, t), unname)
+
   return(result)
 }
 
@@ -160,6 +168,8 @@ show_tag_values <- function(con, db, from=NULL, key) {
                                     query = query,
                                     return_xts = F)
 
+  result <- as.character(t(result)[[1]])
+
   return(result)
 
 }