Пример D3 / Shiny не отображает бары - PullRequest
Новая
       17

Пример D3 / Shiny не отображает бары

0 голосов
/ 06 октября 2018

Следуя инструкциям RStudio здесь, от Shiny до D3: https://rstudio.github.io/r2d3/articles/shiny.html#shiny-to-d3

Я обновил до Rstudio (1.2.1015), r2d3 (0.2.2), блестящий (1.1.0)

Когда я пытаюсь использовать их пример кода вместо отдельных баров, я вижу это в средстве просмотра Rstudio.

enter image description here

Пример кода R: 

library(shiny)
library(r2d3)

ui <- fluidPage(
  inputPanel(
    sliderInput("bar_max", label = "Max:",
                min = 10, max = 110, value = 10, step = 20)
  ),
  d3Output("d3")
)

server <- function(input, output) {
  output$d3 <- renderD3({
    r2d3(
      floor(runif(5, 5, input$bar_max)),
      script = system.file("examples/baranims.js", package = "r2d3")
    )
  })
}

shinyApp(ui = ui, server = server)

Путь, возвращаемый system.file ("examples / baranims.js", package = "r2d3"), является /Library/Frameworks/R.framework/Versions/3.5/Resources/library/r2d3/examples/baranims.js

который является этим файлом: 

var barHeight = Math.floor(height / data.length);

var bars = r2d3.svg.selectAll('rect')
    .data(r2d3.data);

bars.enter()
    .append('rect')
      .attr('width', function(d) { return d * width; })
      .attr('height', barHeight)
      .attr('y', function(d, i) { return i * barHeight; })
      .attr('fill', 'steelblue');

bars.exit().remove();

bars.transition()
  .duration(100)
  .attr("width", function(d) { return d * width; });

1 Ответ

0 голосов
/ 06 октября 2018

Кажется, работает нормально, если все данные <1 Не уверен, почему этот оператор используется. </p>

floor (runif (5, 5, input $ bar_max))

...