From fec87e4a9e2d412846b75deb3ececbf00b357f1f Mon Sep 17 00:00:00 2001
From: bikash <er.bikash21@gmail.com>
Date: Sun, 17 Feb 2013 03:06:01 +0100
Subject: [PATCH] add default blank value of end parameter, and also remove
 extra filter on data output

---
 R/tsd_get.r | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/R/tsd_get.r b/R/tsd_get.r
index dd4fedd..ebe99cf 100644
--- a/R/tsd_get.r
+++ b/R/tsd_get.r
@@ -17,7 +17,7 @@ tsd_get <- function(
     metric,
     start,
     tags,
-    end,
+    end="",
     agg = "avg",
     rate = FALSE,
     downsample = NULL,
@@ -50,8 +50,9 @@ tsd_get <- function(
     time_to_deserialize <- system.time({
         txt <- content(response, as="text")
         deserialized <- deserialize_content(txt, tags=tags)
-        windowed <- subset(deserialized, timestamp >= start & timestamp <= end) # trim excess
+       # windowed <- subset(deserialized, timestamp >= start & timestamp <= end) # trim excess
+        windowed <- deserialized
     })[3]
     if (verbose) message(format(time_to_deserialize, digits=3), "s to deserialize ", nrow(windowed), " datapoints")
     return(windowed)
-}
\ No newline at end of file
+}