Increase pipe_notify() grace period

NEWS.md

@@ -2,7 +2,7 @@
 
 #### Updates
 
-* `pipe_notify(flag = tools::SIGTERM)` will now raise the signal with a 100ms grace period to allow a process to exit normally (#212).
+* `pipe_notify(flag = tools::SIGTERM)` will now raise the signal with a 200ms grace period to allow a process to exit normally (#212).
 * `parse_url()` drops 'rawurl', 'host' and 'requri' from the output vector as these can be derived from the other parts.
 
 # nanonext 1.7.1

R/sync.R

@@ -168,7 +168,7 @@ cv_signal <- function(cv) invisible(.Call(rnng_cv_signal, cv))
 #'   If a signal from the \pkg{tools} package, e.g. `tools::SIGINT`, or an
 #'   equivalent integer value is supplied, this sets a flag and additionally
 #'   raises this signal upon the flag being set. For `tools::SIGTERM`, the
-#'   signal is raised with a 100ms grace period to allow a process to exit
+#'   signal is raised with a 200ms grace period to allow a process to exit
 #'   normally.
 #'
 #' @return Invisibly, zero on success (will otherwise error).

src/nanonext.h

@@ -124,7 +124,7 @@ extern int R_interrupts_pending;
 #define NANONEXT_CHUNK_SIZE 67108864 // must be <= INT_MAX
 #define NANONEXT_STR_SIZE 40
 #define NANONEXT_WAIT_DUR 1000
-#define NANONEXT_SLEEP_DUR 100
+#define NANONEXT_SLEEP_DUR 200
 #define NANO_ALLOC(x, sz)                                      \
   (x)->buf = calloc(sz, sizeof(unsigned char));                \
   if ((x)->buf == NULL) Rf_error("memory allocation failed");  \