Skip to contents

This function loads an image from file and convert it to a numpy array.

Usage

KERAS_WRAPPER$image_to_array(
  path,
  height = self$get_input_height(),
  width = self$get_input_width()
)

Arguments

path

Character. Path to the image.

height

Integer. Target height of the image.

width

Integer. Target width of the image.

Value

A numpy array.

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.]]]])