尝试在Shiny的HTML模块内呈现文本时出错

时间:2018-09-07 17:34:48

标签: html r input shiny reactive

我试图根据先前的用户输入(input $ version)在Shiny的HTML硬编码表中显示不同的数据。基本代码如下:

    ui <– fluidPage(
      useShinyjs(),

      titlePanel(
        div(
            p("Some text"), align="center")

      ), #end title panel


      #Version
      radioButtons("version", "Version",
                   c("1" = 1,
                     "2" = 2,
                     "3" = 3,
                     "4" = 4,
                     "5" = 5,
                     "6" = 6),
                   selected = character(0), inline=TRUE),
 uiOutput("tarjetas"))

server <- function(input, output) {
  output$tarjetas <-   renderUI(HTML(paste0("
           <div class='shiny-html-output'>
           <table>
            <thead>
             <tr>
               <th>Nº Tarjeta</th>
               <th>Eleccion</th>
             </tr>
            </thead>
            <tbody>
             <tr role='row' class='shiny-input-radiogroup shiny-bound-input' id='r1'>
               <td><p>",all.versions[input$version,1],"</p></td>
               <td> <input type='radio' name='r1' value='1'/> Pub &emsp;
                 <input type='radio' name='r1' value='2'/> Priv </td>
             </tr>
        </table>
        </div>
}

我有一个名为“ all.versions”的矩阵,我想根据用户在input $ version单选组中单击的内容来显示数据。我已经尝试这样做了好几个小时,但遇到了麻烦。如果我只是想显示用户单击的input $ version,那就没有问题。但是,当我尝试基于input $ version访问数据并将其显示为HTML时,会遇到各种错误。我真的很感谢一些指针。

0 个答案:

没有答案