我有一个简单的闪亮应用程序:
#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”列的每一行中显示此数字。但是现在正在工作。当我取消选择一个复选框时,总和保持不变。