Гистограмма выхода на r2d3 не показывает график - PullRequest
Новая
       19

Гистограмма выхода на r2d3 не показывает график

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

Я пытаюсь построить гистограмму с помощью r2d3.Цель состоит в том, чтобы построить график количества продуктов, сгруппированных по продуктам (2 единицы продукта1, 3 продукта2, ...).Имя столбца для названия продуктов: name.

Проблема в том, что когда я запускаю свое блестящее приложение, оно не отображает график, а просто говорит: Ошибка: не удалось найти переменную bar_plot.

Идея исходит из этого поста: введите описание ссылки здесь

Вот код: 

con <- dbConnect(odbc(), 
                 Driver = "SQL Server", 
                 Server = "MyServer", 
                 Database = "MyDB", 
                 Trusted_Connection = "True")


# get the products table
products = tbl(con, 'products')


dashboardBody(
    
    tabsetPanel(
      
      id = "tabs",
      
      tabPanel(
        
        title = "Main Dashboard",
        
        value = "page1",
        
        fluidRow(
          
          valueBoxOutput("total_products")
          
        ),
        fluidRow(),
        
        fluidRow(
          column(
            width = 6,
            d3Output("group_totals")
            
 # several parenthesis here           
            
 output$group_totals <- renderD3({
    
     products %>%
      group_by(name) %>%
      tally() %>%
      collect() %>%
      arrange(desc(n)) %>%
      head(10) %>%
      rename(
        x = name,
        y = n,
        label = name
      ) %>%
      
      r2d3("bar_plot.js")
    
  })
...