R, shinyで、読み込んだ画像の輝度値を知りたい。

shinyで画像を読み込み、表示するところまではできるのですが、その後その画像の輝度値を求める方法が分からずに困っています。

【UI】
library(shiny)

ui<-shinyUI(

tabPanel("Image", fluidPage(

titlePanel("Image"),

fluidRow(
column(2,
fileInput("file1", "Choose image File",
multiple = TRUE,
accept = c(".png","bmp","jpeg","jpg"))
),
column(10,

mainPanel(
tabsetPanel(
type="tabs",
tabPanel("image",
imageOutput("image")
), #close tabpanel
tabPanel("brightness",
tableOutput("brightness")
) #close tabpanel

)#clsoe mainPanle
)#close column10
)#close fluidrow
)#close fluidpage
)#lsoe tabpanel
)#close shiny"

【Server】
library(shiny)
library(imager)

shinyServer(function(input, output) {

output$image <- renderImage({
req(input$file1)
return(list(
src = input$file1$datapath,
contentType = ".png",
width = 300,
height = 300
))
}) #close renderImage

output$brightness <- renderPrint({
req(input$file1)

grayimage=grayscale(src = input$file1$datapath)　　　#ここの書き方がよく分かりません。

brightness1 <- c(grayimage[,,1,1])

print(grayimage[,,1,1])
})
})

行動規範の内容に同意します

回答1件

ベストアンサー

Rによる画像処理：imagerパッケージの使い方を読んでコードを書きました。

輝度値それ自体を良く知らないのですが
最後の3行を以下4行に書き換えて、画像を取り込むと輝度値らしき何か？が出力されます。

R
1img <- load.image(input$file1$datapath)           #①imagerにロード
2grayimg <- grayscale(img)                         #②グレースケール処理
3brightness1 <- grayimg[,,1,1]                     #③輝度値に変換
4print(brightness1)				  #④出力