inst/sponsors/resize_logos.R

files <- list.files(pattern = ".+_logo\\.png")
for (file in files)
	system(
		sprintf("convert %s -geometry x50 %s",
			file,
			gsub("logo", "logo50", file)
		)
	)
iNZightVIT/iNZight documentation built on April 8, 2024, 10:23 a.m.