govtrackR: Federal government tracking tools

Documented in dictionary_fpds_award_types dictionary_fpds_commercial_acquisition_codes dictionary_fpds_competition dictionary_fpds_contract_acquisition dictionary_fpds_contract_pricing dictionary_fpds_cost_account dictionary_fpds_epa_product_codes dictionary_fpds_evaluated_perferences dictionary_fpds_fbo_codes dictionary_fpds_idc_codes dictionary_fpds_idv_codes dictionary_fpds_labor_standards dictionary_fpds_limited_source_codes dictionary_fpds_manufacture_codes dictionary_fpds_mission_critical_codes dictionary_fpds_modification_codes dictionary_fpds_multiple_award_codes dictionary_fpds_national_interest_codes dictionary_fpds_not_competed_codes dictionary_fpds_performance_based_acquisition dictionary_fpds_price_codes dictionary_fpds_research_awards dictionary_fpds_sea_transportation_codes dictionary_fpds_set_aside_codes dictionary_fpds_solicitation_procedures dictionary_fpds_subcontracting_codes

# https://github.com/fedspendingtransparency/usaspending-api/blob/dev/usaspending_api/data/daims_maps.py

#' FPDS pricing dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_price_codes()
dictionary_fpds_price_codes <-
  function(){
    structure(list(c("N", "W", "Y"), c("No", "Not Obtained - Waived",
                                       "Yes")), row.names = c(NA, -3L), .Names = c("codePricing", "typePricing"
                                       ), class = c("tbl_df", "tbl", "data.frame"))

  }

#' FPDS cost accounting dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_cost_account()
dictionary_fpds_cost_account <- function(){
  structure(list(c("Y", "N", "X"), c("Yes", "No", "Not Applicable"
  )), row.names = c(NA, -3L), .Names = c("codeCostAccount", "typeCostAccount"
  ), class = c("tbl_df", "tbl", "data.frame"))

}

#' FPDS contract acquisition dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_contract_acquisition()
dictionary_fpds_contract_acquisition <-
  function() {
    structure(list(c("A", "C", "D", "E", "F", "Z"), c("FAR 52.232-16 Progress Payments",
                                                      "Percentage of Completion Progress Payments", "Unusual Progress Payments or Advance Payments",
                                                      "Commercial Financing", "Performance-Based Financing", "Not Applicable"
    )), row.names = c(NA, -6L), .Names = c("codeContractFinancing",
                                           "typeContractFinancing"), class = c("tbl_df", "tbl", "data.frame"
                                           ))

  }

#' FPDS commercial acquisition codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_commercial_acquisition_codes()
dictionary_fpds_commercial_acquisition_codes <-
  function() {
  structure(list(c("A", "B", "C", "D"), c("Commercial Item", "Supplies or services pursuant to FAR 12.102(f)",
                                          "Services pursuant to FAR 12.102(g)", "Commercial Item - Procedure Not Used"
  )), row.names = c(NA, -4L), .Names = c("codeCommercialAcquisition",
                                         "typeCommercialAcquisition"), class = c("tbl_df", "tbl", "data.frame"
                                         ))

}

#' FPDS mission critical codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_mission_critical_codes()
dictionary_fpds_mission_critical_codes <-
  function() {
  structure(list(c("A", "B", "C", "D"), c("Mission Critical", "OMB Circular A-76",
                                          "Other", "Not a Bundled Requirement")), row.names = c(NA, -4L
                                          ), .Names = c("codeMissionCritical", "typeMissionCritical"), class = c("tbl_df",
                                                                                                                 "tbl", "data.frame"))

}

