如何解决Testcafe-在Shadowroot中选择一个元素不起作用
我有一个网站library(shiny)
library(tidyverse)
library(shinythemes)
library(ggplot2)
library(dplyr)
bcl <- read.csv("bcl-data.csv",stringsAsFactors = FALSE)
# Define UI for application that draws a histogram
ui <- fluidPage(theme = shinytheme("darkly"),# Application title
titlePanel("Overzicht S&P 500 Aandelen"),# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
sliderInput(inputId = "priceInput",label = "close",min = 0,max = 2050,value = c(0,300),pre = "$"),selectInput(inputId = "typeInput",label = "Name",choices = (bcl-data$Name)),daterangeInput(inputId = "dateInput",label = "date",start = "2013/02/08",end = "2013/03/08",format = "yy/mm/dd")
),# Show a plot of the generated distribution
mainPanel(
tabsetPanel(
tabPanel("Plot",plotOutput("Plot")),tabPanel("Datatable",tableOutput("Datatable"))
)
)
)
)
# Define server logic required to draw a histogram
server <- function(input,output) {
output$Plot <- renderPlot({
filtered <- bcl %>%
filter(close >= input$priceInput[1]) %>%
filter(close <= input$priceInput[2]) %>%
filter(date >= input$dateInput[1] & date <= input$dateInput[2]) %>%
filter(bcl-data$Name == input$typeInput)
filtered
ggplot(filtered,aes(x = date,y = close,color = Name)) +
geom_point()
})
output$Datatable <- renderTable({
filtered <-
bcl %>%
filter(close >= input$priceInput[1]) %>%
filter(close <= input$priceInput[2]) %>%
filter(date >= input$dateInput[1] & date <= input$dateInput[2]) %>%
filter(bcl-data$Name == input$typeInput)
filtered
})
}
# Run the application
shinyApp(ui = ui,server = server)
,我试图在其中单击Shadowroot中的订阅组件中的按钮(请参阅图像)。我尝试了以下代码,但没有用。如果有人可以帮助,那就太好了。预先感谢。
https://www.storytel.com/sg/en/
解决方法
似乎在影子dom中处理元素存在错误。我建议您在TestCafe GitHub存储库中创建一个问题,并在其中描述您的情况:https://github.com/DevExpress/testcafe/issues/new?template=bug-report.md
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。