Question

我是R和Shiny的新手（仅在了解它们之后10天）。因此存在一个问题：其中一个字段具有.csv文件，并带有指向照片的链接。照片应显示在屏幕上，具体取决于用户的选择。

据我了解，问题在于从服务器到ui的传输。因为当您将同一文件直接上传到ui时，它会在屏幕上显示照片。仍然有指向单个照片文件（“ Bych.png”）的链接，我尝试使用以下代码执行此操作：

library(shiny)
library(dplyr)
library(jsonlite)

aa1<-read.csv("e:/DEP/Gol/1/Fin_Gol.csv")
aa2<-as.data.frame(aa1)
aa<-aa2
bb<-subset(aa, select = c(GL_Text, DPList.DPName, DPList.DPGolos, Party))
cols<-c("NameProject", "Deputat", "As_Voted", "Party")
colnames(bb)<-cols
bb1<-bb
#bb<-aa[aa$GL_Text, aa$DPList.DPName]
ui <- fluidPage(
titlePanel("WINDOW"),
  fluidRow(
   column(3,
           selectInput("var1",
                   "DPList.DPName:",
                   c("All",
                     unique(as.character(aa$DPList.DPName))))
),
column(3,
       selectInput("Gol",
                   "Golosyvannya:",
                   c("All",
                     unique(as.character(aa$DPList.DPGolos))))
),
column(3,
       selectInput("Proj",
                   "Name_Project",
                   c("All",
                     unique(as.character(aa$GL_Text))))
),
column(3,
       selectInput("Party",
                   "Партія:",
                   c("All",
                     unique(as.character(aa$Party))))
),

mainPanel(
  fluidRow(
   **column(
      4,
      imageOutput("myImage")
    ),**
    column(
      8,
      dataTableOutput ("selected_var1"),
      img(src="Bych.png")
      )
    )
  )
 )
)

server <- function(input, output)
{

 output$selected_var1<-renderDataTable ({
   data1<-bb1

if(input$var1 !="All"){
  #ff1<-nrow(filter(aa, aa$DPList.DPName == input$var1))
  data1<-data1[data1$Deputat == input$var1,]
}

if (input$Gol !="All"){
  data1 <-data1[data1$As_Voted ==input$Gol,]
}
if (input$Proj !="All"){
  data1 <-data1[data1$NameProject==input$Proj,]
}
if (input$Party !="All"){
  data1 <-data1[data1$Party==input$Party,]
}
data1

})
 output$myImage <- renderImage({
 img(src="Bych.png")})
 }
# Run the application
 shinyApp(ui = ui, server = server)

以下是指向[Fin_Gol.csv]文件的链接：

将照片转移到屏幕上

0 个答案: