edit request time graphics

Dashboard/R/Registry_contact_request_timeserie.R

@@ -11,8 +11,7 @@ contact_requests <- fredlog_requests %>%
   summarise(requests = sum(requests)) %>%
   ungroup() %>%
   filter(
-    stringr::str_starts(request_type, "Contact"),
-    # !request_type %in% c("ContactSendAuthInfo", "ContactInfo", "ContactCheck")
+    stringr::str_starts(request_type, "Contact")
   ) %>%
   mutate(request_type = stringr::str_remove_all(request_type, "Contact")) %>%
   spread(request_type, requests)
@@ -58,7 +57,7 @@ details(
 
 
 contact_requests %>%
-  plot_ly() %>%
+  plot_ly(connectgaps = TRUE) %>%
   add_trace(
     x = ~ts,
     y = ~Check,

Dashboard/R/Registry_domain_request_timeserie.R

@@ -11,8 +11,7 @@ domain_requests <- fredlog_requests %>%
   summarise(requests = sum(requests)) %>%
   ungroup() %>%
   filter(
-    stringr::str_starts(request_type, "Domain"),
-    # !request_type %in% c("DomainSendAuthInfo", "DomainInfo", "DomainCheck")
+    stringr::str_starts(request_type, "Domain")
   ) %>%
   mutate(request_type = stringr::str_remove_all(request_type, "Domain")) %>%
   spread(request_type, requests)
@@ -61,7 +60,7 @@ details(
 )
 
 domain_requests %>%
-  plot_ly() %>%
+  plot_ly(connectgaps = TRUE) %>%
   add_trace(
     x = ~ts,
     y = ~Check,