在Shiny中使用renderUi中的renderDataTable

Question

我正在尝试使用Shiny App来显示动态上下文,但我无法renderDataTable进入renderUi组件.下面是两个简单的可复制测试:第一个没有工作,第二个没有renderUi工作正常,当然.

这两者之间的概念差异是什么,为什么第一个不能工作Shiny？

这个不起作用:注意uiOutput myTable,包含两个无效组件,a selectInput和a renderDataTable,但只有selectInput渲染.

library(shiny)
runApp(list(
    ui = fluidPage(
            fluidRow(h2("where is the table?")),
            uiOutput('myTable')
    ),
    server = function(input, output) {
            output$myTable <- renderUI({
                    fluidPage(
                            fluidRow(selectInput("test", "test", c(1,2,3))),
                            fluidRow(renderDataTable(iris))
                    )
            })
    }
))

这是好的,既selectInput与renderDataTable呈现:

library(shiny)
runApp(list(
    ui = fluidPage(
            fluidRow(h2("where is the table?")),
            fluidRow(selectInput("test", "test", c(1,2,3))),                
            fluidRow(dataTableOutput('myTable'))
    ),
    server = function(input, output) {
            output$myTable = renderDataTable(iris)
    }
))

如何让第一个场景有效？

谢谢.

易辉评论后的编辑(感谢易辉):

在renderUi必须使用一些ui函数,而不是一些渲染函数:以正确的方式更改示例代码,结果不会改变:仍然没有显示数据.

library(shiny)
runApp(list(
    ui = basicPage(
            uiOutput('myTable')
    ),
    server = function(input, output) {
            output$myTable <- renderUI({dataTableOutput(iris)
            })
    }
))

编辑n.2

刚解决,让它运作如此:

library(shiny)
runApp(list(
    ui = fluidPage(
            mainPanel(

                    uiOutput('myTable')
            )
    ),
    server = function(input, output) {
            output$myTable <- renderUI({
                    output$aa <- renderDataTable(iris)
                    dataTableOutput("aa")
            })
    }
))

我必须renderTableOutput先将输出变量保存在输出变量中,然后将其输入dataTableOutput.

谢谢你指点我:这里

Answer 1

如果将datatablegeneration 和uigeneration的部分分开会更清楚：

library(shiny)
runApp(list(
    ui = fluidPage(
            mainPanel(
                    uiOutput('myTable')
            )
    ),
    server = function(input, output) {
            output$aa <- renderDataTable({iris})
            output$myTable <- renderUI({
                    dataTableOutput("aa")
            })
    }
))