devtools::document() tries to delete the sink file without closing the connection

[pehaugedal]

When using devtools::document() with quiet = TRUE the function tries to delete the sink file it creates without closing the connection first. This results in the following error:

Error: [EBUSY] Failed to remove 'C:/Users/username/AppData/Local/Temp/RtmpeeJrTl/file23022c94c04': resource busy or locked

The file in question is created in the following code block, and is set to delete when the function exits:

if (quiet) {
    output <- file_temp()
    on.exit(file_delete(output))
    withr::local_output_sink(output)
}