220531 error handling tab_mark

.Rproj.user/9DAE6990/pcs/files-pane.pper

 {
-    "path" : "~/Documents/PhD/stuart_package/stuart",
+    "path" : "~/Documents/PhD/stuart_package/stuart/vignettes",
     "sortOrder" : [
         {
             "ascending" : true,

.Rproj.user/9DAE6990/pcs/source-pane.pper

 {
-    "activeTab" : 0
+    "activeTab" : 1
 }
\ No newline at end of file

.Rproj.user/9DAE6990/pcs/windowlayoutstate.pper

 {
     "left" : {
-        "panelheight" : 1402,
-        "splitterpos" : 362,
-        "topwindowstate" : "NORMAL",
-        "windowheight" : 1440
+        "panelheight" : 762,
+        "splitterpos" : 196,
+        "topwindowstate" : "MAXIMIZE",
+        "windowheight" : 800
     },
     "right" : {
         "panelheight" : 1402,
-        "splitterpos" : 879,
+        "splitterpos" : 878,
         "topwindowstate" : "NORMAL",
         "windowheight" : 1440
     }

.Rproj.user/9DAE6990/pcs/workbench-pane.pper

 {
     "TabSet1" : 1,
-    "TabSet2" : 0,
+    "TabSet2" : 3,
     "TabZoom" : {
     }
 }
\ No newline at end of file

R/tab_mark.R

@@ -15,11 +15,11 @@
 ## create table with markers and counts
 tab_mark <- function(geno,annot,pos){
   #stop if no annot or pos
-  if(rapportools::is.empty(annot)==FALSE){
+  if(all(rapportools::is.empty(annot)==TRUE)){
     stop("No annotation data")
   }
 
-  if(rapportools::is.empty(pos)==FALSE){
+  if(rapportools::is.empty(pos)==TRUE){
     stop("No position data")
   }