本地Shiny应用嵌入ZFIN基因查询网页空白问题求助

一、空白框问题的核心原因及修复 #

代码出现空白框主要有两个原因：

1. 全局变量破坏反应式逻辑 #

原代码使用<<-给全局变量赋值，打乱了Shiny的反应式依赖机制，导致输入变化时iframe的地址无法及时更新。需改用反应式表达式管理动态URL。

2. 网站嵌入限制 #

ZFIN网站设置了X-Frame-Options限制，禁止外部页面通过iframe嵌入其内容，这是空白框出现的主要直接原因。

二、修复后的代码（兼容基因名搜索） #

调整反应式逻辑，并优化搜索目标页面，同时提供iframe失效时的替代方案：

library(shiny)

ui <- fluidPage(
  title = "Lab Data",
  sidebarPanel(
    selectInput("GEcelltype", "选择细胞类型:", 
                choices = c("MG", "CMZ", "RPE", "Cones", 'RGC', 'Whole Eye')),
    textInput(inputId = 'GEgene', label = "输入基因名（全小写）", value = "", 
              width = NULL, placeholder = '示例: alcama'), 
    sliderInput("min", "选择最低表达阈值",
                min = 0, max = 5, value = 0)
  ),
  mainPanel(
    fluidRow(
      uiOutput("gene_content")
    )
  )
)

server <- function(input, output, session) {
  # 用反应式表达式生成动态搜索地址
  zfin_url <- reactive({
    req(input$GEgene)
    paste0("https://zfin.org/search/query?query=", input$GEgene, "&category=gene")
  })
  
  output$gene_content <- renderUI({
    req(zfin_url())
    tagList(
      tags$p(tags$strong("基因搜索结果："), "可复制地址在新窗口打开查看"),
      tags$code(zfin_url()),
      tags$br(), tags$br(),
      # 尝试嵌入iframe，若网站允许则显示
      tags$iframe(src = zfin_url(), height = 600, width = "100%", 
                  style = "border:1px solid #ccc;")
    )
  })
}

shinyApp(ui = ui, server = server)

三、进阶：直接跳转基因详情页 #

若要跳过搜索结果页直接访问基因详情页，可通过ZFIN的API实现基因名到ID的自动转换：

1. 调用ZFIN的基因查询API获取对应ID
2. 拼接基因详情页地址

添加以下代码到server函数中替换原有的zfin_url反应式：

library(jsonlite)

# 反应式获取ZFIN基因ID
zfin_gene_id <- reactive({
  req(input$GEgene)
  api_url <- paste0("https://api.zfin.org/v1/gene?symbol=", input$GEgene)
  tryCatch({
    res <- fromJSON(api_url)
    if(length(res$content) > 0){
      res$content$zfin_id[1]
    } else {
      NULL
    }
  }, error = function(e) NULL)
})

# 生成基因详情页地址
zfin_detail_url <- reactive({
  req(zfin_gene_id())
  paste0("https://zfin.org/", zfin_gene_id())
})

之后在renderUI中用zfin_detail_url()替代zfin_url()即可。

内容的提问来源于stack exchange，提问作者Sam