问题描述
我正在构建一个闪亮的应用程序,用户需要在其中添加一个数字项目向量(我使用了renderDT),该向量应该用于计算另一个renderDT中的列值。有没有一种方法可以使用arates1 [i,2]计算arates2 [i,1]。下面的代码不允许这样做。有解决这个问题的想法吗?
ui <- navbarPage("Calculator",tabPanel("allocate",fluidRow(
column(2,wellPanel(
numericInput(inputId = "nsamp",label = "Total sample size",min = 10,max = 1000000,value = 100),numericInput(inputId = "Nstrata",label = "Number of Strata",min = 1,max = 500,value = 10)
)),# Output:
column(2,DTOutput("tbl")
),column(5,DTOutput("tb2")
)
)
))
server <- function(input,output,session)
{
output$tbl <- renderDT({
Nstrata <- as.numeric(input$Nstrata)
RSE_ <- rep(0,Nstrata)
arates1 <- matrix(0,nrow = Nstrata,ncol = 2)
dimnames(arates1) <- list(NULL,c("ID","population"))
for (i in seq_along(RSE_)) {
arates1[i,1] <- i
arates1[i,2] <- 0
}
datatable(arates1,class = 'cell-border stripe',options = list(dom = 't',pageLength = Nstrata,initComplete = JS(
"function(settings,json) {","$(this.api().table().header()).css({'background-color': '#000','color': '#fff'});","}")),editable = TRUE)
})
output$tb2 <- renderDT({
Nstrata <- as.numeric(input$Nstrata)
RSE_ <- rep(0,Nstrata)
arates2 <- matrix(0,ncol = 1)
dimnames(arates2) <- list(NULL,c("allocation"))
for (i in seq_along(RSE_)) {
arates2[i,1] <- input$nsamP*arates1[i,2]
}
datatable(arates2,"}")))
})
}
解决方法
如果使第一个数据帧成为反应性数据,则可以使用它。请尝试这个。
library(data.table)
ui <- navbarPage("Calculator",tabPanel("allocate",fluidRow(
column(2,wellPanel(
numericInput(inputId = "nsamp",label = "Total sample size",min = 10,max = 1000000,value = 100),numericInput(inputId = "Nstrata",label = "Number of Strata",min = 1,max = 500,value = 10)
)),# Output:
column(2,DTOutput("tb1")
),column(3,DTOutput("tb2")
)
)
))
server <- function(input,output,session) {
Nstrata <- reactiveVal(0)
arates <- reactiveValues(data=NULL)
observe({
req(input$Nstrata)
Nstrata(input$Nstrata)
arates1 <- matrix(0,nrow = req(input$Nstrata),ncol = 2)
dimnames(arates1) <- list(NULL,c("ID","population"))
for (i in (1:Nstrata())) {
arates1[i,1] <- i
arates1[i,2] <- i*i
}
arates$data <- arates1
})
output$tb1 <- renderDT({
req(Nstrata())
#Nstrata <- as.numeric(input$Nstrata)
datatable(arates$data,class = 'cell-border stripe',options = list(dom = 't',pageLength = Nstrata(),initComplete = JS(
"function(settings,json) {","$(this.api().table().header()).css({'background-color': '#000','color': '#fff'});","}")),editable = TRUE)
})
observeEvent(input$tb1_cell_edit,{
info = input$tb1_cell_edit
str(info)
i = info$row
j = info$col + 1 # column index offset by 1
v = info$value
arates$data[i,j] <<- DT::coerceValue(v,arates$data[i,j])
})
output$tb2 <- renderDT({
arates2 <- matrix(0,nrow = Nstrata(),ncol = 1)
dimnames(arates2) <- list(NULL,c("allocation"))
arates2[,1] <- arates$data[,2]*input$nsamp
datatable(arates2,"}")))
})
}
shinyApp(ui = ui,server = server)