#' FPDS national interest codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_national_interest_codes()
dictionary_fpds_national_interest_codes <-
  function() {
    structure(list(c("NONE", "H05K", "H05O", "H05R", "H05W", "W081",
                     "F081", "H08G", "H08H", "H08I", "H06C", "H06E", "Inauguration 2009",
                     "T10S", "Q10H", "H10E", "O10G", "H11I", "Q11J", "O12F", "H12I",
                     "H13S", "T13O", "O14S", "O14E", "O15F"), c("None", "Hurricane Katrina 2005",
                                                                "Hurricane Ophelia 2005", "Hurricane Rita 2005", "Hurricane Wilma 2005",
                                                                "California Wildfires 2008", "Midwest Storms and Flooding 2008",
                                                                "Hurricane Gustav 2008", "Hurricane Hanna 2008", "Hurricane Ike 2008",
                                                                "Hurricane Chris 2006", "Hurricane Ernesto 2006", "Inauguration Declaration 2009",
                                                                "American Samoa Earthquake, Tsunami and Flooding 2010", "Haiti Earthquake 2010",
                                                                "Hurricane Earl 2010", "Gulf Oil Spill 0410", "Hurricane Irene 2011",
                                                                "Pacific Earthquake/Tsunami 2011", "Operation Enduring Freedom (OEF)",
                                                                "Hurricane Isaac 2012", "Hurricane Sandy 2013", "Oklahoma Tornado and Storm 2013",
                                                                "Operations in Iraq and Syria", "Operation United Assistance (OUA) - Ebola Outbreak West Africa",
                                                                "Operation Freedom's Sentinel (OFS) 2015")), row.names = c(NA,
                                                                                                                           -26L), .Names = c("codeNationalInterest", "typeNationalInterest"
                                                                                                                           ), class = c("tbl_df", "tbl", "data.frame"))

  }


#' FPDS EPA designated product codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_epa_product_codes()
dictionary_fpds_epa_product_codes <-
  function(){
    structure(list(c("A", "B", "C", "D", "E"), c("Meets Requirements",
                                                 "Justification - Time", "Justification - Price", "Justification - Performance",
                                                 "Not Required")), row.names = c(NA, -5L), .Names = c("codeEPA",
                                                                                                      "typeEPA"), class = c("tbl_df", "tbl", "data.frame"))

  }

#' FPDS preference dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_evaluated_perferences()
dictionary_fpds_evaluated_perferences <-
  function() {
    structure(list(c("NONE", "SDA", "SPS", "HZE", "HSD"), c("No Preference Used",
                                                            "SDB Price Evaluation Adjustment", "SDB Preferential Consideration Partial SB Set Aside",
                                                            "HUBZone Price Evaluation Preference", "Combined HUB/SDB Preference"
    )), row.names = c(NA, -5L), .Names = c("codeEvaluatedPreference",
                                           "typeEvalulatedPrefernce"), class = c("tbl_df", "tbl", "data.frame"
                                           ))

  }

#' FPDS competiton codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_competition()
dictionary_fpds_competition <-
  function(){
    structure(list(c("A", "B", "C", "D", "E Civ", "F", "G", "CDOCiv",
                     "NDOCiv"), c("Full and Open Competition", "Not Available for Competition",
                                  "Not Competed", "Full and Open Competiton after exclusion of sources",
                                  "Follow On to Competed Action", "Competed under SAP", "Not Competed under SAP",
                                  "Competitive Delivery Order", "\tNon-Competitive Delivery Order"
                     )), row.names = c(NA, -9L), .Names = c("codeCompetition", "typeCompetition"
                     ), class = c("tbl_df", "tbl", "data.frame"))

  }

#' FPDS FBO codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_fbo_codes()
dictionary_fpds_fbo_codes <-
  function() {
    structure(list(c("Y", "N", "X"), c("Yes", "No", "Not Applicable"
    )), row.names = c(NA, -3L), .Names = c("codeFBO", "typeFBO"), class = c("tbl_df",
                                                                            "tbl", "data.frame"))

  }

#' FPDS multiple award codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_multiple_award_codes()
dictionary_fpds_multiple_award_codes <-
  function(){
    structure(list(c("M", "S"), c("Multiple Award", "Single Award"
    )), row.names = c(NA, -2L), .Names = c("codeMultipleAward", "typeMultipleAward"
    ), class = c("tbl_df", "tbl", "data.frame"))

  }

#' FPDS performance service codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_performance_based_acquisition()
dictionary_fpds_performance_based_acquisition <-
  function() {
    structure(list(c("Y", "N", "X"), c("Yes", "No", "Not Applicable"
    )), row.names = c(NA, -3L), .Names = c("codePerfomanceBasedAcquisition",
                                           "typePerfomanceBasedAcquisition"), class = c("tbl_df", "tbl",
                                                                                         "data.frame"))

  }

