R 保存shiny 的代码嗅探器：避免$ Symbol问题

我想将此代码保存为代码片段:

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textOutput("panel")
    ),
    mainPanel(
      tabsetPanel(
        id = "tabset",
        tabPanel("panel 1", "one"),
        tabPanel("panel 2", "two"),
        tabPanel("panel 3", "three")
      )
    )
  )
)
server <- function(input, output, session) {
  output$panel <- renderText({
    paste("Current panel: ", input$tabset)
  })
}

我用通常的方式做: 工具-全局选项-代码-编辑片段.

snippet my_shiny_tabsetPanel
    ui <- fluidPage(
    sidebarLayout(
    sidebarPanel(
    textOutput("panel")),
    mainPanel(
    tabsetPanel(
    id = "tabset",
    tabPanel("panel 1", "one"),
    tabPanel("panel 2", "two"),
    tabPanel("panel 3", "three")
    ))))
    server <- function(input, output, session) {
    output$panel <- renderText({
    paste("Current panel: ", input$tabset)
    })
    }

然后保存. 当我调用该片段时，我得到:

ui <- fluidPage(
sidebarLayout(
sidebarPanel(
textOutput("panel")),
mainPanel(
tabsetPanel(
id = "tabset",
tabPanel("panel 1", "one"),
tabPanel("panel 2", "two"),
tabPanel("panel 3", "three")
))))
server <- function(input, output, session) {
output <- renderText({
paste("Current panel: ", input)
})
}

请判断output$panel和input$tabset. 发生了什么？

我try 过用\$或用$$逃离$.但没有成功.