diff --git a/CHANGELOG.md b/CHANGELOG.md index 2b784f9..989d060 100644 --- 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 index f6c33bb..1695225 100644 --- 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 index 0d96a51..66215e4 100644 --- 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))