代码之家 › 专栏 › 技术社区 › Vector JX

如何在shiny中传递dataframe以在R中创建仪表板

shiny r

Vector JX · 技术社区 · 6 年前

我在下面提到了R中的数据帧。

ID        Date                   Value        Result
KK-112    2018-07-01 15:37:45    ACR          Pending
KK-113    2018-07-05 18:14:25    ACR          Pass
KK-114    2018-07-07 13:21:55    ARR          Accepted
KK-115    2018-07-12 07:47:05    ARR          Rejected
KK-116    2018-07-04 11:31:12    RTR          Duplicate
KK-117    2018-07-07 03:27:15    ACR          Pending
KK-118    2018-07-18 08:16:32    ARR          Rejected
KK-119    2018-07-21 18:19:14    ACR          Pending

使用上面提到的dataframe,我在R中创建了下面提到的pivot dataframe。

Value      Pending   Pass    Accepted   Rejected   Duplicate
ACR          3        1         0          0          0
ARR          0        0         1          2          0
RTR          0        0         0          0          0

我只是想在这里得到一点帮助来理解我如何使用 Date

我使用下面提到的示例代码来传递数据帧,但它不起作用。

library(shiny)
library(dplyr)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)
server <- function(input, output) {

Date<-Dev1$Date

{
Pivot<-dcast(Dev1, Value ~ Result, value.var="ID", 
             fun.aggregate=length)

Pivot$Total<-rowSums(Pivot[2:3])

}
 }
shinyApp(ui, server)

1 回复 | 直到 6 年前

clemens 6 年前

你可以用 tableHTML

tableHTML_output() 到您的UI以显示表:

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tableHTML_output("mytable")
  )
)

在服务器中,创建中的对象 render_tableHTML() . 您可以调整表的外观,查看渐晕图了解详细信息。

server <- function(input, output) {

  Date<-Dev1$Date

  {
    output$mytable <- render_tableHTML( {
      Pivot<-data.table::dcast(Dev1, Value ~ Result, value.var="ID", 
                               fun.aggregate=length)

      Pivot$Total<-rowSums(Pivot[2:3])

      Pivot %>% 
        tableHTML(rownames = FALSE,
                  widths = rep(80, 7))
    })


  }
}
shinyApp(ui, server)

最终结果如下:

推荐文章

Navi · if语句在函数中不能解释为逻辑语句

2 年前

Lev · 指定checkboxGroupInput中行之间的填充

2 年前

emr2 · 如何根据屏幕上的文本输入更新SelectizeInput

2 年前

TarJae · 渲染徽标。pdf输出的页眉中的png-Rmarkdown

2 年前

hugh_man · 过滤和调整数据表

2 年前

Anxofs · 在进行全局搜索时,对于大型矩阵(50K行x 15列),DT非常慢

2 年前

firmo23 · 基于另一个updateselectInput()的值更新updateselectInput()

2 年前

anorlondo · 将传单弹出窗口保持在视图中(R)

2 年前

hugh_man · 尝试应用条件筛选器时出错

2 年前

epam employee · renderUI不适用于fillPage

6 年前