условная легенда на выделенном ряду графиков в блестящем приложении - PullRequest
Новая
       47

условная легенда на выделенном ряду графиков в блестящем приложении

0 голосов
/ 11 февраля 2020

, если я хочу включить условные обозначения, выбранные для ряда графиков, только когда подсветка серии включена, но она не работает, как показано в примере ниже: (желаемый эффект можно увидеть, комментируя условие if) dy CSS код для выборочной легенды был в Play Dygraphs JavaScript в R / Shiny 

library(shiny)
library(dygraphs)

lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)

ui <- fluidPage(
  checkboxInput("hL","Highlight",value = F),
  br(),br(),
  dygraphOutput("dg")
)



server <- function(input,output,session){

  output$dg <- renderDygraph({
    g <- dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)")
    if(input$hL) {
      g <- g %>% dyHighlight() %>% dyCSS(textConnection("
                    .dygraph-legend > span { display: none; }
                    .dygraph-legend > span.highlight { display: inline; }
                    "))
      }
    g
  })
}

shinyApp(ui,server)

Есть идеи, чтобы решить эту проблему?

горе c

...