update data attribute

kadyb · Oct 16, 2024 · 30922db · 30922db
1 parent 8d7549f
commit 30922db
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/DEM_request.R b/R/DEM_request.R
@@ -63,7 +63,7 @@ DEM_request = function(x) {
                         #modul_arch = character(),
                         uklad_h = character(),
                         #nr_zglosz = character(),
-                        akt_data = numeric(),
+                        akt_data = character(),
                         czy_ark_wypelniony = character(),
                         #dane_aktualne = integer(),
                         #lok_nmt = character(),
@@ -121,7 +121,7 @@ DEM_request = function(x) {
                             labels = c("DSM", "DTM", "PointCloud"))
   empty_df$CRS = as.factor(empty_df$CRS)
   empty_df$VRS = as.factor(empty_df$VRS)
-  empty_df$date = as.Date(as.POSIXct(empty_df$date / 1000, origin = "1970-01-01", tz = "CET"))
+  empty_df$date = as.Date(empty_df$date, format = "%Y-%m-%d")
   empty_df$isFilled = ifelse(empty_df$isFilled == "TAK", TRUE, FALSE)
   empty_df$source = factor(empty_df$source,
                            levels = c("Skaning laserowy", "Zdj. lotnicze"),

diff --git a/R/ortho_request.R b/R/ortho_request.R
@@ -52,7 +52,7 @@ ortho_request = function(x) {
 
   # initial empty df (columns must be identical as in 'selected_cols')
   empty_df = data.frame(godlo = character(),
-                        akt_rok = integer(),
+                        akt_rok = character(),
                         piksel = numeric(),
                         kolor = character(),
                         zr_danych = character(),
@@ -114,7 +114,7 @@ ortho_request = function(x) {
                          "sensor", "CRS", "date", "isFilled", "URL",
                          "filename", "seriesID")
   empty_df$composition = as.factor(empty_df$composition)
-  empty_df$date = as.Date(as.POSIXct(empty_df$date / 1000, origin = "1970-01-01", tz = "CET"))
+  empty_df$date = as.Date(empty_df$date, format = "%Y-%m-%d")
   empty_df$CRS = as.factor(empty_df$CRS)
   empty_df$isFilled = ifelse(empty_df$isFilled == "TAK", TRUE, FALSE)
   empty_df$sensor = factor(empty_df$sensor,