Use walk()

jennybc · jennybc · commit 4e3faebe6575 · 2026-03-02T15:00:05.000-08:00
diff --git a/R/check-win.R b/R/check-win.R
@@ -165,11 +165,11 @@ submit_winbuilder_ftp <- function(path, version) {
     "/",
     path_file(path)
   )
-  lapply(url, upload_ftp, file = path)
+  walk(url, upload_ftp, file = path)
 }
 
 submit_winbuilder_webform <- function(path, version) {
-  lapply(version, upload_webform, file = path)
+  walk(version, upload_webform, file = path)
 }
 
 confirm_maintainer_email <- function(email, call = parent.frame()) {

Original file line number	Diff line number	Diff line change
`@@ -165,11 +165,11 @@ submit_winbuilder_ftp <- function(path, version) {`
`165`	`165`	`"/",`
`166`	`166`	`path_file(path)`
`167`	`167`	`)`
`168`		`- lapply(url, upload_ftp, file = path)`
	`168`	`+ walk(url, upload_ftp, file = path)`
`169`	`169`	`}`
`170`	`170`
`171`	`171`	`submit_winbuilder_webform <- function(path, version) {`
`172`		`- lapply(version, upload_webform, file = path)`
	`172`	`+ walk(version, upload_webform, file = path)`
`173`	`173`	`}`
`174`	`174`
`175`	`175`	`confirm_maintainer_email <- function(email, call = parent.frame()) {`