limit datatable nrows

gagneurlab · Feb 4, 2023 · f89a54d · f89a54d
1 parent 17e8ccc
commit f89a54d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/drop/template/Scripts/AberrantSplicing/Overview.R b/drop/template/Scripts/AberrantSplicing/Overview.R
@@ -78,7 +78,11 @@ res <- fread(snakemake@input$result_tables[[1]])
 
 #' Display the results table of the first dataset
 #+ echo=FALSE
-DT::datatable(res, filter = 'top')
+if(nrow(res) > 0){
+  DT::datatable(head(res, 100), caption = 'FRASER results (up to 100 rows shown)',
+                options=list(scrollX=TRUE), filter = 'top')
+
+} else print("no significant results")
 
 #' Get a splice site and sample of interest. Outliers are in red.
 #+ echo=TRUE