feat: add lxr_cn_company_allotment()

NAMESPACE

@@ -2,6 +2,7 @@
 
 export("%>%")
 export(lxr_cn_company)
+export(lxr_cn_company_allotment)
 export(lxr_cn_company_announcement)
 export(lxr_cn_company_block_deal)
 export(lxr_cn_company_candlestick)

R/cn-company.R

@@ -39,6 +39,7 @@
 #'   shareholding information.
 #' * `lxr_cn_company_fund_collection_shareholders()` gets fund company's
 #'   shareholding information.
+#' * `lxr_cn_company_allotment()` gets allotment information.
 #'
 #' @return A string of the API endpoint.
 #' @rdname lxr_cn_company
@@ -101,6 +102,12 @@ lxr_cn_company_dividend <- function() {
   "https://open.lixinger.com/api/cn/company/dividend"
 }
 
+#' @rdname lxr_cn_company
+#' @export
+lxr_cn_company_allotment <- function() {
+  "https://open.lixinger.com/api/cn/company/allotment"
+}
+
 #' @rdname lxr_cn_company
 #' @export
 lxr_cn_company_fs_non_financial <- function() {

R/query-params.R

@@ -79,6 +79,7 @@ lxr_query_params <- function(endpoint) {
     cn_company_majority_shareholders = common_params,
     cn_company_nolimit_shareholders = common_params,
     cn_company_fund_shareholders = common_params,
-    cn_company_fund_collection_shareholders = common_params
+    cn_company_fund_collection_shareholders = common_params,
+    cn_company_allotment = common_params
   )
 }

tests/testthat/test-cn-company.R

@@ -187,3 +187,11 @@ test_that("test cn_company_fund_collection_shareholders", {
   )
   expect_s3_class(result, "tbl_df")
 })
+
+test_that("test cn_company_allotment", {
+  result <- lxr_query(
+    endpoint = lxr_cn_company_allotment(),
+    start_date = "2022-01-18", end_date = "2024-01-18", stock_code = "600958"
+  )
+  expect_s3_class(result, "tbl_df")
+})