我试图根据先前的用户输入(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  
<input type='radio' name='r1' value='2'/> Priv </td>
</tr>
</table>
</div>
}
我有一个名为“ all.versions”的矩阵,我想根据用户在input $ version单选组中单击的内容来显示数据。我已经尝试这样做了好几个小时,但遇到了麻烦。如果我只是想显示用户单击的input $ version,那就没有问题。但是,当我尝试基于input $ version访问数据并将其显示为HTML时,会遇到各种错误。我真的很感谢一些指针。