bugfix for statical mode;

small changes in the manpage description

R/visualization_functions.R

@@ -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

@@ -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}