valueBox arguments inconsistent

[zx8754]

Both flexdashboard and shinydashboard have valueBox function, with similar arguments, in one we need to use icon = "fa-calendar" in the other icon = icon("calendar"), one has caption the other has subtitle, maybe harmonise them?

flexdashboard::valueBox(value, caption = NULL, icon = NULL, color = NULL, href = NULL)
shinydashboard::valueBox(value, subtitle, icon = NULL, color = "aqua", width = 4, href = NULL)

Related SO post
See example:

flexdashboard test.rmd

---
title: "My Icon"
output: 
  flexdashboard::flex_dashboard
---

```{r}
library(flexdashboard)
valueBox(42, caption = "my caption", icon = "fa-calendar")
```

Output:

shinydashboard

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    valueBox(42, "My Icon", icon = icon("calendar")),
  )
)

server <- function(input, output) { }

shinyApp(ui, server)

Output: