cleaned column names from "."

scicloj · Feb 9, 2025 · e6ea55d · e6ea55d
1 parent 8a70f50
commit e6ea55d
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,6 @@
+unreleased 
+* cleaned column names from "." in rdatasets
+
 1.1
 * added access fn to all datasets from https://vincentarelbundock.github.io/Rdatasets/articles/data.html
 

diff --git a/dev/gen_datasets_ns.clj b/dev/gen_datasets_ns.clj
@@ -119,7 +119,11 @@
                 (-> csv
 
                     (tc/dataset {:key-fn
-                                 csk/->kebab-case-keyword})))))
+                                 (fn [s]
+                                   (-> s
+                                       (str/replace
+                                        #"\." "-")
+                                       csk/->kebab-case-keyword))})))))
   (writeln! writer
 
             (format-code

diff --git a/src/scicloj/metamorph/ml/rdatasets.clj b/src/scicloj/metamorph/ml/rdatasets.clj
@@ -20,7 +20,8 @@
    (str/replace #"\|(\-*)\|(\-*)\|" "")))
 (defn doc-url->md [doc]
   (clean-R-relevant (.. (FlexmarkHtmlConverter/builder) build (convert (slurp doc)))))
-(defn _fetch-dataset [csv] (-> csv (tc/dataset {:key-fn csk/->kebab-case-keyword})))
+(defn _fetch-dataset [csv]
+  (-> csv (tc/dataset {:key-fn (fn [s] (-> s (str/replace #"\." "-") csk/->kebab-case-keyword))})))
 
 (def fetch-dataset (memoize _fetch-dataset))