#' FPDS Sea Transportation Codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_sea_transportation_codes()
dictionary_fpds_sea_transportation_codes <-
  function() {
    structure(list(c("Y", "N", "X"), c("Yes", "No", "Not Applicable"
    )), row.names = c(NA, -3L), .Names = c("codeSeaTransportation",
                                           "typeSeaTransportation"), class = c("tbl_df", "tbl",
                                                                                        "data.frame"))

  }


#' FPDS labor standards codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_labor_standards()
dictionary_fpds_labor_standards <-
  function() {
    structure(list(c("Y", "N", "X"), c("Yes", "No", "Not Applicable"
    )), row.names = c(NA, -3L), .Names = c("codeLaborStandard",
                                           "typeLaborStandard"), class = c("tbl_df", "tbl",
                                                                                        "data.frame"))

  }

#' FPDS manufacture codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_manufacture_codes()
dictionary_fpds_manufacture_codes <-
  function() {
    structure(list(c("A", "B", "C", "D", "E", "F", "G", "H", "I",
                     "J", "K", "L"), c("Performed or Manufactured in US, but services performed by a foreign concern or more than 50% foreign content",
                                       "Performed or Manufactored outside US", "Not a manufactured end product",
                                       "Manufactured in U.S.", "Manufactured outside U.S.", "Manufactured outside U.S. - Resale",
                                       "Manufactured outside U.S. - Trade Agreements", "Manufactured outside U.S. - Commercial Information Technology",
                                       "Manufactured outside U.S. - Public Interest Determination",
                                       "Manufactured outside U.S. - Domestic Non-Availability", "Manufactured outside U.S. - Unreasonable Cost",
                                       "Manufactured outside U.S. - Qualifying County (DoD Only)")), row.names = c(NA,
                                                                                                                   -12L), .Names = c("codeManufacture", "typeManufacter"), class = c("tbl_df",
                                                                                                                                                                                     "tbl", "data.frame"))

  }

#' FPDS modification codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_modification_codes()
dictionary_fpds_modification_codes <-
  function(){
    structure(list(c("A", "B", "C", "D", "E", "F", "G", "H", "J",
                     "K", "L", "M", "N", "P", "R", "S", "T", "V", "W", "X"), c("Additional Work (new agreement, FAR part 6 applies)",
                                                                               "Supplemental Agreement for work within scope", "Funding Only Action",
                                                                               "Change Order", "Terminate for Default (complete or partial)",
                                                                               "Terminate for Convenience (complete or partial)", "Exercise an Option",
                                                                               "Definitize Letter Contract", "Novation Agreement", "Close Out",
                                                                               "Definitize Change Order", "Other Administrative Action", "Legal Contract Cancellation",
                                                                               "Representation of Non-Novated Merger/Acquisition", "Representation",
                                                                               "Change PIID", "Transfer Action", "Vendor DUNS or Name Change - Non-Novation",
                                                                               "Vendor Address Change", "Terminate for Cause")), row.names = c(NA,
                                                                                                                                               -20L), .Names = c("codeModification", "typeModification"), class = c("tbl_df",
                                                                                                                                                                                                                    "tbl", "data.frame"))

  }

#' FPDS Research code dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_research_awards()
dictionary_fpds_research_awards <-
  function(){
    structure(list(c("SR1", "SR2", "SR3", "ST1", "ST2", "ST3"), c("SBIR Program Phase I Action",
                                                                  "SBIR Program Phase II Action", "SBIR Program Phase III Action",
                                                                  "STTR Phase I", "STTR Phase II", "STTR Phase III")), row.names = c(NA,
                                                                                                                                     -6L), .Names = c("codeResearch", "typeResearch"), class = c("tbl_df",
                                                                                                                                                                                                 "tbl", "data.frame"))

  }

#' FPDS solicitation procedures
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_solicitation_procedures()
dictionary_fpds_solicitation_procedures <-
  function(){
    structure(list(c("NP", "SB", "TS", "SP1", "AE", "BR", "AS", "SSS",
                     "MAFO"), c("Negotiated Proposal/Quote", "Sealed Bid", "Two Step",
                                "Simplified Acquisition", "Architect-Engineer FAR 6.102", "Basic Research",
                                "Alternative Sources", "Only One Source", "Subject to Multiple Award Fair opportunity"
                     )), row.names = c(NA, -9L), .Names = c("codeSolicitationProcedure",
                                                            "typeSolicitationProcedure"), class = c("tbl_df", "tbl", "data.frame"
                                                            ))

  }

