This function loads an image from file and convert it to a numpy array.
Arguments
- path
Character. Path to the image.
- height
Integer. Target height of the image.
- width
Integer. Target width of the image.
Examples
p <- ggplot2::ggplot(cars) + ggplot2::geom_point(ggplot2::aes(dist, speed))
path <- save_plot(p)
result <- try(KERAS_WRAPPER$image_to_array(path, 32L, 32L))
if (!inherits(result, "try-error")) {
result
}
#> array([[[[255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.],
#> ...,
#> [255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.]],
#>
#> [[255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.],
#> ...,
#> [249., 249., 249.],
#> [255., 255., 255.],
#> [255., 255., 255.]],
#>
#> [[255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.],
#> ...,
#> [201., 201., 201.],
#> [252., 252., 252.],
#> [255., 255., 255.]],
#>
#> ...,
#>
#> [[255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.],
#> ...,
#> [255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.]],
#>
#> [[255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.],
#> ...,
#> [255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.]],
#>
#> [[255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.],
#> ...,
#> [255., 255., 255.],
#> [255., 255., 255.],
#> [255., 255., 255.]]]])