feat(hk-company): obtain interconnectivity data

NAMESPACE

@@ -69,6 +69,7 @@ export(lxr_hk_company_hot_ss)
 export(lxr_hk_company_hot_tr_dri)
 export(lxr_hk_company_indices)
 export(lxr_hk_company_industries)
+export(lxr_hk_company_mutual_market)
 export(lxr_hk_company_operation_revenue_constitution)
 export(lxr_hk_company_profile)
 export(lxr_hk_company_repurchase)

R/hk-company.R

@@ -50,6 +50,7 @@
 #' * `lxr_hk_company_hot_tr_dri()` obtain dividend reinvestment yield data.
 #' * `lxr_hk_company_hot_mm_ah()` obtain interconnectivity data.
 #' * `lxr_hk_company_hot_ss()` get the short-selling data.
+#' * `lxr_hk_company_mutual_market()` obtain interconnectivity data.
 #'
 #' @return A string of the API endpoint.
 
@@ -232,3 +233,9 @@ lxr_hk_company_hot_mm_ah <- function() {
 lxr_hk_company_hot_ss <- function() {
   "https://open.lixinger.com/api/hk/company/hot/ss"
 }
+
+#' @rdname lxr_hk_company
+#' @export
+lxr_hk_company_mutual_market <- function() {
+  "https://open.lixinger.com/api/hk/company/mutual-market"
+}

R/query-params.R

@@ -155,6 +155,7 @@ lxr_query_params <- function(endpoint) {
     hk_company_fs_other_financial = fs_params,
     hk_company_hot_tr_dri = min_params,
     hk_company_hot_mm_ah = min_params,
-    hk_company_hot_ss = min_params
+    hk_company_hot_ss = min_params,
+    hk_company_mutual_market = common_params
   )
 }

tests/testthat/test-hk-company.R

@@ -308,3 +308,14 @@ test_that("test hk_company_hot_ss", {
   expect_s3_class(result, "tbl_df")
   expect_true(nrow(result) > 0)
 })
+
+test_that("test hk_company_mutual_market", {
+  result <- lxr_query(
+    endpoint = lxr_hk_company_mutual_market(),
+    start_date = "2023-02-04",
+    end_date = "2024-02-04",
+    stock_code = "00700"
+  )
+  expect_s3_class(result, "tbl_df")
+  expect_true(nrow(result) > 0)
+})