我有一个包含多个表的MySQL数据库。现在,我想在闪亮的仪表板中创建一个下拉菜单,它可以根据表中每一列的唯一值自动添加值。
我当前的代码如下所示
ui <- fluidPage(
numericInput("nrows", "Enter the number of rows to display:", 5),
tableOutput("tbl")
)
server <- function(input, output, session) {
output$tbl <- renderTable({
我试着用闪亮的工具创造一个仪表板。以下是一些示例数据:
###Creating Data
name <- c("Sharon", "Megan", "Kevin")
x <- c(5, 7,3)
y <- c(3,6,2)
z <- c(2,3,7)
jobForm = data.frame(name, x, y, z)
我想弄清楚的是,对于每一行名称,我如何创建自己的表?我相信有一种方法可以创建一个反应性的循环,但我已经做了很长一段时间,并且放弃了。
下面是仪表板对每个名称应该是什么样子的完整代码。这个代码只显示莎伦的分