tinieR

lebih kecil

Kecilkan gambar gambar dengan API Tinypng.

Dari situs web TinyPng: "Tinypng menggunakan teknik kompresi lossy pintar untuk mengurangi ukuran file file Anda. Dengan secara selektif mengurangi jumlah warna pada gambar, lebih sedikit byte yang diperlukan untuk menyimpan data. Efeknya hampir tidak terlihat tetapi membuat a Perbedaan yang sangat besar dalam ukuran file! "

Asli:	Tinified:
Contoh.png: 35.6 kb	example_tiny.png: 10.8 kb

Panda Emoji oleh Sofie Ascherl, dari OpenMoji

Tinier berfungsi dengan file .png dan .jpg/.jpeg, dan dapat mengembalikan gambar gambar baru untuk memungkinkan penyematan dalam alur kerja/fungsi gambar lainnya.

Instalasi

Anda dapat menginstal versi terbaru dari GitHub dengan:

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

Otentikasi dengan TinyPng

Anda akan membutuhkan kunci API dari TinyPng. Anda bisa mendaftar untuk mendapatkannya di sini.

Setelah Anda memiliki kunci API Anda, Anda dapat mengaturnya untuk sesi R Anda saat ini dengan:

library( tinieR )

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

Hati -hati memasukkan kunci API Anda dalam skrip apa pun yang Anda tulis, terutama jika Anda akan berbagi skrip di depan umum atau pribadi dengan orang lain! Anda dapat mempertimbangkan untuk mengatur kunci API Anda sebagai gantinya di file .Renviron Anda (~/.Renviron). Jika Anda menggunakan nama variabel TINY_API di .Renviron, tinify() harus menemukannya, dan Anda dapat melewatkan menggunakan tinify_api() atau menyediakan API di setiap panggilan tinify() .

Penggunaan Dasar

Dengan gambar yang ada

Untuk mengecilkan ukuran file gambar, berikan jalur ke file relatif ke direktori kerja saat ini ke tinify() :

tinify( " example.png " )

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

Secara default, tinify() akan membuat file baru dengan akhiran '_tiny' di direktori yang sama dengan file asli.

Dengan plot

Untuk menyimpan plot ke file, secara otomatis menyusut ukuran file itu, cukup hubungi petit_plot() setelah plot:

plot( mtcars $ mpg , mtcars $ drat )

petit_plot( filename = " mtcars " )

Atau, berikan objek plot ggplot ke 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 )

Penggunaan lanjutan

Untuk perincian tentang semua opsi yang disediakan, lihat sketsa "Walkthrough" di sini.

Untuk mengatur opsi default untuk digunakan dengan tinify() , lihat Vignette "Mengatur Opsi Default".