PROSAGA码农传奇-R-如何通过向函数添加输出来防止重写闪亮的块？

如何通过向函数添加输出来防止重写闪亮的块？

作者: 林老爷的日常
发布时间: 2024-01-14 11:52:30 (6月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    基本上，您可以尝试将所有动态生成的组件打包到一个函数中，然后在其中调用此函数
     <code>
      renderUI
    </code>
    。请看下面的玩具示例：
  </p>
   <pre>
    <code>
      library(shiny)

server <- function(input, output, session) {

panel1Data <- reactive({
    panelData(1)
  })

createPanel <- function(id) {
    headerID <- paste0("header_", id)
    defID <- paste0("def_", id)
    plotID <- paste0("plot_", id)

res <- list(
      h1(headerID), br(),
      h3(defID), br(),
      h3(paste0(plotID), " goes here.")
    )
    return(res)  
  }
  output$UI <- renderUI({
    createPanel(input$selection)
  })
}

ui <- basicPage(

h3("Using renderUI and uiOutput"),
  selectInput("selection", label="", choices=c("a", "b", "c")),
  uiOutput("UI")
)

shinyApp(ui = ui, server = server)

</code>
  </pre>
  <P>
    这是一个非常好的帖子，显示常见的闪亮技巧：
    <a href =“http://zevross.com/blog/2016/04/19/r-powered-web-applications-with-shiny-a-tutorial-and-cheat-sheet-with-40-example-apps /“rel =”nofollow noreferrer“>
      创建可重用的UI元素
    </A>
  </p>
</DIV>