fix error with export

InseeFr · Oct 10, 2024 · f280e77 · f280e77
1 parent 4de04bb
commit f280e77
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 15 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -6,6 +6,7 @@
 ^\.github$
 
 ^README\.Rmd$
+^README\.html$
 ^README-.*\.png$
 
 ^Meta$

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: JDCruncheR
 Type: Package
 Title: Interface Between the 'JDemetra+' Cruncher and R, and Quality Report Generator
-Version: 0.3.0.9000
+Version: 0.3.1
 Authors@R: c(
     person(given = "Tanguy", 
            family = "Barthelemy", role = c("aut", "cre", "art"),

diff --git a/R/QR_export.R b/R/QR_export.R
@@ -225,13 +225,13 @@ export_xlsx.QR_matrix <- function(x,
         wb = wb_qr,
         sheet = "Modalities",
         x = x$modalities,
-        headerStyle = ifelse(test = auto_format, yes = header_style, no = NULL)
+        headerStyle = if (auto_format) header_style else NULL
     )
     openxlsx::writeData(
         wb = wb_qr,
         sheet = "Values",
         x = x$values,
-        headerStyle = ifelse(test = auto_format, yes = header_style, no = NULL)
+        headerStyle = if (auto_format) header_style else NULL
     )
 
     if (auto_format) {
@@ -382,17 +382,13 @@ export_xlsx.mQR_matrix <- function(
                 wb = wb_modalities,
                 sheet = name,
                 x = qr$modalities,
-                headerStyle = ifelse(test = auto_format,
-                                     yes = header_style,
-                                     no = NULL)
+                headerStyle = if (auto_format) header_style else NULL
             )
             openxlsx::writeData(
                 wb = wb_values,
                 sheet = name,
                 x = qr$values,
-                headerStyle = ifelse(test = auto_format,
-                                     yes = header_style,
-                                     no = NULL)
+                headerStyle = if (auto_format) header_style else NULL
             )
             if (auto_format) {
                 wb_modalities <- apply_BQ_style(wb = wb_modalities, x = qr,
@@ -440,17 +436,13 @@ export_xlsx.mQR_matrix <- function(
                 wb = wb_mqr,
                 sheet = paste0(name, "_modalities"),
                 x = qr$modalities,
-                headerStyle = ifelse(test = auto_format,
-                                     yes = header_style,
-                                     no = NULL)
+                headerStyle = if (auto_format) header_style else NULL
             )
             openxlsx::writeData(
                 wb = wb_mqr,
                 sheet = paste0(name, "_values"),
                 x = qr$values,
-                headerStyle = ifelse(test = auto_format,
-                                     yes = header_style,
-                                     no = NULL)
+                headerStyle = if (auto_format) header_style else NULL
             )
             if (auto_format) {
                 wb_mqr <- apply_BQ_style(wb = wb_mqr, x = qr,