tests/testthat/_snaps/mod_scenarios_output.md

In jesse-smith/covidscreen: COVID-19 Asymtomatic Screening Strategy Assessment

scenarios output server plots have not changed

Code
  risk_json$x$hc_opts$series
Output
  [[1]]
  [[1]]$group
  [1] "group"

  [[1]]$data
  [[1]]$data[[1]]
  [[1]]$data[[1]]$n
  [1] 67

  [[1]]$data[[1]]$color
  [1] "#e57373"

  [[1]]$data[[1]]$pct
  [1] "3"

  [[1]]$data[[1]]$lbl
  [1] "people"

  [[1]]$data[[1]]$i
  [1] 1

  [[1]]$data[[1]]$y
  [1] 67

  [[1]]$data[[1]]$name
  [1] "Undetected"


  [[1]]$data[[2]]
  [[1]]$data[[2]]$n
  [1] 12

  [[1]]$data[[2]]$color
  [1] "#90caf9"

  [[1]]$data[[2]]$pct
  [1] "1"

  [[1]]$data[[2]]$lbl
  [1] "people"

  [[1]]$data[[2]]$i
  [1] 2

  [[1]]$data[[2]]$y
  [1] 12

  [[1]]$data[[2]]$name
  [1] "Detected w/ Testing"


  [[1]]$data[[3]]
  [[1]]$data[[3]]$n
  [1] 36

  [[1]]$data[[3]]$color
  [1] "#b0bec5"

  [[1]]$data[[3]]$pct
  [1] "2"

  [[1]]$data[[3]]$lbl
  [1] "people"

  [[1]]$data[[3]]$i
  [1] 3

  [[1]]$data[[3]]$y
  [1] 36

  [[1]]$data[[3]]$name
  [1] "Detected w/ Symptoms"


  [[1]]$data[[4]]
  [[1]]$data[[4]]$n
  [1] 1886

  [[1]]$data[[4]]$color
  [1] "#e0e0e0"

  [[1]]$data[[4]]$pct
  [1] "94"

  [[1]]$data[[4]]$lbl
  [1] "people"

  [[1]]$data[[4]]$i
  [1] 4

  [[1]]$data[[4]]$y
  [1] 1886

  [[1]]$data[[4]]$name
  [1] "Not a Case"



  [[1]]$type
  [1] "item"

  [[1]]$layout
  [1] "horizontal"

  [[1]]$itemPadding
  [1] 0

Code
  benefit_json$x$hc_opts$series
Output
  [[1]]
  [[1]]$name
  [1] "Detected"

  [[1]]$data
  [[1]]$data[[1]]
  [[1]]$data[[1]]$n
  [1] 11.99571

  [[1]]$data[[1]]$color
  [1] "#64b5f6"

  [[1]]$data[[1]]$pct
  [1] 15.25285

  [[1]]$data[[1]]$pct_lbl
  [1] "15%"

  [[1]]$data[[1]]$lbl
  [1] "15%Detected"

  [[1]]$data[[1]]$y
  [1] 11.99571

  [[1]]$data[[1]]$name
  [1] "Detected"



  [[1]]$type
  [1] "column"

  [[1]]$showInLegend
  [1] FALSE

  [[1]]$stacking
  [1] "normal"

  [[1]]$dataLabels
  [[1]]$dataLabels$enabled
  [1] TRUE

  [[1]]$dataLabels$format
  [1] "{point.lbl}"

  [[1]]$dataLabels$style
  [[1]]$dataLabels$style$textOutline
  [1] "none"




  [[2]]
  [[2]]$name
  [1] "Undetected"

  [[2]]$data
  [[2]]$data[[1]]
  [[2]]$data[[1]]$n
  [1] 66.65

  [[2]]$data[[1]]$color
  [1] "#ef9a9a"

  [[2]]$data[[1]]$pct
  [1] 84.74715

  [[2]]$data[[1]]$pct_lbl
  [1] "85%"

  [[2]]$data[[1]]$lbl
  [1] "85%Undetected"

  [[2]]$data[[1]]$y
  [1] 66.65

  [[2]]$data[[1]]$name
  [1] "Undetected"



  [[2]]$type
  [1] "column"

  [[2]]$showInLegend
  [1] FALSE

  [[2]]$stacking
  [1] "normal"

  [[2]]$dataLabels
  [[2]]$dataLabels$enabled
  [1] TRUE

  [[2]]$dataLabels$format
  [1] "{point.lbl}"

  [[2]]$dataLabels$style
  [[2]]$dataLabels$style$textOutline
  [1] "none"

