bugfix grafico catture mese

uvesco · Oct 23, 2024 · 2dcebe0 · 2dcebe0
1 parent 8ab778f
commit 2dcebe0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pages/pageScripts/catture_graficoCattureMese.R b/pages/pageScripts/catture_graficoCattureMese.R
@@ -7,7 +7,7 @@ controlliGeoTemp <- controlliGeo[, c( taxa$colonne, "Manomissione", "fori", "Ann
 
 # periodo
 
-periodo <- min(trap$Data.posizionamento):max(trap$Data.posizionamento)
+periodo <- min(trap$Data.posizionamento, na.rm=T):max(trap$Data.posizionamento, na.rm=T)
 periodo <- as.Date(periodo, origin = "1970-01-01")
 periodo <- format(periodo, "%Y-%m")
 periodo <- levels(as.factor(periodo))