# HG changeset patch
# User mingchen0919
# Date 1514577659 18000
# Node ID eb51eca6cdf193401ae40a7b8f82a77751985d7f
# Parent  7a2369ab4f84b540f52c676fb3fc847b6baca664
update

diff -r 7a2369ab4f84 -r eb51eca6cdf1 rmarkdown_feature_counts.Rmd
--- a/rmarkdown_feature_counts.Rmd	Fri Dec 29 14:24:54 2017 -0500
+++ b/rmarkdown_feature_counts.Rmd	Fri Dec 29 15:00:59 2017 -0500
@@ -85,8 +85,13 @@
 ```{r}
 colnames(res$counts) = strsplit(opt$input_bam_names, ',')[[1]]
 # write count into csv file
-write.csv(res$counts, file = 'feature_counts.csv', row.names = TRUE)
-datatable(res$counts)
+write.table(res$counts, file = 'feature_counts.txt')
+```
+
+Display the first 100 rows.
+
+```{r}
+datatable(head(res$counts, 100))
 ```
 
 # Save results into RData file
diff -r 7a2369ab4f84 -r eb51eca6cdf1 rmarkdown_feature_counts.xml
--- a/rmarkdown_feature_counts.xml	Fri Dec 29 14:24:54 2017 -0500
+++ b/rmarkdown_feature_counts.xml	Fri Dec 29 15:00:59 2017 -0500
@@ -177,7 +177,8 @@
               hidden="false"/>
         <data name="feature_counts" format="rdata" label="feature counts" from_work_dir="feature_counts.RData"
               hidden="false"/>
-        <data name="feature_counts_csv" format="csv" label="feature counts in csv" from_work_dir="feature_counts.csv"
+        <data name="feature_counts_csv" format="tabular" label="feature counts (.txt)"
+              from_work_dir="feature_counts.txt"
               hidden="false"/>
     </outputs>
     <help><![CDATA[some help text]]></help>