fix for cran check

nilsmechtel · Feb 25, 2024 · ae9c4f7 · ae9c4f7
1 parent 42c1fe8
commit ae9c4f7
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 22 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,25 +2,11 @@ Package: MetAlyzer
 Type: Package
 Title: Read and Analyze 'MetIDQ&trade;' Software Output Files
 Version: 1.0.0
-Author: Nils Mechtel <[email protected]>
 Maintainer: Nils Mechtel <[email protected]>
-Authors@R:
-    c(person("Nils", "Mechtel",
-            email = "[email protected]",
-            role = c("aut", "cre"),
-            comment = c(ORCID = "0000-0002-1278-7125")),
-     person("Luis", "Herfurth",
-            email = "[email protected]",
-            role = c("aut"),
-            comment = c(ORCID = "0009-0000-9933-3056")),
-     person("Carolin", "Andresen",
-            email = "[email protected]",
-            role = c("aut"),
-            comment = c(ORCID = "0000-0002-8960-7719")),
-     person("Daniel", "Huebschmann",
-            email = "[email protected]",
-            role = c("aut"),
-            comment = c(ORCID = "0000-0002-6041-7049")))
+Author: Nils Mechtel [aut, cre] (<[email protected]>, ORCID: 0000-0002-1278-7125),
+        Luis Herfurth [aut] (<[email protected]>, ORCID: 0009-0000-9933-3056),
+        Carolin Andresen [aut] (<[email protected]>, ORCID: 0000-0002-8960-7719),
+        Daniel Huebschmann [aut] (<[email protected]>, ORCID: 0000-0002-6041-7049)
 Depends:
     R (>= 4.0.0)
 biocViews:

diff --git a/R/calculate_anova.R b/R/calculate_anova.R
@@ -42,7 +42,7 @@
 #' metalyzer_se <- calculate_anova(
 #'   metalyzer_se,
 #'   categorical = "Extraction_Method",
-#'   groups = c("Tissue", "Metabolite"),
+#'   groups = c("Metabolite"),
 #'   impute_perc_of_min = 0.2,
 #'   impute_NA = FALSE
 #' )
@@ -130,7 +130,7 @@ calc_anova <- function(c_vec, d_vec) {
 
   if (sum(!is.na(d_vec)) == 0 | length(unique(c_vec[mask])) < 2) {
     ## less than two levels
-    group_vec <- NA
+    group_vec <- rep(NA, length(c_vec))
   } else {
     tmp_df <- data.frame(Categorical = as.character(c_vec),
                          Dependent = as.numeric(d_vec))

diff --git a/man/calculate_anova.Rd b/man/calculate_anova.Rd
diff --git a/vignettes/MetAlyzer_User_Guide.Rmd b/vignettes/MetAlyzer_User_Guide.Rmd
@@ -187,7 +187,7 @@ metalyzer_se <- calculate_anova(
   categorical = "Extraction_Method",
   groups = c("Tissue", "Metabolite"),
   impute_perc_of_min = 0.2,
-  impute_NA = TRUE
+  impute_NA = FALSE
 )
 
 aggregated_data <- aggregatedData(metalyzer_se) %>%

diff --git a/network_green_magenta.pdf → vignettes/network_green_magenta.pdf b/network_green_magenta.pdf → vignettes/network_green_magenta.pdf