rm stale commented code

R/pkgDep3.R

@@ -764,37 +764,6 @@ updateWithRemotesNamespaceAddRepos2 <- function(pkgDT, which, purge, includeBase
   out1 <- out$lis
   names(out1) <- out$packageFullName
   return(out1)
-  # neededV <-
-  #   try(DESCRIPTIONFileDepsV(pkgDT[["DESCFile"]], which = which, purge = purge))
-  # if (is(neededV, "try-error")) {
-  #   unlink(pkgDT[["DESCFile"]])
-  #   unlink(pkgDT$destFile)
-  #   set(pkgDT, NULL, c("DESCFile", "destFile"), NULL)
-  #   browserDeveloper(paste0("A problem occurred installing ", pkgDT$packageFullName, ". Does it exist?",
-  #                           "\nTo confirm whether it exists, try browsing to ",
-  #                           file.path("https://github.com", pkgDT$Account, pkgDT$Package, "tree", pkgDT$Branch),
-  #                           "\nIf it does exist, try rerunning with `purge = TRUE`",
-  #                           "\nIf this error is inaccurate, and the problem persists, ",
-  #                           "please contact developers with error code 949"))
-  # }
-  #
-  # neededAdditionalReposV <- DESCRIPTIONFileOtherV(pkgDT[["DESCFile"]], other = "Additional_repositories")
-  #
-  # neededRemotesV <-
-  #   DESCRIPTIONFileDepsV(pkgDT[["DESCFile"]], which = "Remotes", purge = purge)
-  # names(neededV) <- pkgDT$packageFullName
-  #
-  # Map(
-  #   needed = neededV, neededRemotes = neededRemotesV,
-  #   localVersionOK = pkgDT$installedVersionOK,
-  #   neededAdditionalRepos = neededAdditionalReposV,
-  #   localPackageName = pkgDT$Package,
-  #   packageFullName = pkgDT$packageFullName,
-  #   sha = pkgDT$shas,
-  #   MoreArgs = list(includeBase = includeBase, verbose = verbose,
-  #                   pkgDT = pkgDT),
-  #   uwrnar
-  # )
 }