如何在R中制作自己的裁剪图像功能

Question

我有裁剪图像的代码，但是当我将其放入函数中时，它会显示一条Error in NextMethod() : object 'min.x' not found错误消息。

这是一个可复制的小例子：

dog<-load.image("https://images.all-free-download.com/images/graphiclarge/hound_54346.jpg")

# this works
start = 0
plot(as.cimg(dog[start:170,50:200]))

# this doesn't work
get_side_profile<-function(dog_image){
    min.x<-0
    return(as.cimg(dog_image[min.x:170,50:200]))
}
get_side_profile(dog)

我希望这是一个功能，因为我必须裁剪多个图像。我有一个min.x变量来确定从哪里开始裁剪。 min.x的代码未显示。

任何建议都值得赞赏。