Skip to content

Commit ac87d2a

Browse files
committed
v0.99.1 -- Add Kristen to the DESCRIPTION. Improved the shiny app docs. Improved shiny app footer and pkg README footer (we'll see if that last one works)
1 parent e529d21 commit ac87d2a

File tree

10 files changed

+243
-31
lines changed

10 files changed

+243
-31
lines changed

.gitignore

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -5,3 +5,4 @@
55
inst/doc
66
data-raw/spatialLIBD_files
77
docs/
8+
rsconnect

DESCRIPTION

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,14 @@
11
Package: spatialLIBD
22
Title: LIBD Visium spatial transcriptomics human pilot data inspector
3-
Version: 0.99.0
4-
Date: 2020-02-23
3+
Version: 0.99.1
4+
Date: 2020-02-26
55
Authors@R:
66
c(
77
person("Leonardo", "Collado-Torres", role = c("aut", "cre"),
88
email = "[email protected]", comment = c(ORCID = "0000-0003-2140-308X")),
9+
person(c("Kristen", "R."), "Maynard",
10+
role = "ctb", email = "[email protected]",
11+
comment = c(ORCID = "0000-0003-0031-8468")),
912
person(c("Andrew", "E."), "Jaffe",
1013
role = "ctb", email = "[email protected]",
1114
comment = c(ORCID = "0000-0001-6886-1454"))

NEWS.md

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,15 @@
1+
# spatialLIBD 0.99.1
2+
3+
* Added Kristen R Maynard to the DESCRIPTION file.
4+
* Improved the shiny app page footer.
5+
* Moved around the documentation and added a new main tab with an overview in
6+
response to the feedback by Stephanie Hicks.
7+
18
# spatialLIBD 0.99.0
29

310
* Added a `NEWS.md` file to track changes to the package.
411
* First full version of the package to be submitted to Bioconductor. Note that
512
the `ExperimentHub::ExperimentHub()` functionality won't work until they
613
approve the package. However, for now `fetch_data()` has a backup mechanism
714
in place.
15+
* Submitted to Bioconductor [here](https://github.com/Bioconductor/Contributions/issues/1389).

R/app_ui.R

Lines changed: 47 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,9 @@ app_ui <- function() {
1717
# List the first level UI elements here
1818
navbarPage(
1919
title = 'spatialLIBD',
20+
tabPanel('Overview', tagList(includeMarkdown(
21+
file.path(resourcePaths()['www'], 'README.md')
22+
))),
2023
tabPanel('spot-level data', tagList(
2124
sidebarLayout(
2225
sidebarPanel(
@@ -93,7 +96,7 @@ app_ui <- function() {
9396
mainPanel(
9497
tabsetPanel(
9598
tabPanel(
96-
'Raw summary',
99+
'Documentation',
97100
tags$br(),
98101
HTML(
99102
'Basic information overview about the spot-level SingleCellExperiment object. You can download it using <code>spatialLIBD::fetch_data(type = "sce")</code>.'
@@ -102,8 +105,14 @@ app_ui <- function() {
102105
tags$br(),
103106
verbatimTextOutput('raw_summary'),
104107
helpText(
105-
'When this information has been displayed it means that the shiny web application has finished loading and you can start exploring the rest of it. For more information check the Documentation tab.'
106-
)
108+
'When this information has been displayed it means that the shiny web application has finished loading and you can start exploring the rest of it.'
109+
),
110+
tags$br(),
111+
hr(),
112+
includeMarkdown(file.path(
113+
resourcePaths()['www'], 'documentation_sce.md'
114+
)),
115+
hr()
107116
),
108117
tabPanel(
109118
'Clusters (static)',
@@ -268,11 +277,7 @@ app_ui <- function() {
268277
tags$br(),
269278
tags$br(),
270279
tags$br()
271-
),
272-
tabPanel('Documentation',
273-
includeMarkdown(
274-
file.path(resourcePaths()['www'], 'documentation_sce.md')
275-
))
280+
)
276281
)
277282
)
278283
)
@@ -300,7 +305,7 @@ app_ui <- function() {
300305
mainPanel(
301306
tabsetPanel(
302307
tabPanel(
303-
'Raw summary',
308+
'Documentation',
304309
tags$br(),
305310
HTML(
306311
'Basic information overview about the layer-level SingleCellExperiment object (pseudo-bulked from the spot-level data). You can download it using <code>spatialLIBD::fetch_data(type = "sce_layer")</code>.'
@@ -309,8 +314,13 @@ app_ui <- function() {
309314
tags$br(),
310315
verbatimTextOutput('layer_raw_summary'),
311316
helpText(
312-
'When this information has been displayed it means that the shiny web application has finished loading and you can start exploring the rest of it. For more information check the Documentation tab.'
313-
)
317+
'When this information has been displayed it means that the shiny web application has finished loading and you can start exploring the rest of it.'
318+
),
319+
tags$br(),
320+
hr(),
321+
includeMarkdown(
322+
file.path(resourcePaths()['www'], 'documentation_sce_layer.md')
323+
),
314324
),
315325
tabPanel(
316326
'Reduced Dim',
@@ -474,11 +484,7 @@ app_ui <- function() {
474484
tags$br(),
475485
tags$br(),
476486
DT::DTOutput('layer_tstat_cor_table')
477-
),
478-
tabPanel('Documentation',
479-
includeMarkdown(
480-
file.path(resourcePaths()['www'], 'documentation_sce_layer.md')
481-
))
487+
)
482488
)
483489
)
484490
)
@@ -495,17 +501,32 @@ app_ui <- function() {
495501
)
496502
),
497503
hr(),
498-
p(
499-
'This shiny application was developed by the Data Science Team I at the Lieber Institute for Brain Development.'
500-
),
501-
hr(),
502-
#HTML('<a href="http://www.libd.org/">'),
503-
img(
504-
src = 'http://aejaffe.com/media/LIBD_logo.jpg',
505-
align = 'left',
506-
width = '250'
504+
tagList(
505+
HTML(
506+
'This <a href="https://shiny.rstudio.com/">shiny</a> application was developed by the <a href="http://aejaffe.com/">Data Science Team I</a> at the <a href="https://www.libd.org/">Lieber Institute for Brain Development</a> and is hosted thanks to the <a href="https://www.jhsph.edu/departments/biostatistics/">Department of Biostatistics at the Johns Hopkins Bloomberg School of Public Health</a>. It is powered by the <code>spatialLIBD</code> R package which you can find described in <a href="http://research.libd.org/spatialLIBD/">its documentation website</a> and you can use to run locally this shiny application by running the command <code>spatialLIBD::run_app()</code>.'
507+
),
508+
hr(),
509+
HTML(
510+
'If you tweet about this website, the data or the R package please use the <code>#spatialLIBD</code> hashtag. You can find previous tweets that way as shown <a href="https://twitter.com/search?q=%23spatialLIBD&src=typed_query">here</a>. Thank you! <a href="https://twitter.com/intent/tweet?button_hashtag=spatialLIBD&ref_src=twsrc%5Etfw" class="twitter-hashtag-button" data-show-count="false">Tweet #spatialLIBD</a><script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>'
511+
),
512+
hr(),
513+
HTML(
514+
'The <code>spatialLIBD</code> R package is currently under review at <a href="https://github.com/Bioconductor/Contributions/issues/1389">Bioconductor</a>.'
515+
),
516+
hr(),
517+
HTML('<a href="http://www.libd.org/">'),
518+
img(
519+
src = 'http://aejaffe.com/media/LIBD_logo.jpg',
520+
align = 'left',
521+
width = '250'
522+
),
523+
HTML('</a>'),
524+
HTML(
525+
"<center>
526+
<script type='text/javascript' id='clustrmaps' src='//cdn.clustrmaps.com/map_v2.js?cl=ffffff&w=300&t=n&d=bVDeWoXdUvfe25nnGnwxdflUS7pyHC-jHAG7gVqyXYI'></script>
527+
</center>"
528+
)
507529
),
508-
# HTML('</a>'),
509530
tags$br(),
510531
tags$br(),
511532
tags$br(),

README.Rmd

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -95,3 +95,15 @@ Please note that the `spatialLIBD` project is released with a
9595
* The [documentation website](http://lieberinstitute.github.io/spatialLIBD) is automatically updated thanks to `r BiocStyle::CRANpkg('pkgdown')` and `r BiocStyle::Githubpkg('ropenscilabs/travis')`.
9696

9797
<a href="https://www.libd.org/"><img src="http://aejaffe.com/media/LIBD_logo.jpg" width="250px"></a>
98+
99+
<center><script type='text/javascript' id='clustrmaps' src='//cdn.clustrmaps.com/map_v2.js?cl=ffffff&w=300&t=n&d=FRs8oQ9HVpMg6QLJJKAExpF8seGfPVlH-YOnwqUE8Hg'></script></center>
100+
101+
<!-- Global site tag (gtag.js) - Google Analytics -->
102+
<script async src="https://www.googletagmanager.com/gtag/js?id=UA-159132967-1"></script>
103+
<script>
104+
window.dataLayer = window.dataLayer || [];
105+
function gtag(){dataLayer.push(arguments);}
106+
gtag('js', new Date());
107+
108+
gtag('config', 'UA-159132967-1');
109+
</script>

README.md

Lines changed: 19 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,7 @@ citation('spatialLIBD')
109109
#> 10.18129/B9.bioc.spatialLIBD (URL:
110110
#> https://doi.org/10.18129/B9.bioc.spatialLIBD),
111111
#> https://github.com/LieberInstitute/spatialLIBD - R package version
112-
#> 0.99.0, <URL: http://www.bioconductor.org/packages/spatialLIBD>.
112+
#> 0.99.1, <URL: http://www.bioconductor.org/packages/spatialLIBD>.
113113
#>
114114
#> Maynard KR, Collado-Torres L, Weber LM, Uytingco C, Williams SR, II
115115
#> JLC, Barry BK, Tran MN, Besich Z, Tippani M, Chew J, Yin Y, Hyde TM,
@@ -142,3 +142,21 @@ this project, you agree to abide by its terms.
142142
*[travis](https://github.com/ropenscilabs/travis)*.
143143

144144
<a href="https://www.libd.org/"><img src="http://aejaffe.com/media/LIBD_logo.jpg" width="250px"></a>
145+
146+
<center>
147+
148+
<script type='text/javascript' id='clustrmaps' src='//cdn.clustrmaps.com/map_v2.js?cl=ffffff&w=300&t=n&d=FRs8oQ9HVpMg6QLJJKAExpF8seGfPVlH-YOnwqUE8Hg'></script>
149+
150+
</center>
151+
152+
<!-- Global site tag (gtag.js) - Google Analytics -->
153+
154+
<script async src="https://www.googletagmanager.com/gtag/js?id=UA-159132967-1"></script>
155+
156+
<script>
157+
window.dataLayer = window.dataLayer || [];
158+
function gtag(){dataLayer.push(arguments);}
159+
gtag('js', new Date());
160+
161+
gtag('config', 'UA-159132967-1');
162+
</script>

inst/app/www/README.md

Lines changed: 149 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,149 @@
1+
# spatialLIBD <img src="http://research.libd.org/spatialLIBD/reference/figures/logo.png" align="right" />
2+
3+
<!-- badges: start -->
4+
5+
[![Lifecycle:
6+
maturing](https://img.shields.io/badge/lifecycle-maturing-blue.svg)](https://www.tidyverse.org/lifecycle/#maturing)
7+
[![Travis build
8+
status](https://travis-ci.org/LieberInstitute/spatialLIBD.svg?branch=master)](https://travis-ci.org/LieberInstitute/spatialLIBD)
9+
[![BioC
10+
status](http://www.bioconductor.org/shields/build/release/bioc/spatialLIBD.svg)](https://bioconductor.org/checkResults/release/bioc-LATEST/spatialLIBD)
11+
[![Codecov test
12+
coverage](https://codecov.io/gh/LieberInstitute/spatialLIBD/branch/master/graph/badge.svg)](https://codecov.io/gh/LieberInstitute/spatialLIBD?branch=master)
13+
<!-- badges: end -->
14+
15+
Welcome to the `spatialLIBD` [shiny](https://shiny.rstudio.com/) web application! This web application allows you to browse the LIBD human dorsolateral pre-frontal cortex (DLPFC) spatial transcriptomics data generated with the 10x Genomics Visium platform. Through the [R/Bioconductor package](https://bioconductor.org/packages/spatialLIBD) you can also download the data as well as visualize your own datasets using this web application. Please check the [bioRxiv pre-print](https://www.biorxiv.org/search/maynard%252Bcollado%252Bweber%252Bhicks%252Bmartinowich%252Bjaffe) for more details about this project.
16+
17+
## Study design
18+
19+
As a quick overview, the data presented here is from portion of the DLPFC that spans six neuronal layers plus white matter (**A**) for a total of three subjects with two pairs of spatially adjacent replicates (**B**). Each dissection of DLPFC was designed to span all six layers plus white matter (**C**). Using this web application you can explore the expression of known genes such as _SNAP25_ (**D**, a neuronal gene), _MOBP_ (**E**, an oligodendrocyte gene), and known layer markers from mouse studies such as _PCP4_ (**F**, a known layer 5 marker gene).
20+
21+
<img src="http://research.libd.org/spatialLIBD/reference/figures/paper_figure1.jpg" align="center" width="800px" />
22+
23+
This web application was built such that we could annotate the spots to layers as you can see under the **spot-level data** tab. Once we annotated each spot to a layer, we compressed the information by a pseudo-bulking approach into **layer-level data**. We then analyzed the expression through a set of models whose results you can also explore through this web application. Finally, you can upload your own gene sets of interest as well as layer enrichment statistics and compare them with our LIBD Human DLPFC Visium dataset.
24+
25+
If you are interested in running this web application locally, you can do so thanks to the `spatialLIBD` R/Bioconductor package that powers this web application as shown below.
26+
27+
``` r
28+
## Run this web application locally
29+
spatialLIBD::run_app()
30+
31+
## You will have more control about the length of the
32+
## session and memory usage.
33+
34+
## You could also use this function to visualize your
35+
## own data given some requirements described
36+
## in detail in the package vignette documentation
37+
## at http://research.libd.org/spatialLIBD/.
38+
```
39+
40+
41+
## R/Bioconductor package
42+
43+
The `spatialLIBD` package contains functions for:
44+
45+
- Accessing the spatial transcriptomics data from the LIBD Human Pilot
46+
project ([code on
47+
GitHub](https://github.com/LieberInstitute/HumanPilot)) generated
48+
with the Visium platform from 10x Genomics. The data is retrieved
49+
from [Bioconductor](http://bioconductor.org/)’s `ExperimentHub`.
50+
- Visualizing the spot-level spatial gene expression data and
51+
clusters.
52+
- Inspecting the data interactively either on your computer or through
53+
[jhubiostatistics.shinyapps.io/spatialLIBD/](https://jhubiostatistics.shinyapps.io/spatialLIBD/).
54+
55+
For more details, please check the [documentation
56+
website](http://lieberinstitute.github.io/spatialLIBD) or the
57+
Bioconductor package landing page
58+
[here](https://bioconductor.org/packages/spatialLIBD).
59+
60+
## Installation instructions
61+
62+
Get the latest stable `R` release from
63+
[CRAN](http://cran.r-project.org/). Then install `spatialLIBD` using
64+
from [Bioconductor](http://bioconductor.org/) the following code:
65+
66+
``` r
67+
if (!requireNamespace("BiocManager", quietly = TRUE))
68+
install.packages("BiocManager")
69+
70+
BiocManager::install("spatialLIBD")
71+
```
72+
73+
## Access the data
74+
75+
Using `spatialLIBD` you can access the Human DLPFC spatial
76+
transcriptomics data from the 10x Genomics Visium platform. For example,
77+
this is the code you can use to access the layer-level data. For more
78+
details, check the help file for `fetch_data()`.
79+
80+
``` r
81+
## Load the package
82+
library('spatialLIBD')
83+
84+
## Download the spot-level data
85+
sce <- fetch_data(type = 'sce')
86+
#> Loading objects:
87+
#> sce
88+
89+
## This is a SingleCellExperiment object
90+
sce
91+
#> class: SingleCellExperiment
92+
#> dim: 33538 47681
93+
#> metadata(1): image
94+
#> assays(2): counts logcounts
95+
#> rownames(33538): ENSG00000243485 ENSG00000237613 ... ENSG00000277475
96+
#> ENSG00000268674
97+
#> rowData names(9): source type ... gene_search is_top_hvg
98+
#> colnames(47681): AAACAACGAATAGTTC-1 AAACAAGTATCTCCCA-1 ...
99+
#> TTGTTTCCATACAACT-1 TTGTTTGTGTAAATTC-1
100+
#> colData names(73): barcode sample_name ... pseudobulk_UMAP_spatial
101+
#> markers_UMAP_spatial
102+
#> reducedDimNames(6): PCA TSNE_perplexity50 ... TSNE_perplexity80
103+
#> UMAP_neighbors15
104+
#> spikeNames(0):
105+
#> altExpNames(0):
106+
107+
## Note the memory size
108+
pryr::object_size(sce)
109+
#> 2.08 GB
110+
111+
## Remake the logo image with histology information
112+
sce_image_clus(
113+
sce = sce,
114+
clustervar = 'layer_guess_reordered',
115+
sampleid = '151673',
116+
colors = libd_layer_colors,
117+
... = ' DLPFC Human Brain Layers\nMade with github.com/LieberInstitute/spatialLIBD'
118+
)
119+
```
120+
121+
<img src="http://research.libd.org/spatialLIBD/reference/figures/README-access_data-1.png" width="600px" align="center" />
122+
123+
## Citation
124+
125+
Below is the citation output from using `citation('spatialLIBD')` in R.
126+
Please run this yourself to check for any updates on how to cite
127+
**spatialLIBD**.
128+
129+
``` r
130+
citation('spatialLIBD')
131+
#>
132+
#> Collado-Torres L, Maynard KR, Jaffe AE (2020). _LIBD Visium spatial
133+
#> transcriptomics human pilot data inspector_. doi:
134+
#> 10.18129/B9.bioc.spatialLIBD (URL:
135+
#> https://doi.org/10.18129/B9.bioc.spatialLIBD),
136+
#> https://github.com/LieberInstitute/spatialLIBD - R package version
137+
#> 0.99.1, <URL: http://www.bioconductor.org/packages/spatialLIBD>.
138+
#>
139+
#> Maynard KR, Collado-Torres L, Weber LM, Uytingco C, Williams SR, II
140+
#> JLC, Barry BK, Tran MN, Besich Z, Tippani M, Chew J, Yin Y, Hyde TM,
141+
#> Rao N, Hicks SC, Martinowich K, Jaffe AE (2020). "Transcriptome-scale
142+
#> spatial gene expression in the human dorsolateral prefrontal cortex."
143+
#> _bioRxiv_. doi: 10.1101/xxxyyy (URL: https://doi.org/10.1101/xxxyyy),
144+
#> <URL: https://doi.org/10.1101/xxxyyy>.
145+
#>
146+
#> To see these entries in BibTeX format, use 'print(<citation>,
147+
#> bibtex=TRUE)', 'toBibtex(.)', or set
148+
#> 'options(citation.bibtex.max=999)'.
149+
```

inst/app/www/documentation_sce.md

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ This document describes the spot-level portion of the shiny web application made
55

66
## Raw summary
77

8-
This tab displays the [SingleCellExperiment](https://bioconductor.org/packages/SingleCellExperiment) object that contains the spot-level data. It's basically useful to know that the data has been loaded and that you can start navigating the app. If you wish to download this data, use the following command.
8+
Before the documetation, this tab displays the [SingleCellExperiment](https://bioconductor.org/packages/SingleCellExperiment) object that contains the spot-level data. It's basically useful to know that the data has been loaded and that you can start navigating the app. If you wish to download this data, use the following command.
99

1010
```{r}
1111
## Download sce data

inst/app/www/documentation_sce_layer.md

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ This document describes the layer-level portion of the shiny web application mad
55

66
## Raw summary
77

8-
This tab displays the [SingleCellExperiment](https://bioconductor.org/packages/SingleCellExperiment) object that contains the layer-level data. It's basically useful to know that the data has been loaded and that you can start navigating the app. If you wish to download this data, use the following command.
8+
Before the documetation, his tab displays the [SingleCellExperiment](https://bioconductor.org/packages/SingleCellExperiment) object that contains the layer-level data. It's basically useful to know that the data has been loaded and that you can start navigating the app. If you wish to download this data, use the following command.
99

1010
```{r}
1111
## Download sce data

man/figures/paper_figure1.jpg

1.21 MB
Loading

0 commit comments

Comments
 (0)