计算闪亮应用程序的数据表中符合特定条件的行数

时间:2018-07-10 21:35:10

标签: r shiny dt rhandsontable

我有一个简单的闪亮应用程序:

#ui.r
navbarPage(
  "Application",
  tabPanel("General",
           sidebarLayout(

             sidebarPanel(
               uiOutput("tex2"),
               uiOutput("book1")


              ),
             mainPanel(
               DT::dataTableOutput("hot3"),
               br(),
               rHandsontableOutput("hot5")
             )
           )))

  #server.r
  library(shiny)
library(DT)
library(rhandsontable)
server <- function(input, output,session) {

  output$tex2<-renderUI({
    numericInput("text2","#tests",
                 value = 1,
                 min=1
    )
  })

  output$book1<-renderUI({
    numericInput("bk1", 
                 "Items in test", 
                 value = 1)
  })

  rt1<-reactive({
    data.frame(Sel. = rep(TRUE,input$text2),
               Label=paste("Test",as.integer(1:input$text2)),
               Avail.=as.integer(rep.int(input$bk1,input$text2)),
               Sel =as.integer(rep.int(length(rt2()[,1][rt2()[,1] == TRUE]),input$text2)),
               stringsAsFactors = FALSE)
  })
  output$hot3 <-DT::renderDataTable(
    rt1()

  )


  rt2<-reactive({
    DF=data.frame(
      Sel= rep(TRUE, input$bk1),
      Id= (1:input$bk1),
      Label=paste("Item",1:input$bk1),
      Pf=as.integer(rep.int(0,input$bk1)),
      stringsAsFactors = FALSE
    )
  })
  output$hot5 <-renderRHandsontable({


    rhandsontable(rt2(),width=300,height = 300)


  })
}

如您所见,我有2个numericInput()。上面的一行在上面的数据表中增加了一行,而下面的rhsonsontable中则增加了下一行。我要实现的是计算在流变表的“ Sel”列中选定的复选框的数量,并在数据表的“ Sel”列的每一行中显示此数字。但是现在正在工作。当我取消选择一个复选框时,总和保持不变。

0 个答案:

没有答案