динамическая карта дерева блестящая <фильтр по входу = значение года> - PullRequest
Новая
       43

динамическая карта дерева блестящая <фильтр по входу = значение года>

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

Я пытаюсь сгенерировать динамическое древовидное отображение (что, кстати, работает), но у меня возникают проблемы во время изменения исходного набора, чтобы он был ограничен определенным «ГОДОМ», откуда данные принадлежат, поэтому:

  • У меня есть вход с именем "d_Year", который в основном представляет собой выпадающий список со значениями год к году, извлеченными из другого списка (2016, 2017 ...)
  • Iхочу, чтобы данные, загруженные древовидной картой, обновлялись в зависимости от значения года, выбранного в приложении Shiny (у меня есть настроенные файлы Server.R и UI.R с файлом .R, источником которого являются все переменные)

  • Следующий код работает просто отлично: 

     
    m_df_map=m_df_clean %>%<br>
    dplyr::group_by(
    IOT = m_df_clean$IOT,
    Country = m_df_clean$Country,
    Category = m_df_clean$Category
    )%>%
    tally() 
    master_tree_data=treemap(m_df_map, index = c("IOT","Country","Category"), 
    vSize = "n")<br>
    output$master_geo_tree=renderD3tree2({d3tree2(master_tree_data)})

  • Я пытался добавить событие Observe к входному объекту $ d_Year, но все еще нетработает вообще, он не дает сбоя, но он также не фильтрует: 

    
observe({
if (input$d_Year == " All") {
m_df_clean=m_df[m_df$Phase %in% all_accounts,]
}
else {
m_df_clean=m_df[(m_df$Phase %in% all_accounts)&(m_df$Launch %in% 
Launch_table_PMA$Launch_Name[Launch_table_PMA$year == input$d_Year]),]
}
})
observeEvent(input$d_Year,{
if (input$d_Year == " All") {
m_df_clean=m_df[m_df$Phase %in% all_accounts,]
}
else {
m_df_clean=m_df[(m_df$Phase %in% all_accounts)&(m_df$Launch %in%                                 
Launch_table_PMA$Launch_Name[Launch_table_PMA$year == input$d_Year]),]
}
})

Приношу свои извинения, если спрашиваю что-то простое, но я уже так долго пытался, яиз идей, попытался добавить логику if в renderD3tree2логика, но это было еще большим провалом, так что, надеюсь, один из вас сможет пролить свет на эту проблему.

Заранее спасибо, команда.,.

...