Change of calc position

2019-02-07 15:43:34 +00:00
parent fc86790b9d
commit bfb1afbd3b
2 changed files with 2 additions and 221 deletions
--- a/app.R
+++ b/app.R
@@ -48,8 +48,8 @@ ui<-dashboardPage(
             fluidRow(
              column(width=2,
                h4('Pressure Test'),
-                uiOutput("pressureList"),
-                actionButton("calcAB", icon('calculator'))
+                actionButton("calcAB", "Calc"),
+                uiOutput("pressureList")
              ),
              column(width=10, 
                h4('Effect on bio-assemblage'),
@@ -233,7 +233,6 @@ server <- function(input, output, session) {
      sampleDists <- cpdist(
        fitted = modelList[[.selections$model]][[layer]]$cfit,
        nodes = bnlearn::nodes(modelList[[.selections$model]][[layer]]$cfit),
-        #evidence = eval(parse(text = expr)),
        evidence = eval(parse(text = expr)),
        method = "lw",
        n = 10000,