#' FPDS limted source dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_limited_source_codes()
dictionary_fpds_limited_source_codes <-
  function(){
  structure(list(c("URG", "ONE", "FOO", "MG", "OSA", "FAIR", "CSA",
                   "SSS"), c("Urgency", "Only One Source - Other", "Follow-on Action Following Competitive Initial Action",
                             "Minimum Guarantee", "Other Statutory Authority", "Fair Opportunity Given",
                             "Competitive Set Aside", "Sole Source")), row.names = c(NA, -8L
                             ), .Names = c("codeLimitedSource", "typeLimitedSource"), class = c("tbl_df",
                                                                                                "tbl", "data.frame"))

  }

#' FPDS sub contracting codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_subcontracting_codes()
dictionary_fpds_subcontracting_codes <-
  function(){
    structure(list(c("A", "B", "C", "D", "E", "F", "G", "H"), c("Plan Not Included - No Subcontracting Possibilities",
                                                                "Plan Not Required", "Plan Required - Incentive Not Included",
                                                                "Plan Required - Incentive Included", "Plan Required (Pre 2004)",
                                                                "Individual Subcontract Plan", "Commercial Subcontract Plan",
                                                                "DOD Comprehensive Subcontract Plan")), row.names = c(NA, -8L
                                                                ), .Names = c("codeSubContractingPlan", "typeSubContractingPlan"
                                                                ), class = c("tbl_df", "tbl", "data.frame"))

  }

#' FPDS IDC codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_idc_codes()
dictionary_fpds_idc_codes <-
  function(){structure(list(c("A", "B", "C"), c("Indefinite Delivery / Requirements",
                                                "Indefinite Delivery / Indefinite Quantity", "Indefinite Delivery / Definite Quantity"
  )), row.names = c(NA, -3L), .Names = c("codeIDC", "typeIDC"), class = c("tbl_df",
                                                                          "tbl", "data.frame"))
  }

#' FPDS set aside codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_set_aside_codes()
dictionary_fpds_set_aside_codes <-
  function(){
    structure(list(c("NONE", "SBA", "8A", "SBP", "HMT", "HMP", "VSBCiv",
                     "ESB", "HZC", "SDVOSBC", "BICiv", "ISEE", "ISBEE", "HZS", "SDVOSBS",
                     "8AN", "RSBCiv", "8ACCiv", "HS2Civ", "HS3", "VSA", "VSS", "WOSB",
                     "EDWOSB"), c("No Set Aside Used", "Small Busness Set-Aside - Total",
                                  "8A Competed", "Small Busness Set-Aside - Partial", "HBCU or MI Set-Aside - Total",
                                  "HBCU or MI Set-Aside - Partial", "Very Small Business Set-Aside",
                                  "Emerging Small Business Set-Aside", "HUBZone Set-Aside", "Service-Disabled Veteran-Owned Small Business Set-Aside",
                                  "Buy Indian", "Indian Economic Enterprise", "Indian Small Business Economic Enterprise",
                                  "HUBZone Sole Source", "SDVOSB Sole Source", "8(a) Sole Source",
                                  "Reserved for Small Business $2,501 to $100K", "SDB Set-Aside 8(a)",
                                  "Combination HUBZone and 8(a)", "8(a) with HUBZone Preference",
                                  "Veteran Set-Aside", "Veteran Sole Source", "Women-Owned Small Business",
                                  "Economically-Disadvantaged Women-Owned Small Business")), row.names = c(NA,
                                                                                                           -24L), .Names = c("codeSetAside", "typeSetAside"), class = c("tbl_df",
                                                                                                                                                                        "tbl", "data.frame"))

  }

