feat: add lxr_cn_company_suppliers()

NAMESPACE

@@ -28,6 +28,7 @@ export(lxr_cn_company_operation_revenue_constitution)
 export(lxr_cn_company_pledge)
 export(lxr_cn_company_senior_executive_shares_change)
 export(lxr_cn_company_shareholders_num)
+export(lxr_cn_company_suppliers)
 export(lxr_cn_company_trading_abnormal)
 export(lxr_query)
 export(lxr_query_params)

R/cn-company.R

@@ -41,6 +41,7 @@
 #'   shareholding information.
 #' * `lxr_cn_company_allotment()` gets allotment information.
 #' * `lxr_cn_company_customers()` gets customer information.
+#' * `lxr_cn_company_suppliers()` gets supplier information.
 #'
 #' @return A string of the API endpoint.
 #' @rdname lxr_cn_company
@@ -211,3 +212,9 @@ lxr_cn_company_customers <- function() {
   "https://open.lixinger.com/api/cn/company/customers"
 }
 
+#' @rdname lxr_cn_company
+#' @export
+lxr_cn_company_suppliers <- function() {
+  "https://open.lixinger.com/api/cn/company/suppliers"
+}
+

R/query-params.R

@@ -81,6 +81,7 @@ lxr_query_params <- function(endpoint) {
     cn_company_fund_shareholders = common_params,
     cn_company_fund_collection_shareholders = common_params,
     cn_company_allotment = common_params,
-    cn_company_customers = common_params
+    cn_company_customers = common_params,
+    cn_company_suppliers = common_params
   )
 }

tests/testthat/test-cn-company.R

@@ -203,3 +203,11 @@ test_that("test cn_company_customers", {
   )
   expect_s3_class(result, "tbl_df")
 })
+
+test_that("test cn_company_suppliers", {
+  result <- lxr_query(
+    endpoint = lxr_cn_company_customers(),
+    start_date = "2022-01-18", end_date = "2024-01-18", stock_code = "300750"
+  )
+  expect_s3_class(result, "tbl_df")
+})