## ----include = FALSE----------------------------------------------------------
library(bslib)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSdoACADwBaK7u6LlhqAHM47EVaulapNRwVgC8VkJgAEJEAB5WAIKGAJIRuD6O8s76MgAScFAycIzsAmkQvk4uBgDKtIX0LCVlFZlVMtEyHOm+pB6cACScpKxB3mCKnVYgVg0EANbujEQmEDJ2xNREjIhW7txEQwDuvOQAvhGl3VYAZqZ1WESH3uW+r1AE-iSRJqSkJGN-dzuIIAfUUMVS4TAABUiECglZohCwJcXq8rO9PhBvr9-hFGHAYEQAG5wMGxSERLCEknBJGQgjUeScUJQ+juOxyCCeRgXZrojEfWhfH5-CBjAlDLZk8GUsDUqUExEUvBWRnM1kRdl2TgmAgEOCcTh8q6+THC7GivFgEyoOTkcnI3BQgCqdqg5GVTrVTKNmvGHNQjFoMAkFyuqPRTCaV3BzwFfgCCLC5BipAA8j9UD8xuCQUMPXATWjXhEkTMiJ1UqarHV-TBWLK8DWNkzUJwGMmrNCsC6AKL89GMg5Qehdnv9wevVCbDNZnMRGdEUjhkuqXyqVQiThFUmMWwOa4rIX-PjZ0jO5akc-OndGi0CKbpK-n-pL0gHqwE1ZFYzL9ggFcBIAI7sAAhGePz9A24L9K2aA7ioVzvuwjAQFsMDsAATAADDhAjrlYpxbi8L5QXmBaevYX4UIUjDQnAaYAVclHBNRtDXFY7CQaQ0GNrEcFENQbaIY+ETwe2cAyBEVhwNQO5QseQkiVJETIfI5BjAAsqwFZxLQxqqqxhHESIz70DujCkn2pJkNxECvoCwIyrEzqASWtr2nASJjDBKrOuaJD+k5QSrr4pkQOZlnWbZpD2a+BJEqSjpuVcnmFj5ER+d6gXlGE+I0qSYVESRvhEBZu5wDZFBxTx-SSn8BIpU+HnuuQmVgNlkK5f6DXSsVEVRZV1V2XV6UOuCqWtV5mUlr4WX8U6NY9flNptUWzZzVYRCoFiLJhHQQzxgmiaBMEYTcFhYwAHJwIcp2haqlTZAAMqOcnsAAjLevSkGY-pBiGYYopGJ2Uf9q1cjy1Zbb4nBCXUeQFEUrITgONa+IcdSkNwrIACw1oRG7pINpEVVZVWxfFUHZf0xIGZ2cBTUOykIVJn4cVxdW0xJolQrzqlgLJ8nBBESnCWz0lgFc9MdmObEOJz1O8bTsuM2JYBq-LMlyQpES8DIhSRdLJbwEaHgK1YqAaV4EQ6XptaGc6AsyM6ERQKskJa0ERNWDwjzXcuHG0AQHoWuwZucBbzrDKg51QocLAQHw7iQjIJjMFirKfSZqjnJFEBSPw8ToOwli3pVjACGApwALpAA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# library(shiny)
# library(shinydashboard)
# library(shinydashboardPlus)
# ui <- dashboardPage(
# title = "Box API",
# dashboardHeader(),
# dashboardSidebar(),
# dashboardBody(
# tags$style("body { background-color: ghostwhite}"),
# fluidRow(
# actionButton("toggle_box", "Toggle Box"),
# actionButton("remove_box", "Remove Box", class = "bg-danger"),
# actionButton("restore_box", "Restore Box", class = "bg-success"),
# actionButton("update_box", "Update Box", class = "bg-primary")
# ),
# br(),
# box(
# title = textOutput("box_state"),
# "Box body",
# id = "mybox",
# collapsible = TRUE,
# closable = TRUE,
# plotOutput("plot")
# )
# )
# )
#
# server <- function(input, output, session) {
# output$plot <- renderPlot({
# req(!input$mybox$collapsed)
# plot(rnorm(200))
# })
#
# output$box_state <- renderText({
# state <- if (input$mybox$collapsed) "collapsed" else "uncollapsed"
# paste("My box is", state)
# })
#
# observeEvent(input$toggle_box, {
# updateBox("mybox", action = "toggle")
# })
#
# observeEvent(input$remove_box, {
# updateBox("mybox", action = "remove")
# })
#
# observeEvent(input$restore_box, {
# updateBox("mybox", action = "restore")
# })
#
# observeEvent(input$update_box, {
# updateBox(
# "mybox",
# action = "update",
# options = list(
# title = h2("New title", dashboardLabel(1, status = "primary")),
# status = "danger",
# solidHeader = TRUE,
# width = 4
# )
# )
# })
#
# observeEvent(input$mybox$visible, {
# collapsed <- if (input$mybox$collapsed) "collapsed" else "uncollapsed"
# visible <- if (input$mybox$visible) "visible" else "hidden"
# message <- paste("My box is", collapsed, "and", visible)
# showNotification(message, type = "warning", duration = 1)
# })
# }
#
# shinyApp(ui, server)
## ----boxTools, echo=FALSE, fig.cap='Box Tools. DFrom left to right: boxLabel, boxDropdown, collapsible and closable buttons, boxSidebar trigger.', fig.align = 'center', out.width='50%'----
knitr::include_graphics("figures/boxTools.png")
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJyduOCgZOEZ3T3lvfRkACQioxnYBXEdQxRlWWK8fAwAhIjzg0JyiAA8KytDSWlJqOFihMABVVDlyB0Vqh05aKPoWdqyQ+qcCaiJOKHoW2IAVLA6AUQmppwB3YdJuWIBGACYt7fDaf25SNrAAVgAGR9Rq8eypziI6ZNTo2IAYtYADIAZU2H3qxGo1DQQ0WrQ8qw25ymUAIjRIxRMpFIJHsYBM3Sg5HGDnayyI-n8SwIykGwzgo0Y7UykMqQxGLFi-VBjOZdW2DmGdxgrDpBk5TLGeHZ9T2MgOsRO91R204P2iAEkIKgcYKheSwER6Jx3pNDUaAHImGD0f5EABmDhNnGiADcSbQSJxEObLU4YHxYo81UKYFABh4js9Q3Kpp7TIiHE9HvHQqohWyLfVULNSAB5HF60gEmS0TikYxEUisuWZjNqqXMgrxIoyPlc9IN7NON2Md3-DyOkwQDHeiDsPgl3Au4s42duzhDEgCBwgSGuj1BVCMPil6c4gAkYolMmbLAEFhzRHnpCP5cr1duAB4ALQORgUNLP9gbnNhBWpaMBARCMDAU66serpXpCAC+16VFuA5wOsg5kJBJZHkSPRwLO-5TDhJJwKU1SdtK6TtKeygXiyYANk4CHZHBIgCGAcEALpAA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# shinyApp(
# ui = dashboardPage(
# header = dashboardHeader(),
# body = dashboardBody(
# box(
# title = "Update box sidebar",
# closable = TRUE,
# width = 12,
# height = "500px",
# solidHeader = FALSE,
# collapsible = TRUE,
# actionButton("update", "Toggle card sidebar"),
# sidebar = boxSidebar(
# id = "mycardsidebar",
# width = 25,
# sliderInput(
# "obs",
# "Number of observations:",
# min = 0,
# max = 1000,
# value = 500
# )
# ),
# plotOutput("distPlot")
# )
# ),
# sidebar = dashboardSidebar()
# ),
# server = function(input, output, session) {
# observe(print(input$mycardsidebar))
#
# output$distPlot <- renderPlot({
# hist(rnorm(input$obs))
# })
#
# observeEvent(input$update, {
# updateBoxSidebar("mycardsidebar")
# })
# }
# )
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJycvHwMACTgoGThGdgFcR1Dw-RkAZVo4+hZE5JDU+W90gCEiGQ4U0IdFAA9gmprSWlJqOHcHITAAYWoiTih6dodyuocAd1buT0YiVBkiCYhugqbQgn7B4Y6PABUsAFUAUTX1yezSGY8ARgAmM-XOUihSM07uiZYIPn9V6qanCIdBk0Vi8U6ADFrAAZDKnAE1YjUahoTgMEb7I4IwrrGRzBZLCAAWQoJk69QAIgTFstGucnFSaUSAJLkGD2Xp0AgAawc8FWDmyHzA+PmtIgbLgMEFtGIIQ8cpInO4MUYpG6AiSiKaTPFrPZnNa0ocd0F3EYcAAZiLuKRSKhOIgAPTOibujD+IhEfztDDEGDOzWPc5iwnLSm0ABu2Xi+R1NT14clhu6xpgDgAzLL5Z0lRBOVdNaoGdrcU1usTWLUiHVujqS6FG2WnJx4lGIR4rSYIAQWsq+KgTKRcA4iMOh6QBA4QACiPQ24wO8cO2R2IPhwASMMSqUwUez8ut7hLAByRBaVrlr1oyu60RRREFMhMzH7CocN1HpFYqF2XTAeBOEGQJNQBABfRtwJEAQwHAgBdIA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# shinyApp(
# ui = dashboardPage(
# dashboardHeader(),
# dashboardSidebar(),
# dashboardBody(
# box(
# title = "Closable Box with dropdown",
# closable = TRUE,
# width = 12,
# status = "warning",
# solidHeader = FALSE,
# collapsible = TRUE,
# dropdownMenu = boxDropdown(
# boxDropdownItem("Click me", id = "dropdownItem", icon = icon("heart")),
# boxDropdownItem("item 2", href = "https://www.google.com/"),
# dropdownDivider(),
# boxDropdownItem("item 3", icon = icon("th"))
# ),
# "My box"
# )
# )
# ),
# server = function(input, output) {
# observeEvent(input$dropdownItem, {
# showNotification("Hello", duration = 1, type = "message")
# })
# }
# )
## ----user-description, eval=FALSE---------------------------------------------
# userDescription(
# title = "Nadia Carmichael",
# subtitle = "lead Developer",
# type = 2,
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user7-128x128.jpg",
# )
## ----userBox, echo=FALSE, fig.cap='Some userBox components', fig.align = 'center', out.width='100%'----
knitr::include_graphics("figures/userBox.png")
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJycvHwMACTgoGThGdgFcR1Dw-RkAZVo4+hZE5JDU+W90gCEiGQ4U0OdOePKAD2CamtJaUmo4d1r4gBE4TgJGWlQ2kmaW1vbO7qEwADlY2igHAGEWGFoCbig4ajmCyZrOE3o2jq6POc7Yh36ANz2iVHiD6qPSVhfugCZDo6ctBgAUuDjm3FIpFQnEQAHpYbFNqJyBhaERYaRuHB4JxYdYZEiADIAFQAorCZLROKRYUD-LCzPEAOwAWgAjD8ABwNDmcjAAK1Q-jehUmSXex1IUFIZlmYAA7iwIHxhXgJaFoPdDLRqNROBMAdk5agddQAJLkGAigFOTXa3WcC3Yg02zoAM1IcqdMAcbOtNqcxGoREYcv8jDgFH9AeG-gh3TZAAZ1TVxaKjnbTY7LS6Ae7PVcwN6HD9ozagyG5RGZGXDcQQh4tuM5lAIP5OiyZER5RA5mmA05Y-HC0mAKRzFOhVQA-tHN1EIjkUOF4lYhzzxfxBxYiMAQgn6ac06n-yc5xmhcZjEaB6P-zqjEey-XJggBDGEHYfFQJlIuAcRC-j+pACA4IDvEQ9APo8pKPGQX4QMBAAkJq6t6-7gYeDi0G6DgIchqHmpa7geD8oGYQCPDdgAshUUDULmLQwHR1C9Mswb+PYYDWA4zFyPsYDHmK6oAL7vCJFjppB0FwLBFCkPhv4oaa6FgeqVHyvMi44Vs0pop+k6cKgwxkG6XEAJqAQ4BB0AQADWcAyABISEQ48wAA0OKOnAHNhiFKYR3qzpMnzfIWiqMMqba1qkJjMB+CbqkJDgSSkYkQAIYAiQAukAA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# shinyApp(
# ui = dashboardPage(
# dashboardHeader(),
# dashboardSidebar(),
# dashboardBody(
# userBox(
# title = userDescription(
# title = "Nadia Carmichael",
# subtitle = "lead Developer",
# type = 2,
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user7-128x128.jpg",
# ),
# status = "warning",
# navPills(
# id = "pillItem",
# navPillsItem(
# left = "Item 1",
# color = "green",
# right = 10
# ),
# navPillsItem(
# left = "Item 2",
# color = "red",
# icon = icon("angle-down"),
# right = "10%"
# )
# ),
# footer = "The footer here!"
# )
# ),
# title = "userBox"
# ),
# server = function(input, output) {
# observeEvent(input$pillItem, {
# if (input$pillItem == 2) {
# showModal(
# modalDialog("A modal")
# )
# }
# })
#
# observeEvent(input$pillItem, {
# showNotification(
# sprintf("You clicked on pill N° %s", input$pillItem),
# type = "warning",
# duration = 1
# )
# })
# }
# )
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJycvHwMACTgoGThGdgFcR1Dw-RkAZVo4+hZE5JDU+W90gCEiGQ4U0IcoAlJaElKTUlISezATVDlyAH1FAA8hPAdhgFVuqHJhpOrQs3jygeCamuz3Uc7OeMHhgtXQhtJqOA2FxgAROE4CRlpUBva5g6OTjeGAOVjaKAcAYRYMFoBG4UDg1D2z1WnBM9Fepw8wxOsQcVwAbuCiKh4pDCgcnKRWNiNgAmfb4py0GABBGbbitVCcRAAemZsSBonIGEazNI3Dg8E4zOsMg5ABkACoAUWZMlonFIzKp-mZ5wA7ABaACMJIAHAMdbqMAArVD+XEU2Z46GkKZmd5gVB3alsC34-zMOUUUgbCVYMZS8kHXIEADWHqIJggMgddH89I19FMcDdwaIAwlRCI1CyAC9acMBhC8FCnMMMkR4A5yAMffzGHAAISp1YAMyz5EYDol-Ic7aInYc9abwyhqhqVpq8Id5yWo8Kk4c20YGK7HlbUfqjQg7D4qBauAckdI+9IAgcIDmRHoy4xUoxZF3EFPABIuj04P104fL9anO+pjgJYVnxYZzl2Es-1COpHhCRFOkmaZIIpLFYM4DY6AVECKWnDxziuG47gebdsIpataGOAswAAKRiEI52QsinBhOEKLeeD0UxbFGBbHCiVpLUgzIqkaQdekTyZVl2T4aguR5PkBWuYVRT4SUZTlBUlRgFVzgAZm1PUDT1E0zV41ZFwpBU7XQ+CGxkMyahDcNGEjaMNg+MYxTFISDgAd2yPkNgAFlLBxx3MuYAF9wsikQBDASKAF0gA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# shinyApp(
# ui = dashboardPage(
# dashboardHeader(),
# dashboardSidebar(),
# dashboardBody(
# actionButton("update_box", "Update"),
# userBox(
# id = "userbox",
# title = userDescription(
# title = "Nadia Carmichael",
# subtitle = "lead Developer",
# type = 2,
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user7-128x128.jpg",
# ),
# status = "primary",
# gradient = TRUE,
# background = "light-blue",
# boxToolSize = "xl",
# "Some text here!",
# footer = "The footer here!"
# )
# ),
# title = "userBox"
# ),
# server = function(input, output) {
# observeEvent(input$update_box, {
# updateBox(
# "userbox",
# action = "update",
# options = list(
# title = userDescription(
# title = "Jean Box",
# subtitle = "Developer",
# type = 1,
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user3-128x128.jpg",
# ),
# status = "red",
# background = NULL,
# width = 4
# )
# )
# })
# }
# )
## ----user-block, eval=FALSE---------------------------------------------------
# userBlock(
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user4-128x128.jpg",
# title = "Social Box",
# subtitle = "example-01.05.2018"
# )
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJycvHwMACTgoGThGdgFcR1Dw-RkAZVo4+hZE5JDU+W90gCEiGQ4U0IdOIgJaKGpygA9gmprs9wchMDqGpsUW3oKO0NJaUmo4brN40up6gGt2sdDaGACZj17uUlJUTkQAemPYmD5qcgxaImPSbjh4TmPrGQuIABkAFQBRY5ktE4pGOG38xzmjAALABaACMACYABwtRFIjAAK1Q-hG1TWEym2x6YAy9Ua1AcrVxhTWtRM9AJ026vTgLVgqGmMIADHCMFyAKwYBE8pG9PE1JLi0JQAgTEilEz7Ej2MAmVBycgAfSGI2JWDgADNGHAeL1JTSOr1SfAHOQWqQHI9jQBCam0pj5KVOUhQeicOCkPwQODUVa0n30IMhsO04kAOTgAHdOG7Y04oPsZdx4GQFssY2mNltmWA9gcjqdE1WMJxYDAiPRaNMMMQYMdE6gYcQyBQQWrFrEXsK4QB2Y5wuHHADCsBDGFQEBxeC9+MmTJ2YG+JtIqbTTm4xoNJbLhxOx38RCI-mbrd3e96314nAcQNtjwc3fIZDFFtpqjT5pphGUahiuNS9AAsiataBCmy6-mskJQZwMEmgWsaJtkDzdIiox7k4wIZmYJZyIu8R3mmSHQVs6FplAircEQjAltY0xshAcTMYYtDxAQcAUXuGpEr0woOAAUlAIQIogXJcg4qAwAJhabIEx77KepznJc1y3PcjzPK87x8D8-yAsCoIwOCkJwvCyKosimLYkpsakKwqDCWAxp8bQABucAyM5tK9AAks+DyvuQMAchmMzGk01CsA4BpMUlxpwAA-A4j4ZgA5M+JgQPQIY8T5vrTK6YBgR0gH4c4-qMMhqG0bG9EPClG4ZCwUDcJSJjUIsBBLIFaxCSWCIAMziZJDjSQK8mKfBtXrCpHknhWZxGaIOl3A8TwmoZHwmQCQIgmCEL1eNtkomijlLnhS2ue5Jb+t+i1LcSACaRAmA4RX7PEv3FXAfkvqQFVVRKEMOP+sYw2MNVjNQaAchwAAaOGIHCXK4A4ABiACqcbdAaBWyrcEDsLQAgOCAVVDFORAwDmpDNZ0K1qeWZ5aVtcA3Dt+n7W8h1-Md5lnZCl1ovZ6JYndUOMkSqDyOQKoM0zva6lT92xqNG48nygrDqKb1pkrwJwFyKqPjMms470MLYa2zNmlVcMdAAvgjHTJUQ5DMRu1tJZefuOvEcDgwhbtewrJakgMFJUpVhQ1fVfn+0lpNyhTfCoIqOPfQcirU7TFoNqncC-H5ZCUxAuekAAJGqQnakQLQ4yXYxNzFrTNb0-TkjqJsdDKWcll35DOUQqBZ8+Hh0MCrO2muRKQnmg2L04RaqRua1c5tVy87pu0GULxki2Zp2Wed8SS3ZN2y8N3rL7HZJNJSrfOOqMUBUPtKcPSMcNykAqFAVgP4AIrjdk4N2nsUjuxEAIMA7sAC6QA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# shinyApp(
# ui = dashboardPage(
# dashboardHeader(),
# dashboardSidebar(),
# dashboardBody(
# socialBox(
# id = "socialbox",
# title = userBlock(
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user4-128x128.jpg",
# title = "Social Box",
# subtitle = "example-01.05.2018"
# ),
# actionButton("update_box", "Refresh"),
# "Some text here!",
# br(),
# tabsetPanel(
# tabPanel(
# "News",
# attachmentBlock(
# image = "https://www.sammobile.com/wp-content/uploads/2017/11/Camel.png",
# title = "Test",
# href = "https://google.com",
# "This is the content"
# )
# ),
# tabPanel(
# "Messages",
# userMessages(
# width = 12,
# status = "danger",
# userMessage(
# author = "Alexander Pierce",
# date = "20 Jan 2:00 pm",
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user1-128x128.jpg",
# type = "received",
# "Is this template really for free? That's unbelievable!"
# ),
# userMessage(
# author = "Sarah Bullock",
# date = "23 Jan 2:05 pm",
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user3-128x128.jpg",
# type = "sent",
# "You better believe it!"
# )
# )
# )
# ),
# lapply(X = 1:10, FUN = function(i) {
# boxComment(
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user3-128x128.jpg",
# title = paste("Comment", i),
# date = "01.05.2018",
# paste0("The ", i, "-th comment")
# )
# }),
# footer = "The footer here!"
# )
# ),
# title = "Social Box"
# ),
# server = function(input, output) {
# observeEvent(input$update_box, {
# updateBox(
# "socialbox",
# action = "update",
# options = list(
# title = userBlock(
# image = "https://adminlte.io/themes/AdminLTE/dist/img/user3-128x128.jpg",
# title = "Social Box updated",
# subtitle = "today"
# )
# )
# )
# })
# }
# )
## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
shiny::tags$iframe(
class = "html-fill-item",
src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJycvHwMACTgoGThGdgFcR1Dw-RkAZVo4+hZE5JDU+W90gCEiGQ4U0IcAM1NsrCIAd2CamuJTGAg29prm7NJudwcANgK+mpcAeRNSVDn7FAJSWgA3OAB9Tmy4ITAk6smoFdoSUrnSEiWr-39qPbwHfYAVIjuHurpUB0UAD32h0Kky+tFQ5T+vRBTmyI32MFY9TB-32E2hTlIjFod3icLA3CIG0YqKOIIGMiGIwAjAAmNHo2qMEikEYydZQ9EOAjUeScPHkP6kAC0BAo5GJeFJ0O4VKWADFvg4SA4CUTAfTObQYP4uIwCHjuKR5pxEAB6U2oHmignUGQYYim0YABidfwALC7AVK+kDOb8TgBrVns72Tbm8-lwQUisXxEnAzncODYw14gDMLtQAMlCfR5MpHn2VJdAFJ436nDL5Yrlaq4wcNejUEsALJERhwBx8WrtmBQVYkDBDjBe3OTVToifjxuhTombocvr54YecahpwzOYLUhLE6rDbbXabGnq9eg8FESFnmEyPEIpGof4nnN+5fUunXupMsjBtaL6HhpwfKFmAArCqKZD1jOIJVvsCpgkqITcrQBABqeY4glqOqcHqBpGqgJrmpaJxwDadoOs6roek6o5+r6nK5Khv7-iCgHAc8oFRuBsYStBkxJimLIgRmTpZuWFZviBxZOmWL4VrBYDwT8yrIah6EVg4zb7G2HZdhAPaMH2A4QMOI4HJ+U4gpZ7TWU41lTvRnDxESIy1CYECnNcfDbrgSpbnMvlOUBZwQAIDggEcRD+aQAAke7rFsOxxA4AA8QoOB2EBxIwACqACS7ARWOSWdmlXa1A47DeXMMX3t8-xhfsjLMvsDhwNQTkcYxaFgFKaTKKUsSBFwuy+Z07Z4vQpiPNZAC+FgJlF8w1fFB4lceqXpZl2X5YVUolZt5WVdVsV1cil40o1YDNWQrXtZ1+zdfsfXFBEMiDTIw0lWNRDUBNIFTSYM1HPNIiRfQTmMBsACiGxkFVEDbjFtz3HAvlFX0JioHI5BKRCSxnY+l60aEoOFLNIgCGAs0ALpAA",
height = "800",
width = "100%",
style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;",
allowfullscreen = "",
allow = "autoplay",
`data-external` = "1"
),
full_screen = TRUE,
style = "margin: 0 auto; float: none;"
)
## ----eval=FALSE---------------------------------------------------------------
# shinyApp(
# ui = dashboardPage(
# dashboardHeader(),
# dashboardSidebar(),
# dashboardBody(
# fluidRow(
# column(
# width = 6,
# uiOutput("active_side"),
# actionButton("toggle", "Toggle flip box"),
# flipBox(
# id = "myflipbox",
# trigger = "hover",
# width = 12,
# front = div(
# class = "text-center",
# h1("Flip on hover"),
# img(src = "https://placehold.co/600x400")
# ),
# back = div(
# class = "text-center",
# height = "300px",
# width = "100%",
# h1("Flip on hover"),
# p("More information....")
# )
# )
# ),
# column(
# width = 6,
# uiOutput("active_side_2"),
# flipBox(
# id = "myflipbox2",
# width = 12,
# front = div(
# class = "text-center",
# h1("Flip on click"),
# img(src = "https://placehold.co/600x400")
# ),
# back = div(
# class = "text-center",
# height = "300px",
# width = "100%",
# h1("Flip on click"),
# p("More information....")
# )
# )
# )
# )
# )
# ),
# server = function(input, output, session) {
# output$active_side <- renderUI({
# side <- if (input$myflipbox) "front" else "back"
# dashboardBadge(side, color = "blue")
# })
#
# output$active_side_2 <- renderUI({
# side <- if (input$myflipbox2) "front" else "back"
# dashboardBadge(side, color = "blue")
# })
#
# observeEvent(input$toggle, {
# updateFlipBox("myflipbox")
# })
# }
# )