T -> TRUE; F -> FALSE

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)
 

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()

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"),

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")))
   }