@@ -505,10 +505,10 @@ parse_tls <- function(tls)
505505libp <- function (lp = .libPaths()) lp [file.exists(file.path(lp , " mirai" ))][1L ]
506506
507507wa2 <- function (url , dots , rs , tls = NULL )
508- shQuote(sprintf(" mirai::daemon(\" %s\" %s%s,rs=c(%s),dispatcher=FALSE )" , url , dots , parse_tls(tls ), paste0(rs , collapse = " ," )))
508+ shQuote(sprintf(" mirai::daemon(\" %s\" ,dispatcher=FALSE %s%s,rs=c(%s))" , url , dots , parse_tls(tls ), paste0(rs , collapse = " ," )))
509509
510510wa3 <- function (url , dots , rs , tls = NULL )
511- shQuote(sprintf(" mirai::daemon(\" %s\" %s%s,rs=c(%s),dispatcher=TRUE )" , url , dots , parse_tls(tls ), paste0(rs , collapse = " ," )))
511+ shQuote(sprintf(" mirai::daemon(\" %s\" ,dispatcher=TRUE %s%s,rs=c(%s))" , url , dots , parse_tls(tls ), paste0(rs , collapse = " ," )))
512512
513513wa4 <- function (urld , dots , rs , n )
514514 shQuote(sprintf(" .libPaths(c(\" %s\" ,.libPaths()));mirai::dispatcher(\" %s\" ,n=%d,rs=c(%s)%s)" , libp(), urld , n , paste0(rs , collapse = " ," ), dots ))
0 commit comments