图像适合框元素 - R Shiny

如何解决图像适合框元素 - R Shiny

我正在尝试将我的图像绘制到 r Shiny 中的框元素。但是我遇到了无法根据框元素大小动态更改的图像大小的问题。我试图设置图像的高度和宽度，但问题没有解决。这是我的代码：

ui <- shinyUI(
  fluidPage(
    column(8,Box(title=NULL,width=12,imageOutput('my_image')))
  )
)

server <- function(input,output) {
  output$my_image <- renderImage({
    filename <- normalizePath(file.path('.','image.jpg'))
    
    list(src = filename,height = 'auto',width = 'auto',contentType = 'image/jpg')
    
    },deleteFile = F)
}

shinyApp(ui,server)

我该怎么办？我没有很好的基本 html 和 javascript。