动态树状图闪亮<输入过滤器=年份值>

Question

我正在尝试生成动态树图（btw可以工作），但是在更改源集以将其定界到数据所属的特定“ YEAR”时遇到了问题。 ：

• 我有一个名为“ d_Year”的输入，基本上是一个下拉列表，其中包含从不同列表（2016、2017 ...）中提取的Year to Year值
• 我希望根据在Shiny应用程序上选择的Year值来更新树形图加载的数据（我将其设置为Server.R和UI.R分隔的文件，并带有一个.R文件来加载所有变量）

• 以下代码可以正常工作：

   
      m_df_map=m_df_clean %>%
  
      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")
  
      output$master_geo_tree=renderD3tree2({d3tree2(master_tree_data)})
      

• 我尝试将Observe事件添加到input $ 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逻辑中，但这是更大的失败，所以希望你们中的一个可以给这个问题带来一些启示。

预先感谢团队。 。