一种将数据框嵌入具有rshiny中可点击值的表的值的方法

时间:2018-10-12 13:18:53

标签: r shiny shiny-reactivity

我从不同的来源收集了一些数据,现在我有一个大的数据框,其中充满了第一列中的路径名称以及各列中的一些分数。现在,我想构建一个rshiny工具,该工具允许用户单击某些值(例如途径名称),并获得带有数据框的新页面/标签,其中包含有关所单击的特定途径名称的详细信息。我已经在工作区中拥有所有信息/数据框,但不知道如何制作交互式rshiny工具以使其他用户可以访问它。

一个更大的问题是rshiny是否可以处理这种情况。

在使用数据框信息为您提供交互式图形等之前,我已经构建了rshiny工具,但从未使用过交互式数据框工具。任何线索都会有所帮助。谢谢!

以下是df

的示例
df1 <- as.data.frame(matrix(c("PathwayX","10","5","3","PathwayY","30","8","6","PathwayZ","20","6","2"), ncol = 4,byrow =T))
colnames(df1) <- c("PathwayName","Score1","Score2","Score3")

pathwayX <- as.data.frame(matrix(c("OrganismA","xxx2","xxx1","xxx3","xxx6","xxx7","xxx10","xxx19","0.20","0.30",
          "OrganismB","xxx2","xxx1","xxx3","xxx6","xxx7","xxx10","xxx19","0.40","0.50"),nrow = 2, byrow = T)) 
colnames(pathwayX) <- c("OrganismName","Gene","Gene","Gene","Gene","Gene","Gene","Gene","Score1","Score2")

我希望能够在rshiny表df1上单击“ PathwayX”,然后弹出一个新页面或一个带有df2的标签。我希望这会有所帮助。

1 个答案:

答案 0 :(得分:0)

您可以从DT包创建数据表,并通过observeEvent()查找input $ datatableName_rows_selected的数据表,这将为您提供所选行的行号(但如果将数据表中的选择选项更改为“单”,则始终得到一个数字)。接下来,可以对需要的数据使用showModal(modalDialog())(将新的数据表放入模式或任何需要的数据中)。