Code
  vac_json$x$hc_opts$series
Output
  [[1]]
  [[1]]$group
  [1] "group"

  [[1]]$data
  [[1]]$data[[1]]
  [[1]]$data[[1]]$benefit
  [1] 2.447555

  [[1]]$data[[1]]$color
  [1] "#90caf9"

  [[1]]$data[[1]]$x
  [1] 0

  [[1]]$data[[1]]$y
  [1] 2.447555

  [[1]]$data[[1]]$name
  [1] "Vaccinated"


  [[1]]$data[[2]]
  [[1]]$data[[2]]$benefit
  [1] 4.145131

  [[1]]$data[[2]]$color
  [1] "#90a4ae"

  [[1]]$data[[2]]$x
  [1] 1

  [[1]]$data[[2]]$y
  [1] 4.145131

  [[1]]$data[[2]]$name
  [1] "Unvaccinated"



  [[1]]$type
  [1] "column"

  [[1]]$showInLegend
  [1] FALSE

  [[1]]$dataLabels
  [[1]]$dataLabels$enabled
  [1] TRUE

  [[1]]$dataLabels$format
  [1] "<span style='color: {point.color}'>{point.y:.1f}%</span>"

  [[1]]$dataLabels$style
  [[1]]$dataLabels$style$textOutline
  [1] "none"

scenarios output server text has not changed

Code
  output$risk_expl
Output
  $html
  <p>
    About
    <b style="color: #29434e">115</b>
    <b style="color: #29434e">people</b>
    in the organization 
    are
     expected to bring COVID-19 with them each day.
    <b style="color: #e57373">67</b>
    of these cases 
    are
     expected to remain
    <b style="color: #e57373; margin-right: -4px">undetected</b>
    ; that's roughly
    <b style="color: #e57373">3%</b>
    of the organization.
  </p>
  <p>
    <b style="color: #90a4ae">36</b>
    <b style="color: #90a4ae">cases</b>
    are
    expected to be detected due to
    <b style="color: #90a4ae; margin-right: -4px">symptoms</b>
    ; another
    <b style="color: #64b5f6">12</b>
    <b style="color: #64b5f6">cases</b>
    are
    expected to be detected via regular
    <b style="color: #64b5f6; margin-right: -4px">testing</b>
    .
  </p>

  $deps
  list()

Code
  output$benefit_expl
Output
  $html
  <p>
    Asymptomatic testing is expected to reduce undetected cases by
    <b style="color: #64b5f6; margin-right: -4px">15%</b>
    , 
    <b style="color: #64b5f6">detecting</b>
    an additional
    <b style="color: #64b5f6">12</b>
    <b style="color: #64b5f6; margin-right: -4px">cases</b>
    .
  </p>
  <p>
    This leaves an expected
    <b style="color: #e57373">85%</b>
    of asymptomatic cases
    <b style="color: #e57373; margin-right: -4px">undetected</b>
    .
     Increase testing frequency to reduce this number further.
  </p>

  $deps
  list()

Code
  output$vac_expl
Output
  $html
  <p>
    About
    <b style="color: #78909c">4.1%</b>
    of tests in
    <b style="color: #78909c">unvaccinated</b>
    people will detect
     a case, compared to about
    <b style="color: #64b5f6">2.4%</b>
    of tests in
    <b style="color: #64b5f6">vaccinated</b>
    people.
  </p>
  <p>
    This means that testing
    <b style="color: #78909c">unvaccinated</b>
    people is about
    <b style="color: #78909c">1.7x</b>
    more cost-effective than testing
    <b style="color: #64b5f6">vaccinated</b>
    people in
     this scenario.
  </p>

  $deps
  list()

jesse-smith/covidscreen documentation built on June 15, 2022, 7:46 p.m.