report download fixed

server.R

@@ -1056,7 +1056,7 @@ function(input,output, session) {
           colnames(pot_est) <- c("estimate","lowerCI","upperCI")
           colnames(potU_est) <- c("estimate","lowerCI","upperCI")
         } else {
-          FitAnova <- anova(lm(readout ~ factor(log_dose)*isSample, circ_ABl))
+          FitAnova <- anova(lm(readout ~ factor(log_dose)*isSample, all_l))
           meanPureErr <- FitAnova[4,3]
           DFsPure <- FitAnova[4,1]
           VCOV <- vcov(mr)
@@ -1239,7 +1239,7 @@ function(input,output, session) {
         
         # "log relative potency", "log lower CI", "log upper CI", round(logpotest, 3), round(compParm(potu, "c", display = F), 3)
         
-        outputcoeffs_unr <- renderTable({
+        output$coeffs_unr <- renderTable({
           UnRPLAausw
         })
         
@@ -1325,7 +1325,7 @@ function(input,output, session) {
         REP$XLdat2 <- XLdat2
         
         # --- Diagnose-Plots (Residualanalyse) ---
-        output$diagplot <- renderPlot({
+        output$diagnplot <- renderPlot({
           op <- par(mfrow = c(1, 2), mar = c(3.2, 3.2, 2, .5), mgp = c(2, .7, 0)) 
           
           # 1. Residuals vs Fitted
@@ -1543,8 +1543,8 @@ function(input,output, session) {
   })
   
   #### Testergebnisse ----
-  #observe({
- observeEvent(input$StartCalc,{  
+  observe({
+ #observeEvent(input$StartCalc,{  
     PureErrFlag <- input$PureErr
     warning_text3 <- reactive({
       ifelse(PureErrFlag, 'Pure error selected','')
@@ -1577,7 +1577,7 @@ function(input,output, session) {
                      target='row',
                      backgroundColor = styleEqual(c(-1,0,1),
                               c("pink",'lightgreen','lightgrey')))
-  browser()
+  #browser()
   output$secondary <- DT::renderDataTable({ dat})
   
   output$EQtests <- DT::renderDataTable( dat, options = list(lengthChange=FALSE) )
@@ -2249,7 +2249,7 @@ function(input,output, session) {
   #### download XL report----
   
   output$downloadXLReport <- downloadHandler(
-    filename= paste0("Report_4PLEvaluation", input$iFile,".pdf"),
+    filename= paste0("Report_4PLEvaluation", Dat$FileName,".pdf"),
     
     content = function(file) {
       tpdr <- tempdir()