我想创建一个动态下拉菜单为我的闪亮 Jmeter 板使用r？

ruarlubt 于 2021-06-24 发布在 Mysql

关注(0)|答案(1)|浏览(447)

我有一个包含多个表的mysql数据库。现在我想在shiny dashboard中创建一个下拉菜单，根据表中每列的唯一值自动添加值。
我当前的代码如下所示

ui <- fluidPage(
  numericInput("nrows", "Enter the number of rows to display:", 5),
  tableOutput("tbl")
)

server <- function(input, output, session) {
    output$tbl <- renderTable({
        conn <- dbConnect(
      drv = RMySQL::MySQL(),
      dbname = "apilogs",
      host = "localhost",
      username = "root",
      password = "root")
        on.exit(dbDisconnect(conn), add = TRUE)
        dbGetQuery(conn, paste0("SELECT * FROM logs where key = 'agc' LIMIT ", input$nrows, ";"))

    })
}

现在，对于我闪亮的 Jmeter 板，我想基于logs表的列的值创建一个下拉菜单。

dashboardSidebar(
        selectInput("Filter", "Filter:",
                  choices = c())
  )

现在在这里 choices 我希望根据表列动态地获得选择。我该怎么做。

mysql r shiny

来源：https://stackoverflow.com/questions/49789535/i-want-to-create-a-dynamic-dropdown-menu-for-my-shiny-dashboard-using-r

1条答案

按热度按时间

alen0pnh1#

我认为，你应该创建一个独特的价值观列表如下：

unique_values <- sort(unique(table_name$column_name))

然后您可以使用它进行选择：

selectInput("filter", "Filter:", choices = unique_values)

对于动态下拉菜单，您可以使用本指南，其主要思想是在ui部分创建以下内容：

ui <- dashboardPage(
  dashboardHeader(title = "Dropdowns 2.0",
    dropdownMenuOutput("dropdownMenuDynamic")
  )
)

你还需要这样做：

size <- length(output$filter)
tasks <- vector("list", size)
for(i in 1:length(tasks)) { 
  tasks[[i]] <- list(
    value = 10,
    color = "yellow",
    text = output$filter[[i]]
  ) 
}

最后一部分是在服务器端创建DropDownMenuDynamic：

output$dropdownMenuDynamic <- renderMenu({
    items <- lapply(tasks, function(el) {
      taskItem(value = el$value, color = el$color, text = el$text)
    })
    dropdownMenu(
      type = "tasks", badgeStatus = "danger",
      .list = items
    )
  })

赞(0）回复(0）举报 2021-06-24

我来回答

我想创建一个动态下拉菜单为我的闪亮 Jmeter 板使用r？

1条答案

相关问题

热门标签

最新问答