tinieR

petit

Résistomiser l'image FileSize avec l'API TinYPNG.

À partir du site Web de Tinypng: "Tinypng utilise des techniques de compression Smart Lossy pour réduire la taille du fichier de vos fichiers. Très grande différence de taille de fichier! "

Original:	Tine:
exemple.png: 35,6 kb	example_tiny.png: 10,8 kb

Panda emoji par Sofie Ascherl, d'Openmoji

Tinier fonctionne avec les fichiers .png et .jpg / .jpeg, et peut renvoyer la nouvelle image filepath pour activer l'intégration dans d'autres workflows / fonctions d'image.

Installation

Vous pouvez installer la dernière version de Tinon de GitHub avec:

 # install.packages("devtools")
devtools :: install_github( " jmablog/tinieR " )

Authentification avec Tinypng

Vous aurez besoin d'une clé API de Tinypng. Vous pouvez vous inscrire pour en obtenir un ici.

Une fois que vous avez votre clé API, vous pouvez le définir pour votre session R actuelle avec:

library( tinieR )

tinify_key( " YOUR-API-KEY-HERE " )

Soyez prudent, y compris votre clé API dans tous les scripts que vous écrivez, surtout si vous allez partager publiquement ou ces scripts avec les autres! Vous pouvez envisager de définir votre clé API à la place dans votre fichier .renviron (~ / .renviron). Si vous utilisez le nom de la variable TINY_API dans .renviron, tinify() doit le trouver, et vous pouvez sauter à l'aide tinify_api() ou de fournir une API à chaque appel de tinify() .

Utilisation de base

Avec des images existantes

Pour rétrécir la taille d'un fichier d'image, fournissez un chemin vers le fichier par rapport au répertoire de travail actuel de tinify() :

tinify( " example.png " )

# > Filesize reduced by 50%:
# > example.png (20K) => example_tiny.png (10K)
# > 10 Tinify API calls this month

Par défaut, tinify() créera un nouveau fichier avec le suffixe '_tiny' dans le même répertoire que le fichier d'origine.

Avec des parcelles

Pour enregistrer un tracé dans un fichier, une taille automatique de ce fichier, appelez simplement petit_plot() après le tracé:

plot( mtcars $ mpg , mtcars $ drat )

petit_plot( filename = " mtcars " )

Ou, fournissez un objet de tracé GGPLOT à petit_ggplot() :

 p <- ggplot( data = palmerpenguins :: penguins ,
            aes( flipper_length_mm , body_mass_g )) +
     geom_point(aes( color = species )
     
petit_ggplot( filename = " penguins " , plot = p )

Utilisation avancée

Pour plus de détails sur toutes les options que Tinon propose, consultez la vignette "Full Walkwarhough" ici.

Pour définir des options par défaut pour une utilisation avec tinify() , consultez la vignette "Options par défaut".