feat(hk-company): get split data

NAMESPACE

@@ -57,6 +57,7 @@ export(lxr_hk_company_industries)
 export(lxr_hk_company_operation_revenue_constitution)
 export(lxr_hk_company_repurchase)
 export(lxr_hk_company_short_selling)
+export(lxr_hk_company_split)
 export(lxr_query)
 export(lxr_query_params)
 importFrom(dplyr,full_join)

R/hk-company.R

@@ -26,6 +26,7 @@
 #' * `lxr_hk_company_fund_collection_shareholders()` obtain the shareholding
 #'   information of domestic fund companies."
 #' * `lxr_hk_company_dividend()` get dividend information.
+#' * `lxr_hk_company_split()` get split data.
 #'
 #' @return A string of the API endpoint.
 
@@ -106,3 +107,9 @@ lxr_hk_company_fund_collection_shareholders <- function() {
 lxr_hk_company_dividend <- function() {
   "https://open.lixinger.com/api/hk/company/dividend"
 }
+
+#' @rdname lxr_hk_company
+#' @export
+lxr_hk_company_split <- function() {
+  "https://open.lixinger.com/api/hk/company/split"
+}

R/query-params.R

@@ -152,6 +152,7 @@ lxr_query_params <- function(endpoint) {
     hk_company_announcement = common_params,
     hk_company_fund_shareholders = common_params,
     hk_company_fund_collection_shareholders = common_params,
-    hk_company_dividend = common_params
+    hk_company_dividend = common_params,
+    hk_company_split = common_params
   )
 }

tests/testthat/test-hk-company.R

@@ -135,3 +135,14 @@ test_that("test hk_company_dividend", {
   expect_s3_class(result, "tbl_df")
   expect_true(nrow(result) > 0)
 })
+
+test_that("test hk_company_split", {
+  result <- lxr_query(
+    endpoint = lxr_hk_company_split(),
+    start_date = "2015-01-03",
+    end_date = "2024-02-03",
+    stock_code = "02269"
+  )
+  expect_s3_class(result, "tbl_df")
+  expect_true(nrow(result) > 0)
+})