bug fixes etc

Author: sachsmc

NEWS.md

@@ -4,7 +4,7 @@
 
 - button to print latex code in shiny app
 - Checking for intervention set children to be on rightside
-- Other error checks
+- Other error checks and bugfixes
 
 # causaloptim 0.5.0
 

R/text-parsing.R

@@ -315,7 +315,7 @@ latex_bounds <- function(bounds, parameters, prob.sym = "P") {
 
     } else {
 
-        l0 <- paste(bnd3$lower, collapse = "\\\\ \\n ")
+        l0 <- paste(bnd3$lower, collapse = "\\\\ \n ")
         lwr <- sprintf("\\mbox{MAX} \\left. \\begin{cases} %s \\end{cases} \\right\\}", l0)
 
 
@@ -327,14 +327,14 @@ latex_bounds <- function(bounds, parameters, prob.sym = "P") {
 
     } else {
 
-        r0 <- paste(bnd3$upper, collapse = "\\\\ \\n ")
+        r0 <- paste(bnd3$upper, collapse = "\\\\ \n ")
         upr <- sprintf("\\mbox{MIN} \\left. \\begin{cases} %s \\end{cases} \\right\\}", r0)
 
 
     }
 
 
-    return(sprintf("\\[ \\mbox{Lower bound} = %s \\] \\n \\[ \\mbox{Upper bound} = %s \\] \\n", lwr, upr))
+    return(sprintf("\\[ \n \\mbox{Lower bound} = %s \n \\] \n \\[ \n \\mbox{Upper bound} = %s \n \\] \n", lwr, upr))
 
 
 }

README.md

@@ -15,10 +15,10 @@ This package is in early development. The interface is subject to change at any
 remotes::install_github("sachsmc/causaloptim")
 ```
 
-Or download the Windows binary from the releases section and install with 
+Or download the Windows binary from the releases section (https://github.com/sachsmc/causaloptim/releases) and install with 
 
 ```{r}
-install.packages('causaloptim_0.5.0.zip', repos = NULL)
+install.packages('causaloptim_0.5.1.zip', repos = NULL)
 ```
 
 
@@ -34,4 +34,4 @@ results <- specify_graph()
 
 A. Balke and J. Pearl, "Counterfactual Probabilities: Computational Methods,Bounds, and Applications"  UCLA Cognitive Systems Laboratory, Technical Report (R-213-B). 
 In R. Lopez de Mantaras and D. Poole (Eds.), Proceedings of the Conference on Uncertainty in Artificial Intelligence (UAI-94), Morgan Kaufmann, San Mateo, CA, 46-54, July 29-31, 1994. 
-\url{https://ftp.cs.ucla.edu/pub/stat_ser/R213-B.pdf}.
+https://ftp.cs.ucla.edu/pub/stat_ser/R213-B.pdf.

docs/articles/shinyapp.html

@@ -204,7 +204,7 @@ function(input, output) {
                                      " = %s", "("))
 
               }
-              def.eff <- paste0(def.eff, res, ")", ifelse(j < length(effectpath), ", ", ""))
+              def.eff <- paste0(def.eff, res, paste(rep(")", max(1, nvs - 1)), collapse =  ""), ifelse(j < length(effectpath), ", ", ""))
 
             }