renv::status() returns Error in seq_len(length(splat) - 1) :

Question

I ran

renv::status()

and got back:

Error in seq_len(length(splat) - 1) : 
  argument must be coercible to non-negative integer

I tried traceback() and got back:

f(n[[i]], x[[i]], ...)
7: FUN(X[[i]], ...)
6: lapply(idx, callback)
5: enumerate(fields, function(section, entries) {
       splat <- strsplit(section, "/", fixed = TRUE)[[1]]
       for (i in seq_len(length(splat) - 1)) {
           k <- splat[1:i]
           if (is.null(data[[k]])) 
               data[[k]] <<- list()
       }
       data[[splat]] <<- entries
   })
4: renv_lockfile_read(lockpath)
3: renv_status_check_missing_lockfile(project, lockpath)
2: renv_status_impl(project, libpaths, lockpath, cache)
1: renv::status()

Where do I begin troubleshooting?

P.S. I am on Windows 10 and R 4.0.4

Update Here is renv.lock file

renv.lock