It is also possible to push these Tiles into a Shiny app, using the htmlOutput and renderUI.
You can either assign objects outside the Shiny call (in the below example b1 and d1 which includes b1 and b2), or you can embed buttons inside the Shiny app to display values from there.
(In order to make this work, uncomment the last line in your console. )
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(htmltools)
library(TileMaker)
b1 <- solo_box(value = 3.57, txt = "Times apple eaten", icon = "apple")
b2 <- solo_box(value = 13.7, txt = "Nutritional value", size = "lg")
d1 <- div_maker(subtitle = "Quantativity factors", textModifier = "h2", b1, b2)
# ## Shinydashboard Test --------------
# ## app.R ##
# library(shinydashboard)
# library(shiny)
#
# ui <- dashboardPage(
# dashboardHeader(title = "Basic dashboard"),
# dashboardSidebar(
# sliderInput("slider", "Number of observations:", 1, 100, 50)),
# dashboardBody(
# # Boxes need to be put in a row (or column)
# fluidRow(
# box(
# b1, d1, htmlOutput("plot1")
# )
# )
# )
# )
#
# server <- function(input, output) {
# output$plot1 <- renderUI({
# div_maker(subtitle = "boom", textModifier = "h2", solo_box(value = input$slider, txt = "Times apple eaten", icon = "apple"))
# })
# }
# shinyApp(ui, server)