问题描述
我正在构建一个闪亮的应用程序，用户需要在其中添加一个数字项目向量（我使用了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,"}")))
})
}
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）