From 837a3e406065d1b7cce9ebde8229734c6632817c Mon Sep 17 00:00:00 2001
From: shikokuchuo <53399081+shikokuchuo@users.noreply.github.com>
Date: Mon, 2 Oct 2023 21:27:29 +0100
Subject: [PATCH] correction

---
 R/daemon.R        | 2 +-
 man/dot-daemon.Rd | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/daemon.R b/R/daemon.R
index 71aeb085a..f545597ee 100644
--- a/R/daemon.R
+++ b/R/daemon.R
@@ -151,7 +151,7 @@ daemon <- function(url, asyncdial = FALSE, maxtasks = Inf, idletime = Inf,
 #' @keywords internal
 #' @export
 #'
-.daemon <- function(url, exitlinger) {
+.daemon <- function(url, exitlinger = 2000L) {
 
   sock <- socket(protocol = "rep", dial = url, autostart = NA)
   on.exit(reap(sock))
diff --git a/man/dot-daemon.Rd b/man/dot-daemon.Rd
index 09ea43cac..4ff6d5dc6 100644
--- a/man/dot-daemon.Rd
+++ b/man/dot-daemon.Rd
@@ -4,7 +4,7 @@
 \alias{.daemon}
 \title{dot Daemon}
 \usage{
-.daemon(url, exitlinger)
+.daemon(url, exitlinger = 2000L)
 }
 \arguments{
 \item{url}{the character host or dispatcher URL to dial into, including the