fix format difference bug

Author: yosuke-yasuda

R/ts_anom_detection.R

@@ -344,8 +344,10 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
 
   # Store expected values if set by user
   if(e_value) {
+    # use the same format with all_anoms[[1]]
+    trend_timestamp <- format(as.POSIXlt(seasonal_plus_trend[[1]], tz="UTC"), format="%Y-%m-%d %H:%M:%S")
     anoms <- data.frame(timestamp=all_anoms[[1]], anoms=all_anoms[[2]], 
-                        expected_value=subset(seasonal_plus_trend[[2]], as.POSIXlt(seasonal_plus_trend[[1]], tz="UTC") %in% all_anoms[[1]]),
+                        expected_value=subset(seasonal_plus_trend[[2]], trend_timestamp %in% all_anoms[[1]]),
                         stringsAsFactors=FALSE)
   } else {
     anoms <- data.frame(timestamp=all_anoms[[1]], anoms=all_anoms[[2]], stringsAsFactors=FALSE)