From 39a559637ad379fbba3a90d60c9b968d85fec023 Mon Sep 17 00:00:00 2001
From: "David H. Hagan" <david.hagan@quant-aq.com>
Date: Wed, 30 Aug 2023 19:23:11 -0400
Subject: [PATCH] Patched issue with data-by-date call

---
 R/wrappers.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/wrappers.R b/R/wrappers.R
index 0a6d94c..1936d95 100644
--- a/R/wrappers.R
+++ b/R/wrappers.R
@@ -191,7 +191,7 @@ get_data <- function(sn, limit = 1000, start = NULL, stop = NULL, filter = NULL,
 #'
 #' @export
 get_data_by_date <- function(sn, date, raw = FALSE){
-  endpoint <- paste("devices", "sn", "data-by-date", sep = "/")
+  endpoint <- paste("devices", sn, "data-by-date", sep = "/")
 
   if(raw){
     endpoint <- paste(endpoint, "raw", sep="/")