代码之家 › 专栏 › 技术社区 › firmo23

当应用于闪亮的应用程序时,按列名称细分数据帧不会响应

shiny r

firmo23 · 技术社区 · 6 年前

我有一个简单的闪亮的应用程序,我在其中按行选择和按列名选择子集数据帧。在按行进行子集之后,我尝试了3种不同的方法来按列对其进行子集,但数据帧保持不变。更具体地说,我使用了:

keeps <- c("Database","Organism",input$sta)
    #a[, (colnames(a) %in% input$sta)]
    #a[keeps]
    a[ , which(names(a) %in% keeps)]

但似乎没什么用

#data
Database<-c("Composite","DB","TC","RH","DGI","DCH","DCH","DCH","LDP")
Organism<-c("Human","Human","Human","Human","Human","Human","Mouse","Rat","Human")
Unique_Drugs<-c(12672,5130,1425,3090,6100,2019,250,736,1182)
Unique_Targets<-c(3987,2175,842,2308,2413,1441,198,327,702)
Mean_S.D.Targets_per_Drug<-c("5.87 Â± 6.72","2.60 Â± 6.87","2.28 Â± 3.76","3.29 Â± 5.03","3.60 Â± 5.21","6.28 Â± 14.29"
                             ,"1.92 Â± 1.83"
                             ,"4.11 Â± 5.32"
                             ,"4.27 Â± 8.25"
)
Mean_S.D.Drugs_per_Target<-c("11.63 Â± 15.59",
                             "12.52 Â± 23.93",
                             "10.71 Â± 8.37",
                             "12.98 Â± 17.57",
                             "23.44 Â± 25.65",
                             "13.87 Â± 34.23",
                             "8.20 Â± 18.44",
                             "14.82 Â± 9.36",
                             "17.43 Â± 9.34"
)
Unique_Drug_Target_Associations<-c(
45276,
14598,
3599,
12439,
23048,
13872,
594,
2876,
3915)

db<-data.frame(Database,Organism,Unique_Drugs,Unique_Targets,Mean_S.D.Drugs_per_Target,Mean_S.D.Targets_per_Drug, Unique_Drug_Target_Associations)


#ui.r
library(shiny)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
  dashboardHeader(
    title = "Stats Table"
  ),
  dashboardSidebar(
    uiOutput("dbase"),
    tags$hr(),
    uiOutput("stats")



  ),
  dashboardBody(
    DTOutput('tbl')
  )
)
#server.r
library(shiny)
library(shinydashboard)
library(DT)
server <- function(input, output,session) { 
  output$dbase<-renderUI({
    checkboxGroupInput("base", label = "Specify dataset(s)",
                 choices = list("Composite","DB","TC","RH","DGI","DCH","LDP"),
                 selected = c("Composite","DB","TC","RH","DGI","DCH","LDP")
    )
  })
  output$stats<-renderUI({
    checkboxGroupInput("sta", label = "Specify statistic(s)",
                       choices = list("# Unique Drugs"="Unique_Drugs",
                                      "# Unique Targets"="Unique_Targets",
                                      "# Unique Drug-Target Associations"="Unique_Drug_Target_Associations",
                                      "# of Targets per Drug"="Mean_S.D.Targets_per_Drug",
                                      "# of Drugs per Target"="Mean_S.D.Drugs_per_Target"
                       ),
                       selected = c("Unique_Drugs","Unique_Targets","Unique_Drug_Target_Associations","Mean_S.D.Targets_per_Drug","Mean_S.D.Drugs_per_Target")
    )
  })

  df_subset <- reactive({
    a <- subset(db, Database %in% input$base)
    keeps <- c("Database","Organism",input$sta)
    #a[, (colnames(a) %in% input$sta)]
    #a[keeps]
    a[ , which(names(a) %in% keeps)]
    return(a)
  })

  output$tbl = renderDT(
    df_subset(), options = list(lengthChange = FALSE)
  )
  }

1 回复 | 直到 6 年前

bobbel 6 年前

你离得很近。第一个问题是在你的定义中 df_subset ,你使用 a 脚本中的任何其他地方都没有定义。我猜你是想用 db 在那里而不是 一 . 第二个问题是当你 一 ,不再将其分配给 一 当你回来的时候 一 它将不是子集版本。以下是的固定版本 DFH-子集 .

df_subset <- reactive({

  # I stuck to the uncommented version of your subset, but I guess the others will work too
  keeps <- c("Database","Organism",input$sta)

  # assigning the subset of db to tmp
  tmp <- db[ , which(names(db) %in% keeps)]

  # returning tmp
  return(tmp)
})