Аргумент высоты не работает с renderPlotly в блестящем контексте - PullRequest
Новая
       4

Аргумент высоты не работает с renderPlotly в блестящем контексте

0 голосов
/ 10 апреля 2020

Используя ggplot, я мог создать желаемый сюжет. Однако, когда я преобразовал в plotly (код ниже), я получил ошибку: 

Error in renderPlotly({ : unused argument (height = function() {
    400 + (length(workforce_data()[["County.y"]]) * 5)
}).

Как я могу это исправить?

plotly code 

output$workforce_plot <- renderPlotly ({
   workforce_plot()
 }  , height = function() {400 + (length(workforce_data()[["County.y"]]) *5) })

1 Ответ

1 голос
/ 14 апреля 2020

renderPlotly не имеет аргумента height.

Однако вы можете использовать аргумент ggplotly height следующим образом: 

library(plotly)
library(shiny)

ui <- fluidPage(
  sliderInput("heightSlider", "Plot heigth [px]", min = 200L, max = 1000L, value = 500L),
  plotlyOutput("myPlot")
)

server <- function(input, output, session) {
  output$myPlot <- renderPlotly({
    p <- ggplot(data.frame(x = 1:10, y = runif(10)), aes(x, y)) + geom_point()
    ggplotly(p, height = input$heightSlider)
  })
}

shinyApp(ui, server)
...