搜索
查看: 1794|回复: 0

1-shiny创建交互式网页链接用renderUI和href

[复制链接]

634

主题

1182

帖子

4030

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
4030
发表于 2017-3-16 11:20:50 | 显示全部楼层 |阅读模式
参考:http://stackoverflow.com/questio ... tively-in-shiny-app

[AppleScript] 纯文本查看 复制代码
library(shiny)
runApp(
  list(ui = fluidPage(
    selectInput('website', 'Choose a website'
                , list(bbc = "http://www.bbc.co.uk"
                       , google = "http://www.google.com"
                       , cnn = "http://www.cnn.com")
    )
                , htmlOutput("mySite")
    )
  ,server = function(input, output, session){
    output$mySite <- renderUI({
      tags$a(href = input$website, input$website)
    })
  })
)
你这个问题很复杂,需要打赏,请点击 http://www.bio-info-trainee.com/donate 进行打赏,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-8-22 22:38 , Processed in 0.069155 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.