`parse_multipart()` is very slow for file uploads about ambiorix HOT 4 CLOSED

#' Handle POST on '/upload'
#'
#' @param req Request object.
#' @param res Response object.
#' @export
file_upload <- \(req, res) {
  total_time <- system.time({
    body <- Rook::Multipart$parse(req)
  })

  print(total_time)

  html <- tags$p(
    class = "text-success",
    "File uploaded successfully!"
  )
  res$send(html)
}

#' Handle POST on '/upload'
#'
#' @param req Request object.
#' @param res Response object.
#' @export
file_upload <- \(req, res) {
  content_type <- req$CONTENT_TYPE
  body <- req$rook.input$read()

  postdata <- webutils::parse_http(body, content_type)

  # print the parsed data:
  utils::str(postdata)

  # write the uploaded file locally (POC):
  file_path <- file.path(
    getwd(),
    basename(postdata[["file"]][["filename"]])
  )

  writeBin(object = postdata$file$value, con = file_path)

  html <- tags$p(
    class = "text-success",
    "File uploaded successfully!"
  )
  res$send(html)
}