feat: add lxr_cn_company_fundamental_non_financial()

NAMESPACE

@@ -16,6 +16,7 @@ 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_non_financial)
 export(lxr_cn_company_fundamental_statistics)
 export(lxr_cn_company_indices)
 export(lxr_cn_company_industries)

R/cn-company.R

@@ -42,6 +42,8 @@
 #' * `lxr_cn_company_allotment()` gets allotment information.
 #' * `lxr_cn_company_customers()` gets customer information.
 #' * `lxr_cn_company_suppliers()` gets supplier information.
+#' * `lxr_cn_company_fundamental_non_financial()` gets fundamental data for 
+#'   non-financial companies, such as PE, PB, etc.
 #'
 #' @return A string of the API endpoint.
 #' @rdname lxr_cn_company
@@ -218,3 +220,8 @@ lxr_cn_company_suppliers <- function() {
   "https://open.lixinger.com/api/cn/company/suppliers"
 }
 
+#' @rdname lxr_cn_company
+#' @export
+lxr_cn_company_fundamental_non_financial <- function() {
+  "https://open.lixinger.com/api/cn/company/fundamental/non_financial"
+}

R/query-params.R

@@ -29,6 +29,12 @@ lxr_query_params <- function(endpoint) {
     ),
     required_params = c("stockCodes", "metricsList")
   )
+  fundamental_params <- list(
+      valid_params = c(
+        "date", "startDate", "endDate", "adjustForwardDate",
+        "adjustBackwardDate", "limit", "stockCodes", "metricsList"),
+      required_params = c("stockCodes", "metricsList")
+    )
 
   switch(endpoint_name,
     cn_company = list(
@@ -82,6 +88,7 @@ lxr_query_params <- function(endpoint) {
     cn_company_fund_collection_shareholders = common_params,
     cn_company_allotment = common_params,
     cn_company_customers = common_params,
-    cn_company_suppliers = common_params
+    cn_company_suppliers = common_params,
+    cn_company_fundamental_non_financial = fundamental_params
   )
 }

tests/testthat/test-cn-company.R

@@ -211,3 +211,13 @@ test_that("test cn_company_suppliers", {
   )
   expect_s3_class(result, "tbl_df")
 })
+
+test_that("test cn_company_fundamental_non_financial", {
+  result <- lxr_query(
+    endpoint = lxr_cn_company_fundamental_non_financial(),
+    date = "2024-01-18",
+    stock_codes = c("300750", "600519", "600157"),
+    metrics_list = c("pe_ttm", "mc")
+  )
+  expect_s3_class(result, "tbl_df")
+})