在Shiny中更改马赛克图的填充

install.packages("shiny")
library(shiny)

ui <- fluidPage(
  titlePanel("更改马赛克图的填充"),
  sidebarLayout(
    sidebarPanel(
      # 添加用于选择图像的输入
      fileInput("image", "选择图像文件")
    ),
    mainPanel(
      # 添加图形输出，用于显示图像
      plotOutput("mosaic")
    )
  )
)

server <- function(input, output) {
  # 读取上传的图像文件
  image <- reactive({
    req(input$image)
    readJPEG(input$image$datapath)
  })
  
  # 在图形输出中显示原始图像
  output$mosaic <- renderPlot({
    plot(0, 0, type = "n", xlim = c(0, 1), ylim = c(0, 1), xlab = "", ylab = "")
    rasterImage(image(), 0, 0, 1, 1)
  })
}

shinyApp(ui, server)