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 +}