diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/code/survplot_v1 - Paolo Eusebi.R b/_posts/2024-12-01-wonderful-wednesdays-september-2024/code/survplot_v1 - Paolo Eusebi.R new file mode 100644 index 0000000..9ece189 --- /dev/null +++ b/_posts/2024-12-01-wonderful-wednesdays-september-2024/code/survplot_v1 - Paolo Eusebi.R @@ -0,0 +1,49 @@ +library(dplyr) +library(ggplot2) +library(broom) +library(survival) +library(patchwork) + +# load data +ADTTE <- read_csv('2024-08-12-psi-vissig-adtte.csv') %>% + mutate(EVNTDESCN=case_when( + EVNTDESC=="Death" ~ 1, + EVNTDESC=="PD" ~ 2, + EVNTDESC=="Lost to follow-up" ~ 3, + EVNTDESC=="No next-line therapy initiated" ~ 4, + EVNTDESC=="Ongoing on first next-line therapy" ~ 5, + EVNTDESC=="Second next-line therapy initiated" ~ 6)) + +# plot KM curve by treatment +d <- survfit(Surv(AVAL, CNSR == 0) ~ TRT01P , data = ADTTE ) %>% + tidy(fit) %>% + rename(TRT01P=strata) %>% + mutate(TRT01P=gsub('TRT01P=', '', TRT01P)) + +a <- ggplot(data=d, aes(x=time, y=estimate, group = TRT01P, colour = TRT01P)) + + # do not inherit legend from ggplot + geom_line(show.legend = T) + + geom_point(pch=ifelse(d$n.censor>0,"|","")) + + theme_bw() + + theme(legend.position="top", + legend.text = element_text(size=12)) + + guides(colour = guide_legend(title = "")) + + labs(y="", x="Time (days)") + + scale_color_brewer(palette="Set1")+ + annotate("text", x=-250, 0.35, label = "Progression Free Survival", hjust = 0, vjust = 1, angle=90) + + coord_cartesian(xlim = c(0, 2000), clip = 'off') +a + +b <- ggplot(data = ADTTE, aes(x=AVAL, y=reorder(EVNTDESC, -EVNTDESCN), colour=TRT01P)) + + geom_point(pch=ifelse(ADTTE$CNSR==1, "|", "x"), size=3, alpha=0.5) + + facet_grid(cols = vars(TRT01P)) + + theme_bw() + + theme(legend.position="none") + + labs(y="", x="Time (days)") + + scale_color_brewer(palette="Set1") +b + +a/b + + plot_layout(heights = c(2, 1)) + +ggsave("figures/survplot_v1_2024-09-07.png", width = 16, height = 9) diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/augmented_survival_1.png b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/augmented_survival_1.png new file mode 100644 index 0000000..3cee323 Binary files /dev/null and b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/augmented_survival_1.png differ diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/augmented_survival_2.png b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/augmented_survival_2.png new file mode 100644 index 0000000..0602830 Binary files /dev/null and b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/augmented_survival_2.png differ diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/sorted_lollipop_1.png b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/sorted_lollipop_1.png new file mode 100644 index 0000000..7d12c44 Binary files /dev/null and b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/sorted_lollipop_1.png differ diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/sorted_lollipop_2.png b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/sorted_lollipop_2.png new file mode 100644 index 0000000..976eb68 Binary files /dev/null and b/_posts/2024-12-01-wonderful-wednesdays-september-2024/images/sorted_lollipop_2.png differ diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/wonderful-wednesdays-september-2024.Rmd b/_posts/2024-12-01-wonderful-wednesdays-september-2024/wonderful-wednesdays-september-2024.Rmd new file mode 100644 index 0000000..46d8011 --- /dev/null +++ b/_posts/2024-12-01-wonderful-wednesdays-september-2024/wonderful-wednesdays-september-2024.Rmd @@ -0,0 +1,136 @@ +--- +title: "Wonderful Wednesdays September 2024" +description: | + Visualise the pattern of events (disease progression, death, etc) on a summary data level or on a patient level data. Highlight differences between treatments or subgroups. +author: + - name: PSI VIS SIG + url: https://www.psiweb.org/sigs-special-interest-groups/visualisation +date: 09-11-2024 +categories: + - Progression free survival + - Wonderful Wednesdays +base_url: https://vis-sig.github.io/blog +preview: ./images/augmented_survival_1.png +output: + distill::distill_article: + self_contained: false +--- + + +# Progression free survival +The example simulated data set is based on large phase III clinical trials in Breast cancer such as [ALTTO](https://ascopubs.org/doi/pdf/10.1200/JCO.2015.62.1797). + +The “trial” aims to determine if a combination of two therapies tablemab (T) plus vismab (V) improves outcomes for metastatic human epidermal growth factor 2–positive breast cancer and increases the pathologic complete response in the neoadjuvant setting (treatment given as a first step to shrink a tumor before the main treatment or surgery). + +The trial has four treatment arms, patients with centrally confirmed human epidermal growth factor 2-positive early breast cancer were randomly assigned to 1 year of adjuvant therapy with V, T, their sequence (T→V), or their combination (T+V) for 52 weeks. The primary end point was progression-free survival (PFS). + +As defined by [Cancer.gov](https://www.cancer.gov/publications/dictionaries/cancer-terms/def/progression-free-survival): “the length of time during and after the treatment of a disease, such as cancer, that a patient lives with the disease but it does not get worse. In a clinical trial, measuring the progression-free survival is one way to see how well a new treatment works”. + +A description of the challenge can be found [here](https://github.com/VIS-SIG/Wonderful-Wednesdays/tree/master/data/2024/2024-08-12). +A recording of the session can be found [here](https://psiweb.org/vod/item/psi-vissig-wonderful-wednesday-54-progression-free-survival). + + + +## Example 1. Augmented survival plots + +![](./images/augmented_survival_1.png) +[high resolution image](./images/augmented_survival_1.png) + +![](./images/augmented_survival_2.png) +[high resolution image](./images/augmented_survival_2.png) + + +[link to code](#example1 code) + + + + +## Example 2. Sorted lollipop plots + +![](./images/sorted_lollipop_1.png) +[high resolution image](./images/sorted_lollipop_1.png) + +![](./images/sorted_lollipop_2.png) +[high resolution image](./images/sorted_lollipop_2.png) + + +[link to code](#example2 code) + + + + + + +# Code + + + +## Example 1. Augmented survival plots + +Second version: + +```{r, echo = TRUE, eval=FALSE, python.reticulate = FALSE} +library(dplyr) +library(ggplot2) +library(broom) +library(survival) +library(patchwork) + +# load data +ADTTE <- read_csv('2024-08-12-psi-vissig-adtte.csv') %>% + mutate(EVNTDESCN=case_when( + EVNTDESC=="Death" ~ 1, + EVNTDESC=="PD" ~ 2, + EVNTDESC=="Lost to follow-up" ~ 3, + EVNTDESC=="No next-line therapy initiated" ~ 4, + EVNTDESC=="Ongoing on first next-line therapy" ~ 5, + EVNTDESC=="Second next-line therapy initiated" ~ 6)) + +# plot KM curve by treatment +d <- survfit(Surv(AVAL, CNSR == 0) ~ TRT01P , data = ADTTE ) %>% + tidy(fit) %>% + rename(TRT01P=strata) %>% + mutate(TRT01P=gsub('TRT01P=', '', TRT01P)) + +a <- ggplot(data=d, aes(x=time, y=estimate, group = TRT01P, colour = TRT01P)) + + # do not inherit legend from ggplot + geom_line(show.legend = T) + + geom_point(pch=ifelse(d$n.censor>0,"|","")) + + theme_bw() + + theme(legend.position="top", + legend.text = element_text(size=12)) + + guides(colour = guide_legend(title = "")) + + labs(y="", x="Time (days)") + + scale_color_brewer(palette="Set1")+ + annotate("text", x=-250, 0.35, label = "Progression Free Survival", hjust = 0, vjust = 1, angle=90) + + coord_cartesian(xlim = c(0, 2000), clip = 'off') +a + +b <- ggplot(data = ADTTE, aes(x=AVAL, y=reorder(EVNTDESC, -EVNTDESCN), colour=TRT01P)) + + geom_point(pch=ifelse(ADTTE$CNSR==1, "|", "x"), size=3, alpha=0.5) + + facet_grid(cols = vars(TRT01P)) + + theme_bw() + + theme(legend.position="none") + + labs(y="", x="Time (days)") + + scale_color_brewer(palette="Set1") +b + +a/b + + plot_layout(heights = c(2, 1)) + +ggsave("figures/survplot_v1_2024-09-07.png", width = 16, height = 9) +``` + + +[Back to blog](#example1) + + + + + +## Example 2. Sorted lollipop plots + +No code has been submitted. + + +[Back to blog](#example2) \ No newline at end of file diff --git a/_posts/2024-12-01-wonderful-wednesdays-september-2024/wonderful-wednesdays-september-2024.html b/_posts/2024-12-01-wonderful-wednesdays-september-2024/wonderful-wednesdays-september-2024.html new file mode 100644 index 0000000..357dc59 --- /dev/null +++ b/_posts/2024-12-01-wonderful-wednesdays-september-2024/wonderful-wednesdays-september-2024.html @@ -0,0 +1,1661 @@ + + + + +
+ + + + + + + + + + + + + + + +Visualise the pattern of events (disease progression, death, etc) on a summary data level or on a patient level data. Highlight differences between treatments or subgroups.
+The example simulated data set is based on large phase III clinical trials in Breast cancer such as ALTTO.
+The “trial” aims to determine if a combination of two therapies tablemab (T) plus vismab (V) improves outcomes for metastatic human epidermal growth factor 2–positive breast cancer and increases the pathologic complete response in the neoadjuvant setting (treatment given as a first step to shrink a tumor before the main treatment or surgery).
+The trial has four treatment arms, patients with centrally confirmed human epidermal growth factor 2-positive early breast cancer were randomly assigned to 1 year of adjuvant therapy with V, T, their sequence (T→V), or their combination (T+V) for 52 weeks. The primary end point was progression-free survival (PFS).
+As defined by Cancer.gov: “the length of time during and after the treatment of a disease, such as cancer, that a patient lives with the disease but it does not get worse. In a clinical trial, measuring the progression-free survival is one way to see how well a new treatment works”.
+A description of the challenge can be found here.
+A recording of the session can be found here.
Second version:
+library(dplyr)
+library(ggplot2)
+library(broom)
+library(survival)
+library(patchwork)
+
+# load data
+ADTTE <- read_csv('2024-08-12-psi-vissig-adtte.csv') %>%
+ mutate(EVNTDESCN=case_when(
+ EVNTDESC=="Death" ~ 1,
+ EVNTDESC=="PD" ~ 2,
+ EVNTDESC=="Lost to follow-up" ~ 3,
+ EVNTDESC=="No next-line therapy initiated" ~ 4,
+ EVNTDESC=="Ongoing on first next-line therapy" ~ 5,
+ EVNTDESC=="Second next-line therapy initiated" ~ 6))
+
+# plot KM curve by treatment
+d <- survfit(Surv(AVAL, CNSR == 0) ~ TRT01P , data = ADTTE ) %>%
+ tidy(fit) %>%
+ rename(TRT01P=strata) %>%
+ mutate(TRT01P=gsub('TRT01P=', '', TRT01P))
+
+a <- ggplot(data=d, aes(x=time, y=estimate, group = TRT01P, colour = TRT01P)) +
+ # do not inherit legend from ggplot
+ geom_line(show.legend = T) +
+ geom_point(pch=ifelse(d$n.censor>0,"|","")) +
+ theme_bw() +
+ theme(legend.position="top",
+ legend.text = element_text(size=12)) +
+ guides(colour = guide_legend(title = "")) +
+ labs(y="", x="Time (days)") +
+ scale_color_brewer(palette="Set1")+
+ annotate("text", x=-250, 0.35, label = "Progression Free Survival", hjust = 0, vjust = 1, angle=90) +
+ coord_cartesian(xlim = c(0, 2000), clip = 'off')
+a
+
+b <- ggplot(data = ADTTE, aes(x=AVAL, y=reorder(EVNTDESC, -EVNTDESCN), colour=TRT01P)) +
+ geom_point(pch=ifelse(ADTTE$CNSR==1, "|", "x"), size=3, alpha=0.5) +
+ facet_grid(cols = vars(TRT01P)) +
+ theme_bw() +
+ theme(legend.position="none") +
+ labs(y="", x="Time (days)") +
+ scale_color_brewer(palette="Set1")
+b
+
+a/b +
+ plot_layout(heights = c(2, 1))
+
+ggsave("figures/survplot_v1_2024-09-07.png", width = 16, height = 9)
+No code has been submitted.
+ +
`,e.githubCompareUpdatesUrl&&(t+=`View all changes to this article since it was first published.`),t+=` + If you see mistakes or want to suggest changes, please create an issue on GitHub.
+ `);const n=e.journal;return'undefined'!=typeof n&&'Distill'===n.title&&(t+=` +Diagrams and text are licensed under Creative Commons Attribution CC-BY 4.0 with the source available on GitHub, unless noted otherwise. The figures that have been reused from other sources don’t fall under this license and can be recognized by a note in their caption: “Figure from …”.
+ `),'undefined'!=typeof e.publishedDate&&(t+=` +For attribution in academic contexts, please cite this work as
+${e.concatenatedAuthors}, "${e.title}", Distill, ${e.publishedYear}.+
BibTeX citation
+${m(e)}+ `),t}var An=Math.sqrt,En=Math.atan2,Dn=Math.sin,Mn=Math.cos,On=Math.PI,Un=Math.abs,In=Math.pow,Nn=Math.LN10,jn=Math.log,Rn=Math.max,qn=Math.ceil,Fn=Math.floor,Pn=Math.round,Hn=Math.min;const zn=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'],Bn=['Jan.','Feb.','March','April','May','June','July','Aug.','Sept.','Oct.','Nov.','Dec.'],Wn=(e)=>10>e?'0'+e:e,Vn=function(e){const t=zn[e.getDay()].substring(0,3),n=Wn(e.getDate()),i=Bn[e.getMonth()].substring(0,3),a=e.getFullYear().toString(),d=e.getUTCHours().toString(),r=e.getUTCMinutes().toString(),o=e.getUTCSeconds().toString();return`${t}, ${n} ${i} ${a} ${d}:${r}:${o} Z`},$n=function(e){const t=Array.from(e).reduce((e,[t,n])=>Object.assign(e,{[t]:n}),{});return t},Jn=function(e){const t=new Map;for(var n in e)e.hasOwnProperty(n)&&t.set(n,e[n]);return t};class Qn{constructor(e){this.name=e.author,this.personalURL=e.authorURL,this.affiliation=e.affiliation,this.affiliationURL=e.affiliationURL,this.affiliations=e.affiliations||[]}get firstName(){const e=this.name.split(' ');return e.slice(0,e.length-1).join(' ')}get lastName(){const e=this.name.split(' ');return e[e.length-1]}}class Gn{constructor(){this.title='unnamed article',this.description='',this.authors=[],this.bibliography=new Map,this.bibliographyParsed=!1,this.citations=[],this.citationsCollected=!1,this.journal={},this.katex={},this.publishedDate=void 0}set url(e){this._url=e}get url(){if(this._url)return this._url;return this.distillPath&&this.journal.url?this.journal.url+'/'+this.distillPath:this.journal.url?this.journal.url:void 0}get githubUrl(){return this.githubPath?'https://github.com/'+this.githubPath:void 0}set previewURL(e){this._previewURL=e}get previewURL(){return this._previewURL?this._previewURL:this.url+'/thumbnail.jpg'}get publishedDateRFC(){return Vn(this.publishedDate)}get updatedDateRFC(){return Vn(this.updatedDate)}get publishedYear(){return this.publishedDate.getFullYear()}get publishedMonth(){return Bn[this.publishedDate.getMonth()]}get publishedDay(){return this.publishedDate.getDate()}get publishedMonthPadded(){return Wn(this.publishedDate.getMonth()+1)}get publishedDayPadded(){return Wn(this.publishedDate.getDate())}get publishedISODateOnly(){return this.publishedDate.toISOString().split('T')[0]}get volume(){const e=this.publishedYear-2015;if(1>e)throw new Error('Invalid publish date detected during computing volume');return e}get issue(){return this.publishedDate.getMonth()+1}get concatenatedAuthors(){if(2
tag. We found the following text: '+t);const n=document.createElement('span');n.innerHTML=e.nodeValue,e.parentNode.insertBefore(n,e),e.parentNode.removeChild(e)}}}}).observe(this,{childList:!0})}}var Ti='undefined'==typeof window?'undefined'==typeof global?'undefined'==typeof self?{}:self:global:window,_i=f(function(e,t){(function(e){function t(){this.months=['jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'],this.notKey=[',','{','}',' ','='],this.pos=0,this.input='',this.entries=[],this.currentEntry='',this.setInput=function(e){this.input=e},this.getEntries=function(){return this.entries},this.isWhitespace=function(e){return' '==e||'\r'==e||'\t'==e||'\n'==e},this.match=function(e,t){if((void 0==t||null==t)&&(t=!0),this.skipWhitespace(t),this.input.substring(this.pos,this.pos+e.length)==e)this.pos+=e.length;else throw'Token mismatch, expected '+e+', found '+this.input.substring(this.pos);this.skipWhitespace(t)},this.tryMatch=function(e,t){return(void 0==t||null==t)&&(t=!0),this.skipWhitespace(t),this.input.substring(this.pos,this.pos+e.length)==e},this.matchAt=function(){for(;this.input.length>this.pos&&'@'!=this.input[this.pos];)this.pos++;return!('@'!=this.input[this.pos])},this.skipWhitespace=function(e){for(;this.isWhitespace(this.input[this.pos]);)this.pos++;if('%'==this.input[this.pos]&&!0==e){for(;'\n'!=this.input[this.pos];)this.pos++;this.skipWhitespace(e)}},this.value_braces=function(){var e=0;this.match('{',!1);for(var t=this.pos,n=!1;;){if(!n)if('}'==this.input[this.pos]){if(0 =k&&(++x,i=k);if(d[x]instanceof n||d[T-1].greedy)continue;w=T-x,y=e.slice(i,k),v.index-=i}if(v){g&&(h=v[1].length);var S=v.index+h,v=v[0].slice(h),C=S+v.length,_=y.slice(0,S),L=y.slice(C),A=[x,w];_&&A.push(_);var E=new n(o,u?a.tokenize(v,u):v,b,v,f);A.push(E),L&&A.push(L),Array.prototype.splice.apply(d,A)}}}}}return d},hooks:{all:{},add:function(e,t){var n=a.hooks.all;n[e]=n[e]||[],n[e].push(t)},run:function(e,t){var n=a.hooks.all[e];if(n&&n.length)for(var d,r=0;d=n[r++];)d(t)}}},i=a.Token=function(e,t,n,i,a){this.type=e,this.content=t,this.alias=n,this.length=0|(i||'').length,this.greedy=!!a};if(i.stringify=function(e,t,n){if('string'==typeof e)return e;if('Array'===a.util.type(e))return e.map(function(n){return i.stringify(n,t,e)}).join('');var d={type:e.type,content:i.stringify(e.content,t,n),tag:'span',classes:['token',e.type],attributes:{},language:t,parent:n};if('comment'==d.type&&(d.attributes.spellcheck='true'),e.alias){var r='Array'===a.util.type(e.alias)?e.alias:[e.alias];Array.prototype.push.apply(d.classes,r)}a.hooks.run('wrap',d);var l=Object.keys(d.attributes).map(function(e){return e+'="'+(d.attributes[e]||'').replace(/"/g,'"')+'"'}).join(' ');return'<'+d.tag+' class="'+d.classes.join(' ')+'"'+(l?' '+l:'')+'>'+d.content+''+d.tag+'>'},!t.document)return t.addEventListener?(t.addEventListener('message',function(e){var n=JSON.parse(e.data),i=n.language,d=n.code,r=n.immediateClose;t.postMessage(a.highlight(d,a.languages[i],i)),r&&t.close()},!1),t.Prism):t.Prism;var d=document.currentScript||[].slice.call(document.getElementsByTagName('script')).pop();return d&&(a.filename=d.src,document.addEventListener&&!d.hasAttribute('data-manual')&&('loading'===document.readyState?document.addEventListener('DOMContentLoaded',a.highlightAll):window.requestAnimationFrame?window.requestAnimationFrame(a.highlightAll):window.setTimeout(a.highlightAll,16))),t.Prism}();e.exports&&(e.exports=n),'undefined'!=typeof Ti&&(Ti.Prism=n),n.languages.markup={comment://,prolog:/<\?[\w\W]+?\?>/,doctype://i,cdata://i,tag:{pattern:/<\/?(?!\d)[^\s>\/=$<]+(?:\s+[^\s>\/=]+(?:=(?:("|')(?:\\\1|\\?(?!\1)[\w\W])*\1|[^\s'">=]+))?)*\s*\/?>/i,inside:{tag:{pattern:/^<\/?[^\s>\/]+/i,inside:{punctuation:/^<\/?/,namespace:/^[^\s>\/:]+:/}},"attr-value":{pattern:/=(?:('|")[\w\W]*?(\1)|[^\s>]+)/i,inside:{punctuation:/[=>"']/}},punctuation:/\/?>/,"attr-name":{pattern:/[^\s>\/]+/,inside:{namespace:/^[^\s>\/:]+:/}}}},entity:/?[\da-z]{1,8};/i},n.hooks.add('wrap',function(e){'entity'===e.type&&(e.attributes.title=e.content.replace(/&/,'&'))}),n.languages.xml=n.languages.markup,n.languages.html=n.languages.markup,n.languages.mathml=n.languages.markup,n.languages.svg=n.languages.markup,n.languages.css={comment:/\/\*[\w\W]*?\*\//,atrule:{pattern:/@[\w-]+?.*?(;|(?=\s*\{))/i,inside:{rule:/@[\w-]+/}},url:/url\((?:(["'])(\\(?:\r\n|[\w\W])|(?!\1)[^\\\r\n])*\1|.*?)\)/i,selector:/[^\{\}\s][^\{\};]*?(?=\s*\{)/,string:{pattern:/("|')(\\(?:\r\n|[\w\W])|(?!\1)[^\\\r\n])*\1/,greedy:!0},property:/(\b|\B)[\w-]+(?=\s*:)/i,important:/\B!important\b/i,function:/[-a-z0-9]+(?=\()/i,punctuation:/[(){};:]/},n.languages.css.atrule.inside.rest=n.util.clone(n.languages.css),n.languages.markup&&(n.languages.insertBefore('markup','tag',{style:{pattern:/(
+
+
+ ${e.map(l).map((e)=>`
`)}}const Mi=`
+d-citation-list {
+ contain: layout style;
+}
+
+d-citation-list .references {
+ grid-column: text;
+}
+
+d-citation-list .references .title {
+ font-weight: 500;
+}
+`;class Oi extends HTMLElement{static get is(){return'd-citation-list'}connectedCallback(){this.hasAttribute('distill-prerendered')||(this.style.display='none')}set citations(e){x(this,e)}}var Ui=f(function(e){var t='undefined'==typeof window?'undefined'!=typeof WorkerGlobalScope&&self instanceof WorkerGlobalScope?self:{}:window,n=function(){var e=/\blang(?:uage)?-(\w+)\b/i,n=0,a=t.Prism={util:{encode:function(e){return e instanceof i?new i(e.type,a.util.encode(e.content),e.alias):'Array'===a.util.type(e)?e.map(a.util.encode):e.replace(/&/g,'&').replace(/e.length)break tokenloop;if(!(y instanceof n)){c.lastIndex=0;var v=c.exec(y),w=1;if(!v&&f&&x!=d.length-1){if(c.lastIndex=i,v=c.exec(e),!v)break;for(var S=v.index+(g?v[1].length:0),C=v.index+v[0].length,T=x,k=i,p=d.length;T
+
+`);class Ni extends ei(Ii(HTMLElement)){renderContent(){if(this.languageName=this.getAttribute('language'),!this.languageName)return void console.warn('You need to provide a language attribute to your
Footnotes
+
+`,!1);class Fi extends qi(HTMLElement){connectedCallback(){super.connectedCallback(),this.list=this.root.querySelector('ol'),this.root.style.display='none'}set footnotes(e){if(this.list.innerHTML='',e.length){this.root.style.display='';for(const t of e){const e=document.createElement('li');e.id=t.id+'-listing',e.innerHTML=t.innerHTML;const n=document.createElement('a');n.setAttribute('class','footnote-backlink'),n.textContent='[\u21A9]',n.href='#'+t.id,e.appendChild(n),this.list.appendChild(e)}}else this.root.style.display='none'}}const Pi=ti('d-hover-box',`
+
+
+