tinieR

Tinier

A imagem encolhida é arquivada com a API TINYPNG.

No site do TINYPNG: "O TINYPNG usa técnicas de compactação com perda inteligente para reduzir o tamanho do arquivo de seus arquivos. Ao diminuir seletivamente o número de cores na imagem, menos bytes são necessários para armazenar os dados. O efeito é quase invisível, mas torna um um Muito grande diferença no tamanho do arquivo! "

Original:	Tinificado:
exemplo.png: 35,6 kb	exemplo_tiny.png: 10,8 kb

Panda emoji de Sofie Ascherl, do OpenMoji

Tinier trabalha com arquivos .png e .jpg/.jpeg e pode retornar a nova imagem FilePath para ativar a incorporação em outros fluxos de trabalho/funções de imagem.

Instalação

Você pode instalar a versão mais recente do Tinier no GitHub com:

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

Autenticação com tinypng

Você precisará de uma chave da API do TINYPNG. Você pode se inscrever para conseguir um aqui.

Depois de ter sua chave de API, você pode configurá -la para a sua sessão R atual com:

library( tinieR )

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

Cuidado, incluindo sua chave da API em todos os scripts que você escrever, especialmente se você estiver compartilhando publicamente ou em particular esses scripts com outras pessoas! Você pode considerar definir sua chave da API em seu arquivo .renviron (~/.renviron). Se você usar o nome da variável TINY_API em .renviron, tinify() deve encontrá -lo e você pode pular usando tinify_api() ou fornecer uma API em cada chamada de tinify() .

Uso básico

Com imagens existentes

Para encolher o tamanho de um arquivo de imagem, forneça um caminho para o arquivo em relação ao diretório de trabalho atual para tinify() :

tinify( " example.png " )

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

Por padrão, tinify() criará um novo arquivo com o sufixo '_tiny' no mesmo diretório que o arquivo original.

Com parcelas

Para salvar um enredo em um arquivo e encolher automaticamente o tamanho desse arquivo, basta ligar para petit_plot() após o gráfico:

plot( mtcars $ mpg , mtcars $ drat )

petit_plot( filename = " mtcars " )

Ou forneça um objeto GGPLOT Plot para 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 )

Uso avançado

Para obter detalhes sobre todas as opções que o Tinier oferece, consulte a vinheta "Walkthrough" aqui.

Para definir opções padrão para uso com tinify() , consulte a vinheta "Configurando opções padrão".