Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R:闪亮的工具提示部分隐藏_R_Shiny_Flexdashboard - Fatal编程技术网

R:闪亮的工具提示部分隐藏

R:闪亮的工具提示部分隐藏,r,shiny,flexdashboard,R,Shiny,Flexdashboard,我正在使用bsplus包在闪亮的/flexhdashboard环境中制作工具提示,但我发现其中一些提示被隐藏或部分隐藏在视线之外。为什么? 例如: require(shiny) require(flexdashboard) bsplus::use_bs_tooltip() bsplus::use_bs_popover() shinyWidgets::sliderTextInput(inputId = "prevalence",

我正在使用bsplus包在闪亮的/flexhdashboard环境中制作工具提示,但我发现其中一些提示被隐藏或部分隐藏在视线之外。为什么?

例如:

require(shiny)
require(flexdashboard)

   bsplus::use_bs_tooltip()
   bsplus::use_bs_popover()

shinyWidgets::sliderTextInput(inputId = "prevalence", 
                              label = "% infectious passengers  boarding:",
                              grid = TRUE, 
                              force_edges = TRUE,
                              choices = c(0.1,0.2,0.3))%>%
   shinyInput_label_embed(
     icon("info") %>%
     bs_embed_tooltip(title = "A realistic value is no more than about 0.25% or 250 in 100,000")
   )
过程


我真的不能说这是否有效,因为您的示例不是完全可复制的,但根据您的经验,可以使用
data container=“body”
属性来解决这个问题

幸运的是,bsplus使这变得非常简单:只需将
container='body'
添加到
bs\u embed\u tooltip()

require(闪亮)
需要(flexdashboard)
图书馆(dplyr)
图书馆(bsplus)
bsplus::使用工具提示()
bsplus::使用_-bs_-popover()
shinyWidgets::SliderTestInput(inputId=“流行度”,
label=“%有传染性的乘客登机:”,
网格=真,
力_边=真,
选择=c(0.1,0.2,0.3))%>%
shinyInput_标签_嵌入(
图标(“信息”)%%>%
bs_embed_工具提示(title=“实际值不超过0.25%或250/100000”,container='body')
)
#结果:
%登机旅客:

太好了,非常感谢!
require(shiny)
require(flexdashboard)
library(dplyr)
library(bsplus)

bsplus::use_bs_tooltip()
bsplus::use_bs_popover()

shinyWidgets::sliderTextInput(inputId = "prevalence", 
                              label = "% infectious passengers  boarding:",
                              grid = TRUE, 
                              force_edges = TRUE,
                              choices = c(0.1,0.2,0.3))%>%

shinyInput_label_embed(
    icon("info") %>%
      bs_embed_tooltip(title = "A realistic value is no more than about 0.25% or 250 in 100,000", container='body')
  )

# Results:
<div class="form-group shiny-input-container">
  <label class="control-label" for="prevalence" style="width:100%;">
    % infectious passengers  boarding:
    <div class="pull-right">
      <i class="fa fa-info" title="A realistic value is no more than about 0.25% or 250 in 100,000" data-toggle="tooltip" data-placement="top" data-container="body"></i>
    </div>
  </label>
  <input class="js-range-slider sw-slider-text" data-data-type="text" data-force-edges="true" data-from="0" data-from-fixed="false" data-from-shadow="false" data-grid="true" data-hide-min-max="false" data-keyboard="true" data-prettify-enabled="false" data-swvalues="[&quot;0.1&quot;,&quot;0.2&quot;,&quot;0.3&quot;]" data-to-fixed="false" data-to-shadow="false" id="prevalence"/>
</div>