R code outline not working in shiny moduleServer

[dleopold]

System details:

Ubuntu 22.04

Positron and OS details:

Positron Version: 2025.02.0 build 79
Code - OSS Version: 1.96.0
Commit: a268bc8
Date: 2025-01-21T02:33:47.538Z
Electron: 32.2.6
Chromium: 128.0.6613.186
Node.js: 20.18.1
V8: 12.8.374.38-electron.0
OS: Linux x64 6.9.3-76060903-generic

Interpreter details:

R 4.4.2

Describe the issue:

Code sections do not show up in the outline for section headers within a shiny module.

Steps to reproduce the issue:

A minimal server function for a shiny module:

shiny_module_server <- function(id, rv) {
  # A header ----

  moduleServer(id, function(input, output, session) {

    # An internal header ----

  })
}

Code section headers work, but only outside moduleServer():

Expected or desired behavior:

Headers inside the moduleServer() function should be included in the outline

[juliasilge]

Here is another example:

foo <- function(a) {
  # A header ----

  lapply(a, function(x, y, z) {

    # Another header ----

  })
}