Update heart.R

bhelsel · Dec 15, 2023 · 56e4835 · 56e4835
1 parent 65c18b6
commit 56e4835
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/heart.R b/R/heart.R
@@ -81,7 +81,7 @@ get_fitbit_heart_intraday <- function(token.pathname, start.date = Sys.Date(),
                                             intensity_labels, heart_rate_method, rest.hr, verbose)
 
   if(toSQL){
-    database <- grep(user, list.files(paste0(directory, "/data"), full.names = TRUE), value = TRUE)
+    database <- grep(tkn$user, list.files(paste0(directory, "/data"), full.names = TRUE), value = TRUE)
     con <- DBI::dbConnect(RSQLite::SQLite(), database)
     DBI::dbWriteTable(con, "heart", heart_data, overwrite = TRUE)
     DBI::dbDisconnect(con)