diff --git a/NAMESPACE b/NAMESPACE index bcffb1a..7b85437 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -12,6 +12,7 @@ export(lxr_cn_company_fs_insurance) export(lxr_cn_company_fs_non_financial) export(lxr_cn_company_fs_other_financial) export(lxr_cn_company_fs_security) +export(lxr_cn_company_fund_collection_shareholders) export(lxr_cn_company_fund_shareholders) export(lxr_cn_company_fundamental_statistics) export(lxr_cn_company_indices) diff --git a/R/cn-company.R b/R/cn-company.R index 97cf124..23897f9 100644 --- a/R/cn-company.R +++ b/R/cn-company.R @@ -37,6 +37,8 @@ #' information of the top ten circulating shareholders. #' * `lxr_cn_company_fund_shareholders()` gets publicly offered fund #' shareholding information. +#' * `lxr_cn_company_fund_collection_shareholders()` gets fund company's +#' shareholding information. #' #' @return A string of the API endpoint. #' @rdname lxr_cn_company @@ -188,3 +190,9 @@ lxr_cn_company_nolimit_shareholders <- function() { lxr_cn_company_fund_shareholders <- function() { "https://open.lixinger.com/api/cn/company/fund-shareholders" } + +#' @rdname lxr_cn_company +#' @export +lxr_cn_company_fund_collection_shareholders <- function() { + "https://open.lixinger.com/api/cn/company/fund-collection-shareholders" +} diff --git a/R/query-params.R b/R/query-params.R index 9571e5f..5c92840 100644 --- a/R/query-params.R +++ b/R/query-params.R @@ -78,6 +78,7 @@ lxr_query_params <- function(endpoint) { cn_company_inquiry = common_params, cn_company_majority_shareholders = common_params, cn_company_nolimit_shareholders = common_params, - cn_company_fund_shareholders = common_params + cn_company_fund_shareholders = common_params, + cn_company_fund_collection_shareholders = common_params ) } diff --git a/man/lxr_cn_company.Rd b/man/lxr_cn_company.Rd index e7dc2e1..e91ceca 100644 --- a/man/lxr_cn_company.Rd +++ b/man/lxr_cn_company.Rd @@ -26,6 +26,7 @@ \alias{lxr_cn_company_majority_shareholders} \alias{lxr_cn_company_nolimit_shareholders} \alias{lxr_cn_company_fund_shareholders} +\alias{lxr_cn_company_fund_collection_shareholders} \title{China Mainland company API endpoints} \usage{ lxr_cn_company() @@ -77,6 +78,8 @@ lxr_cn_company_majority_shareholders() lxr_cn_company_nolimit_shareholders() lxr_cn_company_fund_shareholders() + +lxr_cn_company_fund_collection_shareholders() } \value{ A string of the API endpoint. @@ -118,5 +121,7 @@ shareholders' holdings. information of the top ten circulating shareholders. \item \code{lxr_cn_company_fund_shareholders()} gets publicly offered fund shareholding information. +\item \code{lxr_cn_company_fund_collection_shareholders()} gets fund company's +shareholding information. } } diff --git a/tests/testthat/test-cn-company.R b/tests/testthat/test-cn-company.R index 5f0588a..9d7c8d3 100644 --- a/tests/testthat/test-cn-company.R +++ b/tests/testthat/test-cn-company.R @@ -179,3 +179,11 @@ test_that("test cn_company_fund_shareholders", { ) expect_s3_class(result, "tbl_df") }) + +test_that("test cn_company_fund_collection_shareholders", { + result <- lxr_query( + endpoint = lxr_cn_company_fund_collection_shareholders(), + start_date = "2023-11-01", end_date = "2024-01-17", stock_code = "300750" + ) + expect_s3_class(result, "tbl_df") +})