我是一个初创的非营利组织的志愿者，该组织向私人特许权使用费 * 所有者 * 征集矿产利益。然后将贡献的权益汇总并出售，所得收益作为赠款奖励，以促进应对气候变化的技术开发。
为了扩大我们的筹款努力，我们想为可能成为潜在捐赠者的 * 所有者 * 建立一个闪亮的网络应用程序。这些 * 所有者 * 可以搜索我们的数据库，找到他们的兴趣，并了解他们通过向我们的非营利组织捐款可以获得的减税额（第一个目标，基于“Sample_Tax_Data”，请参阅：（https://docs.google.com/spreadsheets/d/1wKe9VR_Cs2V_CJGNipbuCaUFR21eTHE0/edit?usp=share_link&ouid=118028955904508148375&rtpof=true&sd=trueto））。

• 所有者 * 还可以根据与其租赁相关的历史石油和天然气产量获得替代估价，这可能会增加具有额外开发潜力的租赁的税收减免金额（基于“Sample_Prod_Data”的第二个目标，见（https://docs.google.com/spreadsheets/d/1Pq6bfiaATGZaGHtxOrqekJjTp4g3k_Rj/edit?usp=share_link&ouid=118028955904508148375&rtpof=true&sd=true））。
  在第一目标的情况下：使用我在这个网站上找到的代码（见下文），我能够创建一系列相关的过滤器，使 * 所有者 * 能够在我们的数据库中对1000万个租赁利益进行排序，以找到他们特定的租赁。

library(readxl)
library(shiny)
library(tidyverse)

TaxData <- Sample_Tax_Data

shinyApp(
  ui = pageWithSidebar(
    headerPanel("Find My Royalty Interest"),
    sidebarPanel(
      selectizeInput(inputId = "County",
                     label = "Select County",
                     choices = NULL,
                     options = list(placeholder = 'select')
                     ),
      
      selectizeInput(inputId = "Operator",
                     label = "Select Operator",
                     choices = NULL,
                     options = list(placeholder = 'select',
                                    onInitialize = I('function() { this.setValue(""); }')
                     )),
      
      selectizeInput(inputId = "Lease",
                     label = "Select Lease",
                     choices = NULL,
                     options = list(placeholder = 'select',
                                    onInitialize = I('function() { this.setValue(""); }')
                     )),
      
      selectizeInput(inputId = "Owner",
                     label = "Select Owner",
                     choices = NULL,
                     options = list(placeholder = 'select',
                                    onInitialize = I('function() { this.setValue(""); }')
                     )),
      
       ),
    
    mainPanel(
      tableOutput("TaxTable")
    )
  ),
  
  server = function(input, output, session) {
    
    TaxFil <- reactive({
      
      TaxData %>%
        filter(County == input$County) %>%
        filter(Operator == input$Operator) %>%
        filter(Lease == input$Lease) %>%
        filter(Owner == input$Owner) 
      
   })
    
    updateSelectizeInput(
      session = session,
      inputId = "County",
      choices = sort(unique(as.character(TaxData$County))),
      selected = "",
      options = list(placeholder = 'select'),
      server = TRUE
    )
    
    observeEvent(input$County,{
      choice_Operator <- sort(unique(as.character(TaxData$Operator[which(TaxData$County==input$County)])))
      
      updateSelectizeInput(
        session = session,
        inputId = "Operator",
        choices = choice_Operator
      )
    })
    
    observeEvent(input$Operator,{
      choice_Lease <- sort(unique(as.character(TaxData$Lease[which(TaxData$County==input$County &
                                                                     TaxData$Operator==input$Operator)])))
      
      updateSelectizeInput(
        session = session,
        inputId = "Lease",
        choices = choice_Lease
      )
    })
    
    observeEvent(input$Lease,{
      choice_Owner <- sort(unique(as.character(TaxData$Owner[which(TaxData$County==input$County &
                                                                     TaxData$Operator==input$Operator &
                                                                     TaxData$Lease==input$Lease)])))
      
      updateSelectizeInput(
        session = session,
        inputId = "Owner",
        choices = choice_Owner
      )
    })
    
    output$TaxTable <- renderTable({TaxFil()})
    
  },
  
  options = list(height = 500)
  
)

**在第二个目标的情况下：**我无法编写代码来支持使用同一系列的相关过滤器及其结果，以使 * 所有者 * 能够访问与其利益相关的替代估值。

我考虑的第一个选择是重用支持第一个目标的过滤器（参见上面的代码）。在这种情况下，过滤器将用于识别 * 所有者 *（和分配的“税收价值”-第一目标）以及租赁（和从中生产的“石油”和“天然气”，以预测附加价值-第二目标）。这似乎是最合乎逻辑的方法来过滤两个目标，但我不能让它工作。
我尝试的下一件事是重新创建过滤器，并将其单独用于第二个目标（原始过滤器仅用于选择 * 所有者 *）。我也无法使其工作，而且它似乎也不是一个非常经济的编码选项。
我最后尝试的是两个数据库的合并。但是，由于许多租约每月的生产历史超过30年，在某些情况下有数千名业主，合并后的文件至少要大20倍，而且很难处理。
总之，我正在寻找帮助编码一组过滤器，可以应用于至少两个不同的数据库，至少两个不同的输出。我已经回顾了以前的问题/答案，发现有几个本质上很接近，比如Nice回答的问题，但由于我有限的经验，我无法推断出我的特定目标。我显然是新来的，真的很感激你的支持。