Ошибка при попытке отобразить текст внутри модуля HTML в Shiny - PullRequest
Новая
       10

Ошибка при попытке отобразить текст внутри модуля HTML в Shiny

0 голосов
/ 07 сентября 2018

Я пытаюсь отобразить различные данные в жестко закодированной таблице HTML в Shiny на основе предыдущего пользовательского ввода (input $ version). Основной код следующий: 

    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. Я пытался делать это часами, и я застрял. Если я просто хочу показать входную $ версию, на которую нажал пользователь, это не проблема. Но когда я пытаюсь получить доступ к данным на основе входной $ version и показать их в HTML, я получаю всевозможные ошибки. Буду очень признателен за некоторые советы.

...