report download fixed

This commit is contained in:
2026-04-16 09:18:14 +02:00
parent 7a8cb96b2a
commit 0103b70ec2
8 changed files with 479 additions and 45 deletions

9
ui.R
View File

@@ -27,7 +27,7 @@ function(req) {
h5("\n\n\n Author: Franz Innerbichler, InnerAnalytics")),
div(id="parameter",
column(1,style = "background: lightgrey",
actionButton("StartCalc", "Click, when calculations to be started"),
#actionButton("StartCalc", "Click, when calculations to be started"),
h4("curve settings"),
numericInput("lowAsymptREF", "lower asymptote REF",10,step=1,min=0),
numericInput("lowAsymptTEST", "lower asymptote TEST",10,step=1,min=0),
@@ -92,7 +92,7 @@ function(req) {
tableOutput("FileSAmpl"),
downloadButton("downloadXLReport", label="Download PDF report", class="butt"),
tags$style(type="text/css","#downloadXLReport {background-color: orange; color: black;font-family: COurier New}"),
plotOutput("relPotTestPlot", width="300px", height="150px"),
plotOutput("relpotTestPlot", width="300px", height="150px"),
h4("Akaike Information Criterion"),
tableOutput("AIC"),
h5("First row: restricted model; 2nd row: unrestricted model"),
@@ -137,14 +137,15 @@ function(req) {
DT::dataTableOutput("pottab4pl"),
"Footnote: test performed on absolute CIs."),
column(6,
DT::dataTableOutput("secondary"),
DT::dataTableOutput("secondary"), # SSTs
h5("*...The estimate for F-test on regression and on non-linearity is the p-value"),
h5("F-test on regression passes if F-value > F-crit and thus p < 0.05"),
h5("F-test on non-linearity passes if F-value < F-crit and thus p > 0.05"),
h5("Test results outcome: 0 ... test passed (for EQ tests: CI within limits);
1 ... test failed (for EQ tests CI not within limits);
-1 ... calculations unbound/denominator too close to 0"),
plotOutput("CIplot, height=50%"))
#plotOutput("CIplot, height=50%")
)
))
),
#### Linear PLA ----