r - 动态树形图闪亮<按输入过滤=年份值>

Question

我正在尝试生成一个动态树图（顺便说一句有效），但是在更改源集以将其分隔为数据所属的特定“年份”时遇到问题，因此：

• 我有一个名为“d_Year”的输入，它基本上是一个下拉列表，其中包含从不同列表（2016、2017 ...）中提取的年到年值
• 我希望树形图加载的数据根据​​在 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 逻辑中，但这甚至是一个更大的失败，所以希望你们中的一个可以带来一些启示进入这个问题。

提前感谢团队。. .

标签： rinputdynamicfiltertreemap