Question

我正在尝试构建一个简单的闪亮应用程序，该应用程序将以下结构的数据框作为输入：

A B C D E F G Y
1 1 1 x x x   x
1 2 1 x   x
1 2 2   x x   x
1 2 2   x   x x
2 1 1 x  x  x

我希望能够根据作为复选框给出的列（D，E，F，G和Y）的值来过滤R Shiny中的数据。复选框通过以下方式分组：

Category1 Checkboxes (D, E)
Category2 Checkboxes (F, G, Y)

我实现的一个解决方案是对子集（保留相应的类别列）并将该表转换为长格式，并基于key,value对进行过滤。但是，我正在寻找无需进行转换的解决方案。

有人可以指导我如何实现这一目标吗？

以下是可复制的数据：

dput(test)
structure(list(A = c(1L, 1L, 1L, 1L, 2L), B = c(1L, 2L, 2L, 2L, 
1L), C = c(1L, 1L, 2L, 2L, 1L), D = structure(c(2L, 2L, 1L, 2L, 
2L), .Label = c("", "x"), class = "factor"), E = structure(c(2L, 
1L, 2L, 2L, 1L), .Label = c("", "x"), class = "factor"), F = structure(c(2L, 
1L, 2L, 2L, 2L), .Label = c("", "x"), class = "factor"), G = structure(c(2L, 
1L, 1L, 1L, 1L), .Label = c("", "x"), class = "factor"), Y = structure(c(2L, 
1L, 2L, 1L, 1L), .Label = c("", "x"), class = "factor")), .Names = c("A", 
"B", "C", "D", "E", "F", "G", "Y"), class = "data.frame", row.names = c(NA, 
-5L))

空白仅是NA，这意味着在过滤中不应考虑该列仅包含NA的行。
按以下示例对复选框进行分组：类别1（D和E）表示在此类别中，可以选择D或E，或两者都选择。

当我选中E框时，只有E包含x的行才应保留在过滤后的输出中。

如果我选中另一个框，例如G，则行列表将减少为E和G包含x的行

我希望这可以更好地阐明问题。

这是我的代码：

ui.R

library(shiny)
library(shinythemes)
library(shiny)
library(shinydashboard)
library(shinycssloaders)  
library(plotly)

dashboardPage(skin="blue", dashboardHeader(title = "test"),

              dashboardSidebar(
                sidebarMenu(
                  menuItem("Export Page", tabName = "main", icon = icon("dashboard"))

                )
              ),
              dashboardBody(
                tags$head(
                  tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")
                ),
                #tags$head(tags$link(rel = "icon", type = "image/png", href = "favicon.png"), tags$title("LinkAnalysis")),
                tabItems(
                  tabItem(tabName = "main",
                          sidebarPanel(
                            fluidPage(
                              uiOutput("checkboxes_cat1"),
                              uiOutput("checkboxes_cat2")
                            )
                          ),
                          mainPanel(
                            tableOutput("table")
                          )
                  )
                )
              )
)

server.R

library(shiny)
library(shinythemes)
library(ggplot2)
library(dplyr)


test <- read.table('test.csv', sep=';', header =  T)

shinyServer(function(input, output) {

  output$checkboxes_cat1 <- renderUI({
    return(checkboxGroupInput("cat1", "Category 1", choices = levels(as.factor(colnames(test[4:5])))))
  })

  output$checkboxes_cat2 <- renderUI({
    return(checkboxGroupInput("cat2", "Category 2", choices = levels(as.factor(colnames(test[5:7])))))
  })

  filtered<-reactive({ 


  #d <- test[,input$cat1,drop=FALSE] 
  #d
    #### the filtering should be done here
    test

  })

  output$table<-renderTable({

    filtered()

    })

})

在R Shiny

0 个答案: