Use *jpg to create *jgw file using R

Question

In my example, I have a single dji image in *JPG:

library(terra)
single.image <-rast("https://github.com/Leprechault/trash/raw/main/DJI_0274.JPG")
plotRGB(single.image,  r = 3, g = 2, b = 1, stretch = "lin")
# class      : RasterStack 
# dimensions : 3648, 4864, 17743872, 3  (nrow, ncol, ncell, nlayers)
# resolution : 1, 1  (x, y)
# extent     : 0, 4864, 0, 3648  (xmin, xmax, ymin, ymax)
# crs        : NA 
# names      : DJI_0274_1, DJI_0274_2, DJI_0274_3 

How can I use this single.image to * .jgw file creation using R?

Answer 1

Here is how you could do that if the image does not have a rotation.

Set the extent

ext(single.image) <- c(-10, 10, -20, 0)

Write the world file

wfile <- function (x, filename) {
    thefile <- file(filename, "w")
    cat(as.character(xres(x)), "\n", file = thefile)
    cat("0\n0\n", file = thefile)
    cat(-1 * yres(x), "\n", file = thefile)
    cat(xmin(x) + 0.5 * xres(x), "\n", file = thefile)
    cat(ymax(x) - 0.5 * yres(x), "\n", file = thefile)
    close(thefile)
}

wfile(single.image, "single.image.jpw")