From 37059282496a1a39b7021f3179c48067b4634099 Mon Sep 17 00:00:00 2001
From: gilbertocamara <gilberto.camara@inpe.br>
Date: Sat, 29 Jun 2024 16:22:53 -0300
Subject: [PATCH] add a new class for samples with base cube

---
 R/api_data.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/api_data.R b/R/api_data.R
index 04a217601..3c740ecfc 100644
--- a/R/api_data.R
+++ b/R/api_data.R
@@ -97,6 +97,7 @@
         )
         # save base data
         ts_tbl[["base_data"]] <- base_tbl[["time_series"]]
+        class(ts_tbl) <- c("sits_base", class(ts_tbl))
     }
     return(ts_tbl)
 }