#' FPDS contract pricing codes
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_contract_pricing()
dictionary_fpds_contract_pricing <-
  function(){
    structure(list(c("A", "B", "J", "K", "L", "M", "R", "S", "T",
                     "U", "V", "Y", "Z", "1", "2", "3", "_DEFAULT"), c("Fixed Price Redetermination",
                                                                       "Fixed Price Level of Effort", "Firm Fixed Price", "Fixed Price with Economic Price Adjustment",
                                                                       "Fixed Price Incentive", "Fixed Price Award Fee", "Cost Plus Award Fee",
                                                                       "Cost No Fee", "Cost Sharing", "Cost Plus Fixed Fee", "Cost Plus Incentive Fee",
                                                                       "Time and Materials", "Labor Hours", "Order Dependent", "Combination",
                                                                       "Other", "Unknown Type")), row.names = c(NA, -17L), .Names = c("codeContractPricing",
                                                                                                                                      "typeContractPricing"), class = c("tbl_df", "tbl", "data.frame"
                                                                                                                                      ))

  }

#' FPDS award type dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_award_types()
dictionary_fpds_award_types <-
  function(){
    structure(list(c("02", "03", "04", "05", "06", "07", "08", "09",
                     "10", "11", "A", "B", "C", "D", "F", "G", "O", "R", "S", "T"),
                   c("Block Grant", "Formula Grant", "Project Grant", "Cooperative Agreement",
                     "Direct Payment for Specified Use", "Direct Loan", "Guaranteed/Insured Loan",
                     "Insurance", "Direct Payment with Unrestricted Use", "Other Financial Assistance",
                     "BPA Call", "Purchase Order", "Delivery Order", "Definitive Contract",
                     "Cooperative Agreement", "Grant for Research", "Other Transaction Order",
                     "Other Transaction Agreement", "Funded Space Act Agreement",
                     "Training Grant")), row.names = c(NA, -20L), .Names = c("codeAward",
                                                                             "typeAward"), class = c("tbl_df", "tbl", "data.frame"))

  }


#' FPDS Reason Not Competed Dictionary
#'
#' @return \code{tibble}
#' @export
#'
#' @examples
#' dictionary_fpds_not_competed_codes()
dictionary_fpds_not_competed_codes <-
  function() {
    structure(list(c("UNQ", "FOC", "UR", "PDR", "UT", "STD", "ONE",
                     "URG", "MES", "IA", "OTH", "RES", "NS", "PI", "MPTCiv", "SP2",
                     "BND"), c("Unique Source (FAR 6.302-1(b)(1)) ", "Follow-On Contract (FAR 6.302-1(a)(2)(ii/iii))",
                               "Unsolicited Research Proposal (FAR 6.302-1(a)(2)(i))", "Patent or Data Rights (FAR 6.302-1(b)(2))",
                               "Utilities (FAR 6.302-1(b)(3))", "Standardization (FAR 6.302-1(b)(4))",
                               "Only One Source-Other (FAR 6.302-1 other)", "Urgency (FAR 6.302-2)",
                               "Mobilization, Essential R&D (FAR 6.302-3)", "International Agreement (FAR 6.302-4)",
                               "Authorized by Statute (FAR 6.302-5(a)(2)(i))", "Authorized Resale (FAR 6.302-5(a)(2)(ii))",
                               "National Security (FAR 6.302-6)", "Public Interest (FAR 6.302-7)",
                               "Less than or equal to the Micro-Purchase Threshold", "SAP Non-Competition (FAR 13)",
                               "Brand Name Description (FAR 6.302-1(c))")), row.names = c(NA,
                                                                                          -17L), .Names = c("codeNotCompeteReason", "typeNotCompeteReason"
                                                                                          ), class = c("tbl_df", "tbl", "data.frame"))

  }

#' FPDS IDV dictionary
#'
#' @return
#' @export
#'
#' @examples
#' dictionary_fpds_idv_codes()
dictionary_fpds_idv_codes <-
  function() {
    structure(list(c("A", "B", "C", "D", "E"), c("Governmentwide Acquisition Contract (GWAC)",
                                                 "Indefinite Delivery Contract (IDC)", "Federal Supply Schedule (FSS)",
                                                 "Basic Ordering Agreement (BOA)", "Blanket Purchase Agreement (BPA)"
    )), row.names = c(NA, -5L), .Names = c("codeIDV", "typeIDV"), class = c("tbl_df",
                                                                            "tbl", "data.frame"))

  }