runGist from inside a function

[helgasoft]

When running a gist from a function like that

fun <- function() {
  if (interactive())
    shiny::runGist('https://gist.github.com/helgasoft/9b377508946b2faecc95ce3b93fbe561')
}
fun()

on exiting/closing the Shiny window, the Console pops some sort of breakpoint
Called from: top level
then after clicking Stop, we get another one
Called from: execCallbacks(timeoutSecs, all, loop$id)
and after stopping again everything is back to normal.
This is confusing to us and the users.
Are we missing something, or just have to live with that ?

Environment is RStudio Version 1.4.1103.
R version 4.0.3 (2020-10-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)

[helgasoft]

Answered here.
It's the RStudio > Debug > On Error > "Break in Code" setting.