添加popovers到闪亮的应用程序?
发布时间:2020-12-17 20:39:34 所属栏目:安全 来源:网络整理
导读:我想在窗口小部件的标题旁边添加一个(?),以便用户可以悬停或单击它并获取额外的信息和他们可以单击的链接. 这就是我现在所拥有的: ## app.R ##library(shiny)library(shinydashboard)library(shinyBS)# Headerheader - dashboardHeader()# Sidebarsidebar
我想在窗口小部件的标题旁边添加一个(?),以便用户可以悬停或单击它并获取额外的信息和他们可以单击的链接.
这就是我现在所拥有的: ## app.R ## library(shiny) library(shinydashboard) library(shinyBS) # Header header <- dashboardHeader() # Sidebar sidebar <- dashboardSidebar(fileInput("chosenfile",label = h4("File input"),accept = ".csv"),bsButton("q1",label = "",icon = icon("question"),style = "info",size = "extra-small"),bsPopover(id = "q1",title = "Tidy data",content = paste0("You should read the ",a("tidy data paper",href = "http://vita.had.co.nz/papers/tidy-data.pdf",target="_blank")),placement = "right",trigger = "click",options = list(container = "body") ) ) # Body body <- dashboardBody() # ui ui <- dashboardPage(header,sidebar,body) # server server <- function(input,output) { } # run shinyApp(ui,server) 但它远非完美.例如,(?)的位置不在“文件输入”旁边,要关闭弹出框,您必须再次单击问号,而不是在弹出窗口中有(x). 解决方法
这个答案可能不是你最初想要的,但它仍然适合你.
你说你想要标签旁边的工具提示问号,所以我把它放在标签上.正确对齐. ## app.R ## library(shiny) library(shinydashboard) library(shinyBS) # Header header <- dashboardHeader() # Sidebar sidebar <- dashboardSidebar( fileInput("chosenfile",label = h4("File input ",tags$style(type = "text/css","#q1 {vertical-align: top;}"),size = "extra-small") ),target="_blank") ),trigger = "focus",options = list(container = "body") ) ) # Body body <- dashboardBody() # ui ui <- dashboardPage(header,output) {} # run shinyApp(ui,server) (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |