Question

我将ui组件存储在数据框或向量中作为字符。

chr <- "fluidRow( numericInput(inputId='a'), numericInput(inputId='b') ) "

我想将角色渲染为闪亮的ui。我试过了：

server.r

shinyServer(function(input, output, session) {
    output$ui <- renderUI({   
      eval(parse(text=chr))
    })

})

ui.r

shinyUI(fluidPage(
    uiOutput("ui")
    )
)

Answer 1

首先，非常酷的主意。您的代码问题实际上不在您的eval parse方法中，而是在您的数字输入参数中。他们缺少value和label输入。

尝试：

server.R

chr <- "numericInput(inputId='a', value = 1, label = 1)" 

shinyServer(function(input, output, session) {
  output$ui <- renderUI({   
    eval(parse(text=chr))
  })

})

ui.R

shinyUI(fluidPage(
  uiOutput("ui")
)
)

[r] [有光泽]如何从字符串渲染ui？

1 个答案: