Running 'spelling.R' [0s]
  Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(starter)
  > 
  > test_check("starter")
  v Using "Default Project Template" template
  v Writing folder 'D:/temp/2026_06_06_01_50_00_18785/RtmpEv0Mqn/My Project Folder with symlink'
  v Writing files "README.md", ".gitignore", and "My Project Folder with symlink.Rproj"
  Ihre Berechtigungen reichen nicht aus, um diesen Vorgang auszuführen.
  Der Befehl "cscript" ist entweder falsch geschrieben oder
  konnte nicht gefunden werden.
  Saving _problems/test-create_project-16.R
  x Argument a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, ..., y, and z must be a string of length one.
  x 'D:/RCompile/CRANpkg/lib/4.6/starter' is an existing folder, and symbolic link cannot be placed.
  x 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', ..., 'y', and 'z' is not an existing directory path.
  * Update the to argument and re-run `create_symlink()`.
  x 'D:/RCompile/CRANpkg/lib/4.6/starter/rstudio/addins.dcf' is not an existing directory path.
  * Update the to argument and re-run `create_symlink()`.
  [ FAIL 1 | WARN 2 | SKIP 0 | PASS 10 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-create_project.R:6:3'): create_project() works ─────────────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `.subset2(cnd, "rlang")`: subscript out of bounds
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-create_project.R:6:3
    2. │ └─testthat:::expect_condition_matching_(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─starter::create_project(...)
    8. │ ├─R.utils::createLink(...)
    9. │ └─R.utils::createLink.default(...)
   10. │   ├─R.oo::throw(msg)
   11. │   └─R.oo::throw.default(msg)
   12. │     ├─R.oo::throw(Exception(...))
   13. │     └─R.oo::throw.Exception(Exception(...))
   14. │       └─base::signalCondition(this)
   15. └─testthat (local) `<fn>`(`<Exceptin>`)
   16.   └─rlang::cnd_entrace(cnd)
   17.     └─rlang:::cnd_some(cnd, function(x) !is_null(x[["trace"]]))
  
  [ FAIL 1 | WARN 2 | SKIP 0 | PASS 10 ]
  Error:
  ! Test failures.
  Execution halted