Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
loosolab
software
i2dash.scRNAseq
Commits
76eed2a7
Commit
76eed2a7
authored
Jun 04, 2019
by
arsenij.ustjanzew
Browse files
bugfix for statical mode;
small changes in the manpage description
parent
6782cbf0
Changes
2
Hide whitespace changes
Inline
Side-by-side
R/visualization_functions.R
View file @
76eed2a7
...
...
@@ -77,7 +77,7 @@
return
(
p
)
}
# Function to create a dataframe for plotly_barplot.
#
'
Function to create a dataframe for plotly_barplot.
#' @param group_by A list with factorial values, by which observations can optionally be grouped.
#' @param x (Optional) A named list with the observations for the barplot.
...
...
@@ -108,9 +108,9 @@ create_barplot_df <- function(group_by, x = NULL){
#' Render a bar plot with plotly.
#'
#' @param ... these arguments are of either the form value or tag = value and should be valid for the 'plotly::plot_ly()' method.
#' @param showlegend Boolean value that describes if the legend should be shown.
#' @param title_x A title that describes the observations.
#' @param title_group_by A title that describes the grouping factor.
#' @param showlegend
(Optional)
Boolean value that describes if the legend should be shown.
#' @param title_x
(Optional)
A title that describes the observations.
#' @param title_group_by
(Optional)
A title that describes the grouping factor.
#'
#' @return An object of class \code{plotly}.
#' @export
...
...
inst/templates/barplot.Rmd
View file @
76eed2a7
...
...
@@ -17,7 +17,7 @@ output_list <- i2dash.scrnaseq::create_barplot_df(group_by = {{ env_id }}$group_
i2dash::embed_var(output_list$df)
# Render plot
i2dash.scrnaseq::plotly_barplot(x =
df_{{ env_id }}()$x[[1]], y = df_{{ env_id }}()$y[[1]], name = df_{{ env_id }}()
$names[[1]], showlegend =
df_{{ env_id }}()
$showlegend, title_x = {{ env_id }}$title_x, title_group_by = {{ env_id }}$title_group_by)
i2dash.scrnaseq::plotly_barplot(x =
output_list$x[[1]], y = output_list$y[[1]], name = output_list
$names[[1]], showlegend =
output_list
$showlegend, title_x = {{ env_id }}$title_x, title_group_by = {{ env_id }}$title_group_by)
```
```{r, eval=is_shiny}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment