如何在shiny服务器函数中复制反应值

library(shiny)

ui <- fluidPage(
  # UI部分
)

server <- function(input, output) {
  # 创建一个反应式值
  myValue <- reactive({
    # 在这里定义反应式值的计算逻辑
    # 可以使用input$xxx获取输入值
    # 可以使用其他R代码进行计算
    # 返回计算结果
  })
  
  # 在这里可以使用myValue()获取反应式值的当前值
  
  # 复制反应式值
  copiedValue <- reactive({
    myValue()
  })
  
  # 在这里可以使用copiedValue()获取复制的反应式值的当前值
}

shinyApp(ui, server)