Add scripts to generate logos

[llrs-roche]

This PR adds two scripts:

• scripts/convert_formats.R: To convert logos to svg and other formats (except ICO)
• scripts/save_logos.R: To copy those logos to the repositories of packages at the right place (man/figures/logo.svg)

This is simplifies the process of SVG generation for all the packages.
If this is enough I can commit all the JPG and SVG generated with the script.

Helps with the packages that don't have SVG logos from: insightsengineering/nestdevs-tasks#93

[github-actions]

✅ All contributors have signed the CLA
_{Posted by the CLA Assistant Lite bot.}

[llrs-roche]

I have read the CLA Document and I hereby sign the CLA

[m7pr]

Hey @llrs-roche I wrote quickly some dirty code. I was trying to remove testing artifacts (like browser calls and exploratory outputs) ensures the script is clean and production-ready. I also put some repetitive code into functions. Lastly, by focusing only on incomplete cases and avoiding unnecessary loops or operations, the script is optimized for performance.

# 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 = all_icons %in% svg_files,
  png = all_icons %in% png_files,
  ico = all_icons %in% ico_files,
  jpg = all_icons %in% jpg_files
)

# Filter files that need conversion (not present in all formats)
files_to_convert <- icons_df[rowSums(icons_df[, -1]) != ncol(icons_df) - 1, ]

# 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", "jpeg", "ico"), available_formats)

  # Determine the best base format to use for conversion
  format_preference <- c("svg", "jpg", "png", "ico")
  base_format <- format_preference[min(match(available_formats, format_preference, nomatch = Inf))]

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

  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
apply(files_to_convert, 1, convert_logos)

# Move SVG logos to corresponding package directories
move_logos_to_packages <- function() {
  svg_logos <- list.files("SVG", full.names = TRUE, recursive = FALSE)
  package_dirs <- list.dirs("..", 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("..", 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)) {
    file.copy(from = origin_paths[valid_destinations], to = destination_paths[valid_destinations])
  }

  # Remove existing PNG logos if applicable
  png_logos <- file.path("..", matching_packages, "man", "figures", "logo.png")
  if (any(file.exists(png_logos))) {
    file.remove(png_logos[file.exists(png_logos)])
  }
}

move_logos_to_packages()

[llrs-roche]

Using apply converts the data.frame to a matrix which then leads to an error, I tweaked it a little bit.
As I don't see any comment on the conversion of the files (even if the svg are an encoded image and not a really xml content) I'll add the new logos formats on this PR.

[m7pr]

Left one comment