diff --git a/JPG/Biomarker.ico b/JPG/Biomarker.ico new file mode 100644 index 0000000..2fbf8b7 Binary files /dev/null and b/JPG/Biomarker.ico differ diff --git a/JPG/Biomarker.jpg b/JPG/Biomarker.jpg new file mode 100644 index 0000000..2fbf8b7 Binary files /dev/null and b/JPG/Biomarker.jpg differ diff --git a/JPG/DataFakeR.jpg b/JPG/DataFakeR.jpg new file mode 100644 index 0000000..f2c5725 Binary files /dev/null and b/JPG/DataFakeR.jpg differ diff --git a/JPG/GitStats.jpg b/JPG/GitStats.jpg new file mode 100644 index 0000000..583874d Binary files /dev/null and b/JPG/GitStats.jpg differ diff --git a/JPG/PharmaDevOps.jpg b/JPG/PharmaDevOps.jpg new file mode 100644 index 0000000..0773c31 Binary files /dev/null and b/JPG/PharmaDevOps.jpg differ diff --git a/JPG/RDO.jpg b/JPG/RDO.jpg new file mode 100644 index 0000000..d328e8a Binary files /dev/null and b/JPG/RDO.jpg differ diff --git a/JPG/Rbasel.jpg b/JPG/Rbasel.jpg new file mode 100644 index 0000000..f3667af Binary files /dev/null and b/JPG/Rbasel.jpg differ diff --git a/JPG/StatisticalEngineering.jpg b/JPG/StatisticalEngineering.jpg new file mode 100644 index 0000000..5a99d54 Binary files /dev/null and b/JPG/StatisticalEngineering.jpg differ diff --git a/JPG/StatisticalEngineering_test.jpg b/JPG/StatisticalEngineering_test.jpg new file mode 100644 index 0000000..5a99d54 Binary files /dev/null and b/JPG/StatisticalEngineering_test.jpg differ diff --git a/JPG/TLG.jpg b/JPG/TLG.jpg new file mode 100644 index 0000000..0f3b2c6 Binary files /dev/null and b/JPG/TLG.jpg differ diff --git a/JPG/admiral.jpg b/JPG/admiral.jpg new file mode 100644 index 0000000..83a6754 Binary files /dev/null and b/JPG/admiral.jpg differ diff --git a/JPG/bonsaiforest.jpg b/JPG/bonsaiforest.jpg new file mode 100644 index 0000000..cb404f3 Binary files /dev/null and b/JPG/bonsaiforest.jpg differ diff --git a/JPG/cards.jpg b/JPG/cards.jpg new file mode 100644 index 0000000..c0cff3b Binary files /dev/null and b/JPG/cards.jpg differ diff --git a/JPG/cardx.jpg b/JPG/cardx.jpg new file mode 100644 index 0000000..81203e0 Binary files /dev/null and b/JPG/cardx.jpg differ diff --git a/JPG/facetsr.jpg b/JPG/facetsr.jpg new file mode 100644 index 0000000..9db69c6 Binary files /dev/null and b/JPG/facetsr.jpg differ diff --git a/JPG/ggplot2.utils.jpg b/JPG/ggplot2.utils.jpg new file mode 100644 index 0000000..691d6aa Binary files /dev/null and b/JPG/ggplot2.utils.jpg differ diff --git a/JPG/helios.jpg b/JPG/helios.jpg new file mode 100644 index 0000000..2f27b11 Binary files /dev/null and b/JPG/helios.jpg differ diff --git a/JPG/jmpost.jpg b/JPG/jmpost.jpg new file mode 100644 index 0000000..17ce27e Binary files /dev/null and b/JPG/jmpost.jpg differ diff --git a/JPG/mmrm.jpg b/JPG/mmrm.jpg new file mode 100644 index 0000000..289cb25 Binary files /dev/null and b/JPG/mmrm.jpg differ diff --git a/JPG/ocean.jpg b/JPG/ocean.jpg new file mode 100644 index 0000000..3638008 Binary files /dev/null and b/JPG/ocean.jpg differ diff --git a/JPG/psborrow2.jpg b/JPG/psborrow2.jpg new file mode 100644 index 0000000..37debb9 Binary files /dev/null and b/JPG/psborrow2.jpg differ diff --git a/JPG/sasr.jpg b/JPG/sasr.jpg new file mode 100644 index 0000000..70b0034 Binary files /dev/null and b/JPG/sasr.jpg differ diff --git a/JPG/simIDM.jpg b/JPG/simIDM.jpg new file mode 100644 index 0000000..07e1b78 Binary files /dev/null and b/JPG/simIDM.jpg differ diff --git a/JPG/simaerep.jpg b/JPG/simaerep.jpg new file mode 100644 index 0000000..d3da620 Binary files /dev/null and b/JPG/simaerep.jpg differ diff --git a/JPG/visR.jpg b/JPG/visR.jpg new file mode 100644 index 0000000..fb9fe5b Binary files /dev/null and b/JPG/visR.jpg differ diff --git a/PNG/Biomarker.png b/PNG/Biomarker.png new file mode 100644 index 0000000..c167bf3 Binary files /dev/null and b/PNG/Biomarker.png differ diff --git a/PNG/StatisticalEngineering_test.png b/PNG/StatisticalEngineering_test.png new file mode 100644 index 0000000..adea3ad Binary files /dev/null and b/PNG/StatisticalEngineering_test.png differ diff --git a/PNG/TLG.png b/PNG/TLG.png new file mode 100644 index 0000000..c1455e2 Binary files /dev/null and b/PNG/TLG.png differ diff --git a/PNG/bonsaiforest.png b/PNG/bonsaiforest.png new file mode 100644 index 0000000..ba3257b Binary files /dev/null and b/PNG/bonsaiforest.png differ diff --git a/PNG/cards.png b/PNG/cards.png new file mode 100644 index 0000000..4f620e4 Binary files /dev/null and b/PNG/cards.png differ diff --git a/PNG/cardx.png b/PNG/cardx.png new file mode 100644 index 0000000..ccd555c Binary files /dev/null and b/PNG/cardx.png differ diff --git a/PNG/simIDM.png b/PNG/simIDM.png new file mode 100644 index 0000000..0cc719c Binary files /dev/null and b/PNG/simIDM.png differ diff --git a/SVG/Biomarker.svg b/SVG/Biomarker.svg new file mode 100644 index 0000000..a6d356e --- /dev/null +++ b/SVG/Biomarker.svg @@ -0,0 +1,980 @@ + + + + diff --git a/SVG/DataFakeR.svg b/SVG/DataFakeR.svg new file mode 100644 index 0000000..f440508 --- /dev/null +++ b/SVG/DataFakeR.svg @@ -0,0 +1,1495 @@ + + + + diff --git a/SVG/GitStats.svg b/SVG/GitStats.svg new file mode 100644 index 0000000..f2041bb --- /dev/null +++ b/SVG/GitStats.svg @@ -0,0 +1,1119 @@ + + + + diff --git a/SVG/PharmaDevOps.svg b/SVG/PharmaDevOps.svg new file mode 100644 index 0000000..98c57e4 --- /dev/null +++ b/SVG/PharmaDevOps.svg @@ -0,0 +1,2608 @@ + + + + diff --git a/SVG/RDO.svg b/SVG/RDO.svg new file mode 100644 index 0000000..dbbcabb --- /dev/null +++ b/SVG/RDO.svg @@ -0,0 +1,1819 @@ + + + + diff --git a/SVG/Rbasel.svg b/SVG/Rbasel.svg new file mode 100644 index 0000000..cd45169 --- /dev/null +++ b/SVG/Rbasel.svg @@ -0,0 +1,469 @@ + + + + diff --git a/SVG/TLG.svg b/SVG/TLG.svg new file mode 100644 index 0000000..61ce40d --- /dev/null +++ b/SVG/TLG.svg @@ -0,0 +1,914 @@ + + + + diff --git a/SVG/admiral.svg b/SVG/admiral.svg new file mode 100644 index 0000000..3c1cf78 --- /dev/null +++ b/SVG/admiral.svg @@ -0,0 +1,1197 @@ + + + + diff --git a/SVG/bonsaiforest.svg b/SVG/bonsaiforest.svg new file mode 100644 index 0000000..b01b18c --- /dev/null +++ b/SVG/bonsaiforest.svg @@ -0,0 +1,385 @@ + + + + diff --git a/SVG/cards.svg b/SVG/cards.svg new file mode 100644 index 0000000..3561a6d --- /dev/null +++ b/SVG/cards.svg @@ -0,0 +1,805 @@ + + + + diff --git a/SVG/cardx.svg b/SVG/cardx.svg new file mode 100644 index 0000000..5de5276 --- /dev/null +++ b/SVG/cardx.svg @@ -0,0 +1,804 @@ + + + + diff --git a/SVG/covtracer.svg b/SVG/covtracer.svg new file mode 100644 index 0000000..097fa57 --- /dev/null +++ b/SVG/covtracer.svg @@ -0,0 +1,621 @@ + + + + diff --git a/SVG/crmPack.svg b/SVG/crmPack.svg new file mode 100644 index 0000000..64142b1 --- /dev/null +++ b/SVG/crmPack.svg @@ -0,0 +1,798 @@ + + + + diff --git a/SVG/facetsr.svg b/SVG/facetsr.svg new file mode 100644 index 0000000..c8a5958 --- /dev/null +++ b/SVG/facetsr.svg @@ -0,0 +1,1474 @@ + + + + diff --git a/SVG/ggplot2.utils.svg b/SVG/ggplot2.utils.svg new file mode 100644 index 0000000..af96860 --- /dev/null +++ b/SVG/ggplot2.utils.svg @@ -0,0 +1,19899 @@ + + + + diff --git a/SVG/helios.svg b/SVG/helios.svg new file mode 100644 index 0000000..465bd82 --- /dev/null +++ b/SVG/helios.svg @@ -0,0 +1,719 @@ + + + + diff --git a/SVG/hermes.svg b/SVG/hermes.svg new file mode 100644 index 0000000..780c706 --- /dev/null +++ b/SVG/hermes.svg @@ -0,0 +1,27 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SVG/jmpost.svg b/SVG/jmpost.svg new file mode 100644 index 0000000..05cf8bf --- /dev/null +++ b/SVG/jmpost.svg @@ -0,0 +1,12887 @@ + + + + diff --git a/SVG/ocean.svg b/SVG/ocean.svg new file mode 100644 index 0000000..d6a82e5 --- /dev/null +++ b/SVG/ocean.svg @@ -0,0 +1,5169 @@ + + + + diff --git a/SVG/pharmaverse.svg b/SVG/pharmaverse.svg new file mode 100644 index 0000000..2c91d7c --- /dev/null +++ b/SVG/pharmaverse.svg @@ -0,0 +1,616 @@ + + + + diff --git a/SVG/psborrow2.svg b/SVG/psborrow2.svg new file mode 100644 index 0000000..5cbbf82 --- /dev/null +++ b/SVG/psborrow2.svg @@ -0,0 +1,7904 @@ + + + + diff --git a/SVG/rbmi.svg b/SVG/rbmi.svg new file mode 100644 index 0000000..8e8e8cb --- /dev/null +++ b/SVG/rbmi.svg @@ -0,0 +1,646 @@ + + + + diff --git a/SVG/simIDM.svg b/SVG/simIDM.svg new file mode 100644 index 0000000..939fd07 --- /dev/null +++ b/SVG/simIDM.svg @@ -0,0 +1,414 @@ + + + + diff --git a/SVG/simaerep.svg b/SVG/simaerep.svg new file mode 100644 index 0000000..ecf5680 --- /dev/null +++ b/SVG/simaerep.svg @@ -0,0 +1,444 @@ + + + + diff --git a/SVG/staged.dependencies.svg b/SVG/staged.dependencies.svg new file mode 100644 index 0000000..6fddbfa --- /dev/null +++ b/SVG/staged.dependencies.svg @@ -0,0 +1,1072 @@ + + + + diff --git a/SVG/thevalidatoR.svg b/SVG/thevalidatoR.svg new file mode 100644 index 0000000..35e3c85 --- /dev/null +++ b/SVG/thevalidatoR.svg @@ -0,0 +1,875 @@ + + + + diff --git a/SVG/visR.svg b/SVG/visR.svg new file mode 100644 index 0000000..fa0456a --- /dev/null +++ b/SVG/visR.svg @@ -0,0 +1,446 @@ + + + + diff --git a/scripts/convert_formats.R b/scripts/convert_formats.R new file mode 100644 index 0000000..8cca9a3 --- /dev/null +++ b/scripts/convert_formats.R @@ -0,0 +1,97 @@ +# Professional Script for Automatic Logo Conversion + +library("magick") + +# Function to retrieve file information from a directory +get_file_info <- function(path) { + files <- list.files(path = path, full.names = TRUE, recursive = FALSE) + tools::file_path_sans_ext(basename(files)) +} + +# Get file names (sans extensions) from each format directory +svg_files <- get_file_info("SVG") +png_files <- get_file_info("PNG") +ico_files <- get_file_info("ICO") +jpg_files <- get_file_info("jpg") + +# Consolidate all unique file names +all_icons <- unique(c(svg_files, png_files, ico_files, jpg_files)) + +# Create a dataframe indicating the presence of each format +icons_df <- data.frame( + icons = all_icons, + svg = tolower(all_icons) %in% tolower(svg_files), + png = tolower(all_icons) %in% tolower(png_files), + ico = tolower(all_icons) %in% tolower(ico_files), + jpg = tolower(all_icons) %in% tolower(jpg_files) +) + +# Filter files that need conversion (not present in all formats less ICO) +files_to_convert <- icons_df[rowSums(icons_df[, -1]) < ncol(icons_df) - 2, ] + +# Function to convert and save logos in missing formats +convert_logos <- function(row) { + file_name <- row["icons"] + available_formats <- names(row[-1])[unlist(row[-1])] + missing_formats <- setdiff(c("svg", "png", "jpg", "ico"), available_formats) + + # Determine the best base format to use for conversion + format_preference <- c("svg", "jpg", "png", "ico") + min_match <- min(match(available_formats, format_preference), na.rm = TRUE) + base_format <- format_preference[min_match] + + input_file <- file.path(toupper(base_format), paste0(file_name, ".", base_format)) + image <- if (base_format == "svg") { + image_read_svg(input_file) + } else { + image_read(input_file) + } + + missing_formats <- setdiff(missing_formats, "ico") + if (length(missing_formats) == 0L) { + invisible(return(NULL)) + } + message("Converting ", file_name, " from ", base_format, " to ", paste(missing_formats, collapse = ", ")) + for (format in missing_formats) { + if (format == "ico") next # Skip ICO conversion (optional handling) + output_file <- file.path(toupper(format), paste0(file_name, ".", format)) + converted_image <- image_convert(image, format = format, matte = TRUE) + image_write(converted_image, path = output_file, format = format, depth = 8) + } + + image_destroy(image) +} + +# Perform conversion for each incomplete file +for (r in seq_len(nrow(files_to_convert))) { + convert_logos(files_to_convert[r, ]) +} + +# Move SVG logos to corresponding package directories +move_logos_to_packages <- function(path_pacakges = "..") { + svg_logos <- list.files("SVG", full.names = TRUE, recursive = FALSE) + package_dirs <- list.dirs(path_pacakges, recursive = FALSE) + package_dirs <- package_dirs[!endsWith(package_dirs, ".Rcheck")] + + logo_names <- tools::file_path_sans_ext(basename(svg_logos)) + matching_packages <- intersect(tolower(logo_names), basename(package_dirs)) + + destination_paths <- file.path(path_pacakges, matching_packages, "man", "figures", "logo.svg") + origin_paths <- svg_logos[tools::file_path_sans_ext(basename(svg_logos)) %in% matching_packages] + + valid_destinations <- dir.exists(dirname(destination_paths)) & !file.exists(destination_paths) + + if (any(valid_destinations)) { + message("Copying to", paste(destination_paths[valid_destinations], collapse = ", ")) + file.copy(from = origin_paths[valid_destinations], to = destination_paths[valid_destinations]) + } + + # Remove existing PNG logos if applicable + png_logos <- file.path(path_pacakges, matching_packages, "man", "figures", "logo.png") + if (any(file.exists(png_logos))) { + message("Removing ", paste(png_logos[file.exists(png_logos)], collapse = ", ")) + file.remove(png_logos[file.exists(png_logos)]) + } +} + +move_logos_to_packages()