report download fixed
This commit is contained in:
9
ui.R
9
ui.R
@@ -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 ----
|
||||
|
||||
Reference in New Issue
Block a user