Style code (GHA)

bigomics · Aug 28, 2023 · e575302 · e575302
1 parent da0216d
commit e575302
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/components/board.upload/R/upload_module_computepgx.R b/components/board.upload/R/upload_module_computepgx.R
@@ -726,7 +726,6 @@ upload_module_computepgx_server <- function(
       observe(check_process_status())
 
       observe({
-
         if (process_counter() > 0) {
           shiny::insertUI(
             selector = "#current_dataset",

diff --git a/components/ui/ui-PlotModule.R b/components/ui/ui-PlotModule.R
@@ -299,7 +299,7 @@ PlotModuleUI <- function(id,
   if (any(class(caption) == "reactive")) {
     caption <- caption()
   }
-  
+
   e <- bslib::card(
     full_screen = FALSE,
     style = paste0("height:", height.1, ";overflow: visible;"),
@@ -400,9 +400,9 @@ PlotModuleServer <- function(id,
     id,
     function(input, output, session) {
       ns <- session$ns
-            
+
       filename <- ns("title")
-      stopwords = c('-title', '-pltmod-title', '-plot-title', '-pltsrv-title', '-plotmodule-title')
+      stopwords <- c("-title", "-pltmod-title", "-plot-title", "-pltsrv-title", "-plotmodule-title")
       x <- unlist(strsplit(filename, "-"))
       x <- x[!x %in% stopwords]
       filename <- paste(x, collapse = "-")
@@ -521,7 +521,7 @@ PlotModuleServer <- function(id,
 
       if (do.png && is.null(download.png)) {
         download.png <- shiny::downloadHandler(
-          filename = paste0(filename,".png"),
+          filename = paste0(filename, ".png"),
           content = function(file) {
             png.width <- input$pdf_width * 80
             png.height <- input$pdf_height * 80
@@ -617,7 +617,7 @@ PlotModuleServer <- function(id,
 
       if (do.pdf && is.null(download.pdf)) {
         download.pdf <- shiny::downloadHandler(
-          filename = paste0(filename,".pdf"),
+          filename = paste0(filename, ".pdf"),
           content = function(file) {
             pdf.width <- input$pdf_width
             pdf.height <- input$pdf_height
@@ -787,7 +787,7 @@ PlotModuleServer <- function(id,
       ## if(do.csv && is.null(download.csv) )  {
       if (do.csv) {
         download.csv <- shiny::downloadHandler(
-          filename = paste0(filename, '.csv'),
+          filename = paste0(filename, ".csv"),
           content = function(file) {
             shiny::withProgress(
               {
@@ -1088,7 +1088,7 @@ PlotModuleServer <- function(id,
 colBL <- "#00448855"
 colRD <- "#88004455"
 
-plotlyExport <- function(p, file = paste0(filename, ".pdf") , format = tools::file_ext(file),
+plotlyExport <- function(p, file = paste0(filename, ".pdf"), format = tools::file_ext(file),
                          width = NULL, height = NULL, scale = 1, server = NULL) {
   is.docker <- file.exists("/.dockerenv")
   is.docker

diff --git a/components/ui/ui-TableModule2.R b/components/ui/ui-TableModule2.R
@@ -168,8 +168,9 @@ TableModuleServer <- function(id,
       # x <- x[!x %in% stopwords]
       # filename <- paste(x, collapse = "-")
       # print(filename)
-      filename <- vapply(strsplit(filename, "-"), function(x) #remove uninformative information.
-                           paste(x[seq.int(2)], collapse = "-"), character(1L))
+      filename <- vapply(strsplit(filename, "-"), function(x) { # remove uninformative information.
+        paste(x[seq.int(2)], collapse = "-")
+      }, character(1L))
       filename <- paste0(filename, ".csv")
 
       if (is.null(func2)) func2 <- func