问题描述
我有一个网站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