I am pretty new to Shiny and trying to output a grid of images that users have uploaded each time the app is run. So, I store every uploaded image in a directory on the server and then each time the app is refreshed, I get the list of all the files in that directory and display them in a grid. In order not to overwrite the uploaded files (since they all have the same name), I save each file with a number as the name (starting from 0, then 1, 2, 3, …) with a counter. So far so good.
BUT each image in the grid has its own caption and links to its own web page. The captions and URLs are stored in text files in different directories (2 directories named captions and URLs). So when I am creating the grid, I want to read the caption and URL associated with each image from these directories and display the caption below the picture and insert the URL as a link on the image (so image 0.png has caption 0.txt in 'captions' directory and and URL 0.txt in 'URLs' directory, image 1.png has caption 1.txt in 'captions' directory and URL 1.txt in 'URLs' directory and so on...).
I have been able to make the grid but I don't know how to integrate the captions and links to the images in the grid. Could you please help me?
‘‘‘r
library(shiny)
library(shinyWidgets)
library(gridExtra)
library(png)
library(grid)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(id="sidebar",
fileInput("uploadedFile",
"",
accept = c('image/png',
'image/PNG')
)
),
mainPanel(
plotOutput('previousUsecases')
)
)
server <- function(input, output) {
output$previousUsecases <- renderPlot({
folder <- "path/to/folder/of/images"
file_list <- list.files(path = folder)
filename = list()
if(!length(file_list) == 0) {
for (i in 1:length(file_list)) {
filename[i] <- normalizePath(file.path(
"path/to/folder/of/images",
paste0(i-1, '.png')))
}
pngs = lapply(filename, readPNG)
asGrobs = lapply(pngs, rasterGrob)
p <- grid.arrange(grobs=asGrobs, nrow = 4, ncol = 4)
}
else
return(NULL)
}
)
}
shinyApp(ui = ui, server = server)
’’’
Thanks a lot.
) but I'd recommend you put the CSS in a 
