如何在R Markdown中实现代码显示/隐藏的交互式控制？

Hey there! Let's work through this problem together— I’ve run into this exact issue before when trying to add dynamic code visibility to Shiny R Markdown docs.

Why You’re Getting That Error #

The "operation not allowed without a reactive context" error pops up because you’re trying to access a Shiny reactive value (like input$show_code) directly in a regular R code chunk. Regular chunks run during the initial document render, which is a static process, while Shiny’s reactive values only exist in the dynamic, runtime context of a Shiny app.

The Solution: Use Shiny Runtime & Dynamic Outputs #

To make this work, you need to switch your R Markdown document to use the shiny runtime, then use Shiny’s built-in tools to dynamically show/hide code based on the radio button selection. Here’s a complete, working example:

---
title: "Dynamic Code Visibility"
runtime: shiny
output: html_document
---

## Toggle Code Display
Use this radio button to control whether code is shown alongside results:
```{r echo=FALSE}
radioButtons(
  inputId = "show_code",
  label = "Show underlying code?",
  choices = c("Yes" = TRUE, "No" = FALSE),
  selected = FALSE
)

Example Analysis #

Below is a simple data visualization. Toggle the radio button to reveal or hide the code that creates it.

# Use conditionalPanel to show code only when selected
conditionalPanel(
  condition = "input.show_code === true",
  h4("Code for Visualization"),
  verbatimTextOutput("analysis_code")
)

h4("Visualization Result")
plotOutput("analysis_plot")

# Define the code to display
output$analysis_code <- renderPrint({
  code_snippet <- "
# Generate sample data
set.seed(123)
sample_data <- data.frame(
  x = rnorm(100),
  y = rnorm(100)
)

# Create scatter plot
ggplot2::ggplot(sample_data, aes(x, y)) +
  ggplot2::geom_point(color = 'darkgreen') +
  ggplot2::theme_minimal()
"
  cat(code_snippet)
})

# Render the plot
output$analysis_plot <- renderPlot({
  set.seed(123)
  sample_data <- data.frame(
    x = rnorm(100),
    y = rnorm(100)
  )
  
  ggplot2::ggplot(sample_data, aes(x, y)) +
    ggplot2::geom_point(color = 'darkgreen') +
    ggplot2::theme_minimal()
})

Key Notes to Remember #

• Runtime Setting: The runtime: shiny line in the YAML header is non-negotiable— it enables the dynamic Shiny functionality in your R Markdown doc.
• Reactive Context Rules: You can only access input$ values inside Shiny’s reactive functions like render*(), reactive(), or observe(). Regular R chunks don’t count as a reactive context.
• Static vs Dynamic: You can’t use reactive values to control chunk parameters like echo or eval directly— those are set during the initial render. Instead, use tools like conditionalPanel or renderUI to dynamically show/hide pre-rendered code and results.

内容的提问来源于stack exchange，提问作者CharlotteS.