如何解决当您将鼠标悬停在列表本身上时,有什么方法可以显示此下拉列表?
如果我不使用网格制作topnav,我将创建一个div并将第2、3、4和5项放入其中,这样当您将鼠标悬停在div上时它们会出现,即使您将鼠标悬停在上面超过列表本身。我试图在网格中实现这样的div,但是不幸的是我无法使其正常工作。在此先感谢:)。
*{
margin: 0;
padding: 0;
color: black;
}
#Topnav1{
height: 80px;
width: 100%;
background-color: plum;
display: grid;
grid-template: 1fr / repeat(23,1fr);
grid-gap: 0px;
order: 1;
z-index: 3;
grid-template-areas:
" a a a a a a a b b b f f f g g g h h h h h h h "
" . . . . . . . c c c . . . . . . . . . . . . . "
" . . . . . . . d d d . . . . . . . . . . . . . "
" . . . . . . . e e e . . . . . . . . . . . . . "
;
font: 20px Arial black,Helvetica,sans-serif;
color: black;
}
.topgrid{
border: 1px black solid;
background-color: darkblue;
align-items: center;
justify-items: center;
display: flex;
justify-content: center;
align-items: center;
height: 80px;
}
#Topnav1 a{
text-decoration: none;
}
.topitem2:hover ~ .topgrid{
display: flex;
}
.topitem1{grid-area: a;}
.topitem2{grid-area: b;}
.topitem3{display: none; grid-area: c;}
.topitem4{display: none; grid-area: d;}
.topitem5{display: none; grid-area: e;}
.topitem6{grid-area: f;}
.topitem7{grid-area: g;}
.topitem8{grid-area: h;}
img{
height: 80px;
}
<body>
<nav id="Topnav1">
<div class="topgrid topitem1"><a href="#"><img src="../Images/logo.png"></a></div>
<a href="#" class="topgrid topitem2">item 2</a>
<a href="#" class="topgrid topitem3">item 3</a>
<a href="#" class="topgrid topitem4">item 4</a>
<a href="#" class="topgrid topitem5">item 5</a>
<a href="#" class="topgrid topitem6">item 6</a>
<a href="#" class="topgrid topitem7">item 7</a>
<div class="topgrid topitem8">
<form id="frm1">
<input id="text" type="text" name="searchbox" placeholder="Search here...">
<input type="button" onclick="myFunction()" value="Submit">
</form>
</div>
</nav>
</body>
解决方法
这是一个简单的例子
https://codepen.io/r0binxp/pen/JjXXvEm
仅用于布局的网格。和子菜单,嵌套在列表项中
library(shiny)
library(plotly)
library(DT)
d <- data.frame(
ids = c(
"North America","Europe","Australia","North America - Football","Soccer","North America - Rugby","Europe - Football","Rugby","Europe - American Football","Australia - Football","Association","Australian Rules","Autstralia - American Football","Australia - Rugby","Rugby League","Rugby Union"
),labels = c(
"North<br>America","Football","American<br>Football","Australian<br>Rules","Rugby<br>League","Rugby<br>Union"
),parents = c(
"","","North America","Australia - Rugby"
),stringsAsFactors = FALSE
)
ui <- fluidPage(
mainPanel(
# would like to be able to override or mimic mouse click even with this user input
selectInput(
"make_selection",label = h5("Make selection:"),choices = c("all" = " ",setNames(nm = d$ids)),selectize = TRUE,selected = "all"
),plotlyOutput("p"),textOutput("mytext")
)
)
server <- function(input,output,session) {
output$p <- renderPlotly({
plot_ly(d,ids = ~ids,labels = ~labels,parents = ~parents,customdata = ~ids,level = input$make_selection,type = 'sunburst',source = "mysource")
})
hoverClick <- reactive({
currentEventData <- unlist(event_data(event = "plotly_click",source = "mysource",priority = "event"))
})
output$mytext <- renderText({
hoverClick()
})
observe({
x <- input$make_selection
# Can use character(0) to remove all choices
if (is.null(hoverClick())){
x <- "all"
} else {
x <- as.character(hoverClick()[3])
}
updateSelectInput(session,"make_selection",selected = x
# can I add something here so that it just updates the selector without actually
# triggering a selector event? (Otherwise both plotly and the selector are trying to
# choose the level and it is very jerky)
)
})
}
shinyApp(ui = ui,server = server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。