Minor fix

Author: magnusdv

inst/shiny/app.R

@@ -172,6 +172,9 @@ server = function(input, output, session) {
     peds = pedigrees$complete
     famids = if(!is.null(peds)) pedtools::typedMembers(peds[[1]]) else NULL
 
+    stop2 = KLINK:::stop2
+    warn = function(...) showNote(..., type = "warning")
+
     xmldat = tryCatch(error = showNote, {
       if(is.null(famname))
         stop2("Familias file must be loaded first")
@@ -194,8 +197,6 @@ server = function(input, output, session) {
       return()
     }
 
-    warn = function(...) showNote(..., type = "warning")
-
     # Check AMEL
     amelsex = match(xmldat$AMEL, c("X-Y", "X-X"))
     sex = pedtools::getSex(peds[[1]], famids)