fix bug by_region FFT

src/emote-tk.R

@@ -1367,8 +1367,8 @@ EMOTE_FFT = function(count_table = NULL,
       summarise(value = median(count_norm_sum), .groups = "drop")
     
     # Add 0 to missing positions
-    metaC_tot = tibble(reg = "start", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = q25+1, value = 0) %>% 
-      rbind(tibble(reg = "stop", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = q25+1, value = 0)) %>% 
+    metaC_tot = tibble(reg = "start", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = as.integer(q25+1), value = 0) %>% 
+      rbind(tibble(reg = "stop", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = as.integer(q25+1), value = 0)) %>% 
       uncount(width) %>%
       mutate(dist_to = c(rep(0:q25, nrow(feature_spaned_tb)),rep(-q25:0, nrow(feature_spaned_tb)) )) %>%
       anti_join(metaC, by = c("start","strand","reg","dist_to")) %>% rbind(metaC) %>%