Shiny中的动态大标签$img

Question

我希望我放在我的shiny应用程序中的图像占据它的整个空间而不会溢出。这要求图像随窗口宽度改变其大小。

例如，假设我有以下代码：

library(shiny)

ui <- fluidPage(
  tags$img(src = "https://cdn.sstatic.net/Sites/stackoverflow/Img/[e-mail]?v=73d79a89bded") # The important part
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

照原样，图像占据其正常的宽度和高度，在本例中为316x316。我想让它占据它所拥有的整个水平空间，在本例中是整个窗口的宽度。我怎么能那样做？我所知道的那些小的CSS都没有帮助(width=“100px”是静态的，依此类推）。

Answer 1

试试看：

library(shiny)

ui <- fluidPage(
    column(12,
           tags$img(src = "https://cdn.sstatic.net/Sites/stackoverflow/Img/[e-mail]?v=73d79a89bded",
                    width="100%",height="600"
           ) 
    )
    # The important part
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)