Skip to content

Commit

Permalink
Import missing function and fix error when vignette tries to plot tra…
Browse files Browse the repository at this point in the history
…nscripts
  • Loading branch information
nuno-agostinho authored and Nuno Agostinho committed Apr 24, 2017
1 parent 62a5019 commit 4a5c287
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 2 deletions.
1 change: 1 addition & 0 deletions NAMESPACE
Original file line number Diff line number Diff line change
Expand Up @@ -153,6 +153,7 @@ importFrom(shiny,plotOutput)
importFrom(shiny,radioButtons)
importFrom(shiny,reactive)
importFrom(shiny,removeModal)
importFrom(shiny,renderPlot)
importFrom(shiny,renderText)
importFrom(shiny,renderUI)
importFrom(shiny,runApp)
Expand Down
2 changes: 1 addition & 1 deletion R/analysis_diffSplicing.R
Original file line number Diff line number Diff line change
Expand Up @@ -422,7 +422,7 @@ diffAnalyses <- function(psi, groups=NULL,
#' @param output Shiny ouput
#' @param session Shiny session
#'
#' @importFrom shiny observe observeEvent updateSelectizeInput
#' @importFrom shiny observe observeEvent updateSelectizeInput renderPlot
#' @importFrom shinyjs hide show
#' @return NULL (this function is used to modify the Shiny session's state)
diffSplicingServer <- function(input, output, session) {
Expand Down
5 changes: 4 additions & 1 deletion vignettes/CLI_tutorial.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -466,7 +466,7 @@ It is also possible to plot transcripts and proteins related to the gene
associated to a given splicing event. To retrieve and plot transcript
information from [ENSEMBL][4]:

```{r plot transcripts}
```{r plot transcripts, eval=FALSE}
parsed <- parseSplicingEvent(event)
info <- queryEnsemblByEvent(event, species="human", assembly="hg19")
plotTranscripts(info, parsed$pos[[1]])
Expand All @@ -475,6 +475,9 @@ plotTranscripts(info, parsed$pos[[1]])
To retrieve and plot protein information from [UniProt][5]:

```{r plot proteins}
parsed <- parseSplicingEvent(event)
info <- queryEnsemblByEvent(event, species="human", assembly="hg19")
# Some of these transcripts have no corresponding protein
proteins <- info$Transcript$Translation$id
protein <- proteins[[6]]
Expand Down

0 comments on commit 4a5c287

Please sign in to comment.