In rbcavanaugh/flex.poster: Conference posters using RMarkdown and Flexdashboard

library(tidyverse)
library(here)
library(patchwork)
library(shiny)
library(flex.poster)

```{css echo = FALSE}

/ CSS left here for easy editing. Note, Rstudio will make it look like things are tagged out but only slask-asterisk will tag out in this chunk /

/ font to be imported if using non standard fonts. See here: https://fonts.google.com/. Select font, copy and paste link. / @import url('https://fonts.googleapis.com/css2?family=Merriweather&family=Open+Sans&display=swap');

/ Choose font for poster (though it can be specified in any section specifically) / / CHoose background-color of flexdashboard / / choose base font size (smallest font size) - this may take some fussing to get right / body{ font-family: "Open Sans"; background-color: #C8C9C7; font-size: 14px; }

/ title /

poster_title {

color:white; text-align: center; font-weight: bold; font-family: "Merriweather"; }

/ authors /

poster_authors {

color:white; text-align:center; }

/ affiliations text /

affiliations {

color:white; text-align:center; font-style:italic; }

/ This poorly labeled chunk will choose the background color of the center title block and any other blocks given this class / .bgred { background-color:#003594; }

/ padding to the left of lists to save some space / ol, ul { padding-left: 1.2em; }

/ CSS to help with general formatting and poster rendering /

/ gets rid of navbar and some scroll bars/ .navbar { visibility: hidden } body { padding-top:10px; overflow: hidden; }

/ decreasing spacing between title images and center block/

/ padding around logos / .sideimage { padding: 10px; }

/ no scrollbars! / ::-webkit-scrollbar { width: 0 !important } ::-webkit-scrollbar { display: none; }

/ weird flexdashboard thing with titles I didnt like / .chart-shim { position: absolute; left: 8px; top: 0px; right: 8px; bottom: 8px; }

}

<!-- This header row is the top row of the poster -->

## Header row {data-height=15}

<!-- Left image or logo -->

### {.sideimage data-width=100}

![](resources/picture2.png)
<!-- Center title block. Lots of divs because centering vertically is something I don't understand yet -->

### {.bgred data-width=600}

```r

div(
  div(
    htmltools::HTML(
      title_text(),
      authors_text(),
      affiliations_text()
      )
    ), style = "
   width:100%;
   position: absolute;
   top: 50%;
   transform: translateY(-50%);
   "
  )

{.bgred .sideimage data-width=100}

Body row {data-height=75}

Introduction {data-width=400}

Motivation

1. Few studies have evaluated the translation and implementation of evidence-based aphasia interventions to clinical practice.
2. Dosage may be especially challenging to translate from clinical research to clinical practice settings.
3. Dosage may be reduced in clinical practice due to pragmatic constraints on access to care.
4. A dosage mismatch between research and clinical practice threatens the external validity of treatment research & risks attenuating intervention effectiveness

Research Questions

1. What is the typical treatment dose in an episode of care in outpatient rehabilitation clinical settings?
2. What is the typical treatment dose in contemporary clinical aphasia studies?
3. Is the dosage in research well-calibrated to current outpatient clinical practice?

Comparing dosage between clinical practice and research {data-width=700}

Data and Methods {data-width=400}

Clinical Dosage

• Clinical treatment dosage estimated via utilization-billing data extracted from the Centers for Rehabilitation Services (CRS).
• Inclusion: Patients receiving an evaluation (CPT: 92523, 96105) and treatment (92507) from an SLP from 2014-2019 with an ICD 9/10 diagnosis of aphasia and stroke.

Research Dosage

• Scoping review of prospective, behavioral treatment studies from 2009-2019
• Extracted dosage variables and estimated additional non-reported variables if possible
• Reliability (% agreement) for article inclusion/exclusion and data extraction >90%

Analysis

• Permutation tests and descriptive statistics were utilized to compare dosage variables

Footer row {data-height=30}

{data-width=26}

# may need to modify this file path to read in stats.csv. 
df <- read_csv(here("resources", "stats.csv"))
colnames(df) = c("Variable", "Median difference", "p-value")
kableExtra::kbl(df) %>%
  kableExtra::kable_styling(bootstrap_options = c("striped", "condensed"))

Conclusion {data-width=30}

::: {.padtop style="padding-top:10px;"} - Meaningful dosage gap, especially total hours & weekly intensity. - Thre threat to thernal validity of treatment research; potential for an attenuation of intervention effectiveness in outpatient settings. - Future research should take steps to facilitate intervention implementation, particularly with regard to dosage. - Advocacy and alternative delivery methods are necessary to support treatments with higher dosage. :::

References & Acknowledgements {.noov data-width=28}

::: {.padtop2 style="padding:1px 1px; margin: 0; font-size: .7em; overflow:hidden"} - Baker, E. (2012). Optimal intervention intensity in speech-language pathology: Discoveries, challenges, and unchartered territories. International Journal of Speech-Language Pathology, 14(5), 478–485. - Harvey, S. R., Carragher, M., Dickey, M. W., Pierce, J. E., & Rose, M. L. (2020). Treatment dose in post-stroke aphasia: A systematic scoping review. Neuropsychological Rehabilitation, 1–32. - Konietschke, F., & Pauly, M. (2014). Bootstrapping and permuting paired t-test type statistics. Statistics and Computing, 24(3), 283–296. - Simmons-Mackie, N. (2018). Aphasia in North America. Aphasia Access.