diff --git a/R/columnSelector.R b/R/columnSelector.R index 0130eff..cf5217e 100644 --- a/R/columnSelector.R +++ b/R/columnSelector.R @@ -7,7 +7,7 @@ #' @return A list from \code{\link[shiny]{tag}} with the UI elements. #' #' @export -columnSelectorUI <- function(id, label = F, title = NULL) { +columnSelectorUI <- function(id, label = FALSE, title = NULL) { # create namespace ns <- shiny::NS(id) diff --git a/R/function.R b/R/function.R index 5506fef..41cfc11 100644 --- a/R/function.R +++ b/R/function.R @@ -33,7 +33,7 @@ #' @import data.table #' #' @return Returns list(plot = ggplotly/ ggplot, width, height, ppi, exceed_size). -create_scatterplot <- function(data, data.labels = NULL, data.hovertext = NULL, transparency = 1, pointsize = 1, labelsize = 3, color = NULL, x_label = "", y_label = "", z_label = "", density = T, line = T, categorized = F, highlight.data = NULL, highlight.labels = NULL, highlight.hovertext = NULL, highlight.color = "#FF0000", xlim = NULL, ylim = NULL, colorbar.limits = NULL, width = "auto", height = "auto", ppi = 72, plot.method = "static", scale = 1){ +create_scatterplot <- function(data, data.labels = NULL, data.hovertext = NULL, transparency = 1, pointsize = 1, labelsize = 3, color = NULL, x_label = "", y_label = "", z_label = "", density = TRUE, line = TRUE, categorized = FALSE, highlight.data = NULL, highlight.labels = NULL, highlight.hovertext = NULL, highlight.color = "#FF0000", xlim = NULL, ylim = NULL, colorbar.limits = NULL, width = "auto", height = "auto", ppi = 72, plot.method = "static", scale = 1){ # force evaluation of all arguments # no promises in plot object forceArgs() diff --git a/R/scatterPlot.R b/R/scatterPlot.R index 19c4127..950b2ea 100644 --- a/R/scatterPlot.R +++ b/R/scatterPlot.R @@ -28,7 +28,7 @@ scatterPlotUI <- function(id) { columnSelectorUI( id = ns("xaxis"), title = "Data on x-axis", - label = T + label = TRUE ) ), shiny::div(id = ns("guide_xaxis_transformation"), @@ -43,7 +43,7 @@ scatterPlotUI <- function(id) { columnSelectorUI( id = ns("yaxis"), title = "Data on y-axis", - label = T + label = TRUE ) ), shiny::div(id = ns("guide_yaxis_transformation"), @@ -59,7 +59,7 @@ scatterPlotUI <- function(id) { columnSelectorUI( id = ns("zaxis"), title = "Data on z-axis", - label = T + label = TRUE ), shiny::checkboxInput( inputId = ns("force_cat"), diff --git a/R/transformation.R b/R/transformation.R index 1266a77..b535995 100644 --- a/R/transformation.R +++ b/R/transformation.R @@ -21,7 +21,7 @@ transformationUI <- function(id, label = "Transformation", selected = "raw", cho label = NULL, choices = choices, selected = selected, - multiple = F)) + multiple = FALSE)) if (transposeOptions) { ret <- list(ret, shinyjs::useShinyjs(), shiny::radioButtons(ns("transpose"), label = NULL, choices = c(`row-wise` = "row", `column-wise` = "column"))) } diff --git a/man/columnSelectorUI.Rd b/man/columnSelectorUI.Rd index a81a734..dca9df2 100644 --- a/man/columnSelectorUI.Rd +++ b/man/columnSelectorUI.Rd @@ -4,7 +4,7 @@ \alias{columnSelectorUI} \title{columnSelector module UI representation} \usage{ -columnSelectorUI(id, label = F, title = NULL) +columnSelectorUI(id, label = FALSE, title = NULL) } \arguments{ \item{id}{The ID of the modules namespace.} diff --git a/man/create_scatterplot.Rd b/man/create_scatterplot.Rd index 1e60d4b..d219acd 100644 --- a/man/create_scatterplot.Rd +++ b/man/create_scatterplot.Rd @@ -6,11 +6,12 @@ \usage{ create_scatterplot(data, data.labels = NULL, data.hovertext = NULL, transparency = 1, pointsize = 1, labelsize = 3, color = NULL, - x_label = "", y_label = "", z_label = "", density = T, line = T, - categorized = F, highlight.data = NULL, highlight.labels = NULL, - highlight.hovertext = NULL, highlight.color = "#FF0000", xlim = NULL, - ylim = NULL, colorbar.limits = NULL, width = "auto", height = "auto", - ppi = 72, plot.method = "static", scale = 1) + x_label = "", y_label = "", z_label = "", density = TRUE, + line = TRUE, categorized = FALSE, highlight.data = NULL, + highlight.labels = NULL, highlight.hovertext = NULL, + highlight.color = "#FF0000", xlim = NULL, ylim = NULL, + colorbar.limits = NULL, width = "auto", height = "auto", ppi = 72, + plot.method = "static", scale = 1) } \arguments{ \item{data}{data.table containing plot data