all plots are empty

[behrica]

I can not get any plots to work.

I believe it has to do with the id mangling, which eventually with the latest version of svglite is broken.

This fork works for me:

https://github.com/tentamen/gg4clj

which basically removes id mangling

[michaelcole-LN]

The problem is just that the regex in the mangling needs a slight change. It seems the svglite now produces ids set off with ' rather than ".

The comment in mangle-ids that svglite reuses the ids in each plot still holds, so multi-plot documents might be affected.

Here is the function with the regex changes:

(defn- mangle-ids "ggplot produces SVGs with elements that have id attributes. These ids are unique within each plot, but are generated in such a way that they clash when there's more than one plot in a document. This function takes an SVG string and replaces the ids with globally unique ids. It returns a string. This is a workaround which could be removed if there was a way to generate better SVG in R. Also: http://stackoverflow.com/questions/1732348/regex-match-open-tags-except-xhtml-self-contained-tags/1732454#1732454 " [svg] (let [ ;ids (map last (re-seq #"id="([^"])"" svg)) ids (map last (re-seq #"id='([^'])'" svg)) id-map (zipmap ids (repeatedly (count ids) #(str (UUID/randomUUID))))] (-> svg (s/replace #"id='([^'])'" #(str "id='" (get id-map (last %)) "'")) (s/replace #"'#([^'])'" #(str "'#" (get id-map (last %)) "'")) (s/replace #"url(#([^']))" #(str "url(#" (get id-map (last %)) ")"))) ;(-> svg ; (s/replace #"id="([^"])"" #(str "id="" (get id-map (last %)) """)) ; (s/replace #""#([^"])"" #(str ""#" (get id-map (last %)) """)) ; (s/replace #"url(#([^"]))" #(str "url(#" (get id-map (last %)) ")"))) ; svg ))