In wpa: Tools for Analysing and Visualising Viva Insights Data

Notes

Column {data-width=20%}

Report Notes

flexdashboard::valueBox(
  value = "",
  color = rgb2hex(130, 130, 130)
  )

Report Notes {.no-title}

end_time <- Sys.time()


text1 <- paste("This report was generated on ", format(Sys.time(), "%b %d %Y"), ".") 

text2 <- my_sq_data %>% check_query(return = "text", validation = TRUE) 

text3 <- paste("Total Runtime was: ", difftime(end_time, start_time, units = "mins") %>% round(2), "minutes.")

paste(text1, text2, text3, sep = "\n\n" )%>% md2html() 

Column {data-width=80%}

Glossary

flexdashboard::valueBox(
  value = "",
  color = rgb2hex(130, 130, 130)
  )

Glossary {.no-title}

gloss_tb %>%
  create_dt(
    freeze = 0
  )

wpa documentation built on Aug. 21, 2023, 5:11 p.m.