exiv

Description

Read and Write ‘Exif’, ‘ID3v1’ and ‘ID3v2’ Image/Media Tags

README FIRST!!!

This package shld work on macOS and Linux systems that have the exiv2 and taglib packages installed:

• macOS: brew install taglib exiv2
• Ubuntu/Debian sudo apt-get install libexiv2-dev exiv2 libtag1-dev

For the time being, they need to be easily findable. It’ll be more robust when the pkg is out of Alpha status.

ONLY “Standard” Exif TAGS ARE SUPPORTED FOR THE MOMENT.

Value Exif types currently supported:

• ascii
• long
• short
• rational
• srational
• comment

What’s Inside The Tin

The following functions are implemented:

• read_exif: Retrieve Exif data from an image file
• set_exif: Set Exif tag data on an image file
• exif_tags: Return a data frame of all possible Exif tags

Installation

devtools::install_github("hrbrmstr/exiv")

Usage

library(exiv)
library(tidyverse)

# current verison
packageVersion("exiv")

## [1] '0.1.0'

Tags, you say?

We got your tags, right here:

exif_tags(filter_type="ascii")

## # A tibble: 49 x 4
##                              key  type
##                            <chr> <chr>
##  1 Exif.Image.ProcessingSoftware ascii
##  2       Exif.Image.DocumentName ascii
##  3   Exif.Image.ImageDescription ascii
##  4               Exif.Image.Make ascii
##  5              Exif.Image.Model ascii
##  6           Exif.Image.Software ascii
##  7           Exif.Image.DateTime ascii
##  8             Exif.Image.Artist ascii
##  9       Exif.Image.HostComputer ascii
## 10           Exif.Image.InkNames ascii
## # ... with 39 more rows, and 2 more variables: description <chr>, rname <chr>

Read exif data

This shld be an empty data frame:

r_logo <- system.file("extdata", "Rlogo.png", package="exiv")

read_exif(r_logo)

## # A tibble: 0 x 0

Let’s move it and add some ASCII metadata!

tf <- tempfile(fileext=".png")
file.copy(r_logo, tf)

## [1] TRUE

set_exif(tf, "Exif.Image.ProcessingSoftware", "The incredibly unassuming exiv R package!")

## # A tibble: 1 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii

Just to prove we did it:

read_exif(tf)

## # A tibble: 1 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii

Can I have another, then?

set_exif(tf, "Exif.Image.ImageDescription", "The R logo. Duh!")

## # A tibble: 2 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii
## 2   Exif.Image.ImageDescription                          The R logo. Duh!     Ascii

There should be two now!

read_exif(tf)

## # A tibble: 2 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii
## 2   Exif.Image.ImageDescription                          The R logo. Duh!     Ascii

Some numerics:

set_exif(tf, "Exif.Image.ImageWidth", 1000)

## # A tibble: 3 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii
## 2         Exif.Image.ImageWidth                                      1000     SLong
## 3   Exif.Image.ImageDescription                          The R logo. Duh!     Ascii

set_exif(tf, "Exif.Image.RatingPercent", 30)

## # A tibble: 4 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii
## 2         Exif.Image.ImageWidth                                      1000     SLong
## 3   Exif.Image.ImageDescription                          The R logo. Duh!     Ascii
## 4      Exif.Image.RatingPercent                                        30     Short

set_exif(tf, "Exif.Image.YResolution", c(-2, 3))

## # A tibble: 5 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii
## 2         Exif.Image.ImageWidth                                      1000     SLong
## 3   Exif.Image.ImageDescription                          The R logo. Duh!     Ascii
## 4        Exif.Image.YResolution                              4294967294/3  Rational
## 5      Exif.Image.RatingPercent                                        30     Short

set_exif(tf, "Exif.Photo.DateTimeOriginal", as.character(Sys.time()))

## # A tibble: 7 x 3
##                        exif_key                                  exif_val exif_type
##                           <chr>                                     <chr>     <chr>
## 1 Exif.Image.ProcessingSoftware The incredibly unassuming exiv R package!     Ascii
## 2         Exif.Image.ImageWidth                                      1000     SLong
## 3   Exif.Image.ImageDescription                          The R logo. Duh!     Ascii
## 4        Exif.Image.YResolution                              4294967294/3  Rational
## 5      Exif.Image.RatingPercent                                        30     Short
## 6            Exif.Image.ExifTag                                       154      Long
## 7   Exif.Photo.DateTimeOriginal                       2017-11-15 06:37:54     Ascii