Javascript 使用ShinyBS的闪亮中的反应性工具提示
我尝试在我的简单应用程序中使用Javascript 使用ShinyBS的闪亮中的反应性工具提示,javascript,html,r,shiny,shinybs,Javascript,Html,R,Shiny,Shinybs,我尝试在我的简单应用程序中使用shinyBS包。我想做的是根据每个单选按钮创建反应式工具提示文本 为了澄清我的问题,我在中编写了一个简单的代码 我还发现了一个似乎能解决我的问题,但实际上我认为它不能正常工作。是否可以使用shinyBS软件包执行此操作 我还想将我的HTML&JS代码实现到Shiny中,但它仍然不起作用 library(shiny) yourStr <- "$(document).ready(function(){ $('[i
shinyBS
包。我想做的是根据每个单选按钮创建反应式工具提示文本
为了澄清我的问题,我在中编写了一个简单的代码
我还发现了一个似乎能解决我的问题,但实际上我认为它不能正常工作。是否可以使用shinyBS软件包执行此操作
我还想将我的HTML&JS代码实现到Shiny中,但它仍然不起作用
library(shiny)
yourStr <- "$(document).ready(function(){
$('[id='radio_venue_1']').tooltip({
placement: 'right',
title: 'Button 1 Explanation',
trigger: 'hover'
});
$('[id='radio_venue_2']').tooltip({
placement: 'right',
title: 'Button 2 Explanation',
trigger: 'hover'
});
$('[id='radio_venue_3']').tooltip({
placement: 'right',
title: 'Button 3 Explanation',
trigger: 'hover'
});
});
"
ui <- shinyUI(
fluidPage(
fluidRow(
column(3,
HTML("<div class='container'><br>
<h1>Test</h1>
<div>
<label id='radio_venue_1'>
<input type='radio' value='1' role='button'> button 1
</label>
</div>
<div>
<label id='radio_venue_2'>
<input type='radio' value='2' role='button'> button 2
</label>
</div>
<div>
<label id='radio_venue_3'>
<input type='radio' value='3' role='button'> button 3
</label>
</div>
</div>")
),
column(9,
'Plot')
),
tags$script(HTML(yourStr))
)
)
server <- function(input, output, session) {
}
shinyApp(ui = ui, server = server)
库(闪亮)
yourStr您完全可以使用shinyBS
软件包实现这一点
rm(list = ls())
library(shiny)
library(shinyBS)
ui <- shinyUI(
fluidPage(
fluidRow(
column(3,
HTML("<div class='container'><br>
<h1>Test</h1>
<div>
<label id='radio_venue_1'>
<input type='radio' value='1' role='button'> button 1
</label>
</div>
<div>
<label id='radio_venue_2'>
<input type='radio' value='2' role='button'> button 2
</label>
</div>
<div>
<label id='radio_venue_3'>
<input type='radio' value='3' role='button'> button 3
</label>
</div>
</div>")),
bsTooltip(id = "radio_venue_1", title = "Button 1 Explanation", placement = "right", trigger = "hover"),
bsTooltip(id = "radio_venue_2", title = "Button 2 Explanation", placement = "right", trigger = "hover"),
bsTooltip(id = "radio_venue_3", title = "Button 3 Explanation", placement = "right", trigger = "hover"),
column(9,'Plot')
)
)
)
server <- function(input, output, session) {}
shinyApp(ui = ui, server = server)
rm(list=ls())
图书馆(闪亮)
图书馆(shinyBS)
你说得对。谢谢但当我现在看到它时,我看到了一个限制。我们只需创建3个具有不同id值的单独单选按钮。是否可以通过一个带有3个按钮的单选小部件(即带有一个id
值)来实现相同的功能?