Question

我正在尝试将iframe构建到我的闪亮应用中。困难在于其反应性，它应根据用户输入加载不同的图像。

我尝试构建一个普通的iframe，工作正常：

ui.R

column(3,
   tags$iframe(src="http://www.parlament.ch/SiteCollectionImages/profil/225x225/3014.jpg", height=242, width=242, frameborder=0, seamless="seamless")
)

但我对反应性有困难。我认为我只需将正确的链接粘贴到tags$iframe，但不幸的是，这不起作用。这是我的文件：

server.R

 library(shiny)
 shinyServer(function(input, output) {

 output$naame <- renderUI({
   members <- data.frame(name=c("Name 1", "Name 2", "Name 3"), nr=c(3014, 2565, 2670))
   selectInput("Member", 
            label=h5("Choose a person"),
            choices=members[,2],
            selected=NULL)
   })


 loadpic <- reactive({ 
    if (!is.null(input$Member)){
     #input$Member can be any number, I use 3014 as an example. bildurl is then
     #http://www.parlament.ch/SiteCollectionImages/profil/225x225/3014.jpg
     zahhl <- paste0(members[which(members==input$Member),2])
     bildurl <- paste0("http://www.parlament.ch/SiteCollectionImages/profil/225x225/", sep="", zahhl, sep="", ".jpg")

  return(bildurl)}

})

  output$imagehead <- renderText({
    loadpic()
})

ui.R

shinyUI(fluidPage(titlePanel("Choose your preferred name"), 
              sidebarLayout(
                sidebarPanel(
     fluidRow(#Chooses Name
                    column(6,
                           uiOutput("naame")
                           )),
     mainPanel(fluidRow(column(3,tags$iframe(src=htmlOutput("imagehead"), height=242, width=242))))))

感谢任何帮助。感谢。

Answer 1

使用renderUI和htmlOutput来构建iframe而不是renderText还有很多错误。下面是代码的简化版本（只有你的第一个链接给出了图片）：

ui.R

shinyUI(fluidPage(titlePanel("Choose your preferred name"), 
                  sidebarLayout(
                    sidebarPanel(
                      fluidRow(
                        column(6,
                               selectInput("Member", label=h5("Choose a person"),
                                           choices=members[,2])
                        ))),
                    mainPanel(fluidRow(
                      column(3, htmlOutput("imagehead"))
                    )
                    )
                  )
)
)

server.R

library(shiny)
shinyServer(function(input, output) {
  loadpic <- reactive({ 
    validate(
      need(input$Member, "Member input is null!!")
    )
    zahhl <- members[which(members$nr==input$Member),2]
    paste0("http://www.parlament.ch/SiteCollectionImages/profil/225x225/", zahhl, ".jpg")
  })
  output$imagehead <- renderUI({
    tags$iframe(src=loadpic(), height=242, width=242)
  })
}
)

global.R

members <- data.frame(name=c("Name 1", "Name 2", "Name 3"), nr=c(3014, 2000, 4358))

闪亮的iframe取决于输入

1 个答案: