Question

我编写了一个闪亮的应用程序，但计算结果完全错误:(。

我有一个data.frame：

          Label V1      V2
1 Begeisterung    6      3
2        Basis    2      4
3     Leistung    5      4
4  Indifferent    4      6
5      Reverse    0      0
6  Fragwuerdig    1      1

我必须计算“V1和”V2的分数。这可以通过以下代码完成：

CS_Minus1 <- (Ergebnis[2,2] + Ergebnis[3,2]) / ((-1)*(Ergebnis[1,2] + Ergebnis[2,2] + Ergebnis[3,2] + Ergebnis[4,2]))
CS_Minus2 <- (Ergebnis[2,3] + Ergebnis[3,3]) / ((-1)*(Ergebnis[1,3] + Ergebnis[2,3] + Ergebnis[3,3] + Ergebnis[4,3]))

结果是： -0.4117647 -0.4705882

当我在正常R中计算时，绝对可以正常工作。在闪亮的我只收到 -0.4117647 0

我完全没有线索，为什么闪亮的结果不同。

编辑：闪亮代码

output$tb <- renderUI({
    if(is.null(datensatz())){
      return ()
    } else
      tabsetPanel(tabPanel("About file", tableOutput("filedf")),tabPanel("CS Koeffizienten", DT::dataTableOutput("table")), 
                  tabPanel("Faktoren", DT::dataTableOutput("table2")), tabPanel("Plot", highchartOutput("table3")), tabPanel("Interpretation", htmlOutput("interpret")))
  })
})

如果我使用此代码，我会得到错误的值。

      output$tb <- renderUI({
      tabsetPanel(tabPanel("About file", tableOutput("filedf")),tabPanel("CS Koeffizienten", DT::dataTableOutput("table")), 
                  tabPanel("Faktoren", DT::dataTableOutput("table2")), tabPanel("Plot", highchartOutput("table3")), tabPanel("Interpretation", htmlOutput("interpret")))
  })
})

如果我只是在没有条件的情况下渲染我的UI，一切正常，我可以看到所有正确的val。我不明白为什么，对我来说，没有任何意义。对我来说似乎是一个错误。

R-Shiny在DataTable中呈现错误的结果

0 个答案: