tinieR

крошечный

Сосадка изображения файлы с помощью API TinyPng.

На веб -сайте TinyPng: «TinyPng использует методы сжатия Smart Lossy, чтобы уменьшить размер файла ваших файлов. Избирательно уменьшая количество цветов в изображении, для хранения данных требуется меньше байтов. Эффект почти невидим, но он делает Очень большая разница в размере файла! »

Оригинал:	Tinfied:
Пример. PNG: 35,6 КБ	example_tiny.png: 10,8 кб

Panda Emoji от Sofie Ascherl, от OpenMoji

Tinier работает с файлами .png и .jpg/.jpeg и может вернуть новое изображение FilePath, чтобы включить внедрение в другие рабочие процессы/функции изображения.

Установка

Вы можете установить последнюю версию Tinier от GitHub с:

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

Аутентификация с Tinypng

Вам понадобится ключ API от Tinypng. Вы можете зарегистрироваться, чтобы получить его здесь.

После того, как у вас есть ключ API, вы можете установить его для текущего сеанса R:

library( tinieR )

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

Будьте осторожны, включая свой ключ API в любые сценарии, которые вы пишете, особенно если вы собираетесь публично или в частном порядке делиться этими сценариями с другими! Вместо этого вы можете подумать о том, чтобы установить ключ API в вашем файле .ronviron (~/.Renviron). Если вы используете имя переменной TINY_API в .ronviron, tinify() должен найти его, и вы можете пропустить с помощью tinify_api() или предоставлять API при каждом вызове tinify() .

Базовое использование

С существующими изображениями

Чтобы сократить размер файла изображения, предоставьте путь к файлу относительно текущего рабочего каталога tinify() :

tinify( " example.png " )

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

По умолчанию tinify() создаст новый файл с суффиксом «_tiny» в том же каталоге, что и исходный файл.

С участками

Чтобы сохранить график в файл, автоматически сокращает размер этого файла, просто вызовите petit_plot() после сюжета:

plot( mtcars $ mpg , mtcars $ drat )

petit_plot( filename = " mtcars " )

Или предоставьте объект графика 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 )

Расширенное использование

Для получения подробной информации обо всех вариантах, которые предоставляет Tinier , см. Виньетку «Полное прохождение» здесь.

Чтобы установить параметры по умолчанию для использования с помощью tinify() , см. Vignette «Настройка параметров по умолчанию».