Maybe generate the url outside of lapply? 

```
url <- paste0("ftp://win-builder.r-project.org/", version, "/", basename(built_path))
lapply(url, ftpUpload, what = built_path)
```