Package description {data-orientation=rows}

Row

KPI - 1

cran_df %>%
  summarise(count = sum(count, na.rm = TRUE)) %>%
  pull(count) %>%
  flexdashboard::valueBox(
    caption = "Total CRAN downloads over period",
    color = "primary"
  )

KPI - 2

cran_df %>%
  summarise(count = mean(count, na.rm = TRUE)) %>%
  pull(count) %>%
  round(digits = 1) %>%
  flexdashboard::valueBox(
    caption = "Daily CRAN downloads",
    color = "success"
  )

KPI - 3

fnc_str %>%
  length() %>%
  flexdashboard::valueBox(
    caption = "Total number of functions",
    color = "info"
  )

Row

KPI - 4

pkg_deps %>%
  length() %>%
  flexdashboard::valueBox(
    caption = "Package dependencies",
    color = "warning"
  )

KPI - 5

gh_opr %>%
  flexdashboard::valueBox(
    caption = "Open pull requests",
    color = "danger"
  )

KPI - 6

gh_ois %>%
  flexdashboard::valueBox(
    caption = "Open issues",
    color = "#224e87"
  )

Row

Summary

# Package description
desc <- utils::packageDescription(pkg = pkgname)

dplyr::tibble(
  Field = names(desc),
  Values = unlist(desc)
) %>%
  DT::datatable(
    extensions = c('Buttons',
                   'FixedColumns'),
    options = list(dom = 'lfrtip',
                   fixedColumns = list(leftColumns = 2),
                   scrollX = TRUE,
                   lengthMenu = list(c(-1, 10,25,50),
                                     c("All", 10,25,50))))


Try the devtoolbox package in your browser

Any scripts or data that you put into this service are public.

devtoolbox documentation built on July 8, 2022, 5:08 p.m.