如何在 r shiny 中执行照片标题字符串匹配

Question

我想创建一个包含三个变量的仪表板：年、月和日并显示图像

每个都有两个值 year:2019,2020。 month:Jan,二月。 Day:01,02.

我有8张不同的png图片。图片名称是 m01_y19_d01 意思是 month:Jan, year:2019, 第 01 天。所以 8 张不同的图片是

"m01_y19_01.png","m01_y19_02.png", "m01_y20_01.png", "m01_y20_02.png" "m02_y19_01.png","m02_y19_02.png","m02_y20_01.png", “m02_y20_02.png”

我要select菜单中的年月日，并在www文件夹中反映相应的图片

我确实写了一些代码，但看起来效果不佳。希望有人能提供一些好的方法。

谢谢。



library(shiny)
 
ui <- fluidPage(
  
  wellPanel(
   
    fluidRow(
     
      
      
      column(3,
             selectInput("Year", "year",c("2019"="2019","2020"="2020"
             ))),
      column(3,
             selectInput("Day", "day",c("01"="01","02"="02"
             ))),
     
      column(3,
             selectInput("Month", "month",c("Jan"="Jan","Feb"="Feb"
             ))))),
   
  
  
  fluidRow(uiOutput(outputId ='imageR1')))
 
 
 
 
server <- function(input, output)
{ 
  
  
  output$imageR1<- renderUI(
    {
      if(input$Month=="Jan") 
      {return(m="m01")}
     
      else if(input$Month=="Feb") 
      {return(m="m02")}
     
      else if(input$Year=="2019")
      {return(m=paste0(m,"_y19"))}
     
      
      else if(input$Year=="2020")
      {return(m=paste0(m,"_y20"))}
     
      
      
      else if(input$Day=="01") 
      {return(m=paste0(m,"_d01"))}
     
      
      else if(input$Day=="02") 
      {return(m=paste0(m,"_d02"))}
     
      
      
        
        
        img(src = paste0(m,".png"), height = 500, width = 500)}
    }   
    
  
 
shinyApp(ui = ui, server = server)

Answer 1

将 if 语句更改为如下所示：

if(input$Month=="Jan") 
      {m="m01"}
      else if(input$Month=="Feb") 
      {m="m02"}
if(input$Year=="2019")
      {m=paste0(m,"_y19")}
      else if(input$Year=="2020")
      {m=paste0(m,"_y20")}
if(input$Day=="01") 
      {m=paste0(m,"_d01")}
      else if(input$Day=="02") 
      {m=paste0(m,"_d02")}

但实际上您可以在一行中完成此操作：

m <- format(as.Date(paste(which(substr(month.name,1,3)%in%input$Month),input$Day,input$Year,sep="/"), format="%m/%d/%Y"),"m%m_y%y_%d")

此行将 r 常量 month.name 转换为月份名称，例如“Jan”、“Feb”，并找出与您选择的月份相匹配的数字。然后结合日期和年份并转换为您在图像名称中使用的日期格式。

Answer 2

您可以使用 lubridate 包首先根据您的输入创建一个 date（您也可以在 shiny 中使用 dateInput），然后根据您的文件名格式化日期：

format(ymd(input$Year, input$Month, input$Day), format = "m%Om_y%y_%d.png")

如何在 r shiny 中执行照片标题字符串匹配

how to perform photo title string matching in r shiny

r

shiny

shiny-server

shinyapps