fix(pca): emit Row Count metric name for #37268

Align with tam VizUtil key that already translates to 行数 without
colliding with Number of Rows -> 行の数.

Co-authored-by: Cursor <cursoragent@cursor.com>

Author: hidekoji

R/prcomp.R

@@ -347,7 +347,7 @@ tidy.prcomp_exploratory <- function(x, type="variances", n_sample=NULL, pretty.n
       # #37268: rename Rows Used / Variables Used; drop redundant Rows vs Variables row;
       # refresh Description copy (and English-canonical strings for the client translator).
       res <- tibble::tibble(
-        Metric = c("Number of Rows", "Rows Excluded", "Number of Variables", "Excluded Variables",
+        Metric = c("Row Count", "Rows Excluded", "Number of Variables", "Excluded Variables",
                    "Normalization", "SD Ratio (Max/Min)"),
         Value = c(
           as.character(d$analyzed_row_count),

tests/testthat/test_prcomp.R

@@ -93,10 +93,11 @@ test_that("new report tidy types return expected columns and tokens", {
   model_df <- mtcars %>% do_prcomp(mpg, cyl, disp, hp, drat, wt)
   res <- model_df %>% tidy_rowwise(model, type = "analysis_conditions")
   expect_equal(colnames(res), c("Metric", "Value", "Description", "status"))
-  expect_true(all(c("Number of Rows","Number of Variables","Normalization","SD Ratio (Max/Min)") %in% res$Metric))
+  expect_true(all(c("Row Count","Number of Variables","Normalization","SD Ratio (Max/Min)") %in% res$Metric))
   expect_false("Rows vs Variables" %in% res$Metric)
   expect_false("Rows Used" %in% res$Metric)
   expect_false("Variables Used" %in% res$Metric)
+  expect_false("Number of Rows" %in% res$Metric)
   # #37268: empty excluded-variables cell is "None" (JA: なし), not "-".
   excluded_row <- res[res$Metric == "Excluded Variables", , drop = FALSE]
   if (nrow(excluded_row) == 1 && identical(excluded_row$status, "na")) {