intro.R
In shiny.semantic: Semantic UI Support for Shiny

## ----setup, include = FALSE, screenshot.force = FALSE-------------------------
knitr::opts_chunk$set(
  echo = TRUE,
  collapse = TRUE,
  comment = "#>"
)
library(shiny)
library(shiny.semantic)

## ----echo=T, include = T, screenshot.force = FALSE----------------------------
uirender(
  shiny::tagList(
    h4("Numeric input", icon("world")),
    shiny.semantic::numeric_input("input", value = 0, label = ""),
    shiny.semantic::list_container(list(
        list(header = "Item 1", description = "My text for item 1", icon = "cat"),
        list(header = "Item 2", description = "My text for item 2", icon = "tree"),
        list(header = "Item 3", description = "My text for item 3", icon = "dog")
      ), is_divided = TRUE
    )
  ),
width = "200px", height = "280px")

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  ui <- semanticPage(
#    title = "My first page",
#    h1("My page")
#  )
#  
#  server <- function(input, output, session) {}
#  
#  shinyApp(ui, server)

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  ui <- semanticPage(
#    title = "My first page",
#    h1("My page"),
#    sidebar_layout(
#      sidebar_panel(),
#      main_panel()
#      )
#  )
#  
#  server <- function(input, output, session) {}
#  
#  shinyApp(ui, server)

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  ui <- semanticPage(
#    title = "My first page",
#    h1("My page"),
#    sidebar_layout(
#      sidebar_panel(),
#      main_panel(
#        segment(
#           cards(
#             class = "two",
#             card(class = "red",
#               div(class = "content",
#                   div(class = "header", "Main title card 1"),
#                   div(class = "meta", "Sub title card 1"),
#                   div(class = "description", "More detail description card 1")
#               )
#             ),
#             card(class = "blue",
#               div(class = "content",
#                   div(class = "header", "Main title card 2"),
#                   div(class = "meta", "Sub title card 2"),
#                   div(class = "description", "More detail description card 2")
#                   )
#               )
#             )
#           )
#        )
#      )
#    )
#  
#  server <- function(input, output, session) {}
#  
#  shinyApp(ui, server)

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  ui <- semanticPage(
#    title = "My first page",
#    h1("My page"),
#    sidebar_layout(
#      sidebar_panel(
#        dropdown_input("mtcars_dropdown", c("mpg", "cyl", "disp", "hp"), value = "mpg"),
#        textOutput("dropdown")
#      ),
#      main_panel(
#        segment(
#           cards(
#             class = "two",
#             card(class = "red",
#               div(class = "content",
#                   div(class = "header", "Main title card 1"),
#                   div(class = "meta", "Sub title card 1"),
#                   div(class = "description", "More detail description card 1")
#               )
#             ),
#             card(class = "blue",
#               div(class = "content",
#                   div(class = "header", "Main title card 2"),
#                   div(class = "meta", "Sub title card 2"),
#                   div(class = "description", "More detail description card 2")
#               )
#             )
#           )
#        )
#        )
#      )
#  )
#  
#  server <- function(input, output, session) {
#    output$dropdown <- renderText(input$mtcars_dropdown)
#  }
#  
#  shinyApp(ui, server)

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  ui <- semanticPage(
#    title = "My first page",
#    h1("My page"),
#    sidebar_layout(
#      sidebar_panel(
#        p("Select variable for plots:"),
#        dropdown_input("mtcars_dropdown", c("mpg", "cyl", "disp", "hp"), value = "mpg")
#      ),
#      main_panel(
#        segment(
#           cards(
#             class = "two",
#             card(class = "red",
#               div(class = "content",
#                   div(class = "header", "Main title card 1"),
#                   div(class = "meta", "Sub title card 1"),
#                   div(class = "description", "More detail description card 1")
#               )
#             ),
#             card(class = "blue",
#               div(class = "content",
#                   div(class = "header", "Main title card 2"),
#                   div(class = "meta", "Sub title card 2"),
#                   div(class = "description", "More detail description card 2")
#               )
#             )
#           )
#        ),
#        plotOutput("histogram"),
#        plotOutput("plot")
#        )
#      )
#  )
#  
#  server <- function(input, output, session) {
#    output$dropdown <- renderText(input$mtcars_dropdown)
#    output$histogram <- renderPlot(hist(mtcars[[input$mtcars_dropdown]]))
#    output$plot <- renderPlot(plot(mtcars[[input$mtcars_dropdown]]))
#  }
#  
#  shinyApp(ui, server)

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  grid_charts <- grid_template(
#    default = list(areas = rbind(c("chart1", "chart2")),
#                   rows_height = c("100%"),
#                   cols_width = c("50%", "50%"))
#  )

## ----echo=TRUE, include=TRUE, eval=FALSE, screenshot.force = FALSE------------
#  ui <- semanticPage(
#    title = "My first page",
#    h1("My page"),
#    sidebar_layout(
#      sidebar_panel(
#        p("Select variable for plots:"),
#        dropdown_input("mtcars_dropdown", c("mpg", "cyl", "disp", "hp"), value = "mpg")
#      ),
#      main_panel(
#        segment(
#           cards(
#             class = "two",
#             card(class = "red",
#               div(class = "content",
#                   div(class = "header", "Main title card 1"),
#                   div(class = "meta", "Sub title card 1"),
#                   div(class = "description", "More detail description card 1")
#               )
#             ),
#             card(class = "blue",
#               div(class = "content",
#                   div(class = "header", "Main title card 2"),
#                   div(class = "meta", "Sub title card 2"),
#                   div(class = "description", "More detail description card 2")
#               )
#             )
#           )
#        ),
#        grid(grid_charts,
#             chart1 = plotOutput("histogram"),
#             chart2 = plotOutput("plot")
#           )
#        )
#      )
#  )
#  
#  server <- function(input, output, session) {
#    output$dropdown <- renderText(input$mtcars_dropdown)
#    output$histogram <- renderPlot(hist(mtcars[[input$mtcars_dropdown]]))
#    output$plot <- renderPlot(plot(mtcars[[input$mtcars_dropdown]]))
#  }
#  
#  shinyApp(ui, server)