R七种武器之交互化展示包shiny

DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
HTML5 帮助函数
p h1 h2 h3 h4 h5 h6 a br div span pre code img strong em HTML <p> <h1> <h2> <h3> <h4> <h5> <h6> <a> <br> <div> <span> <pre> <code> <img> <strong> <em> A paragraph of text A first level header A second level header A third level header A fourth level header A fifth level header A sixth level header A hyper link A line break (e.g. a blank line) A division of text with a uniform style An in-line division of text with a uniform style Text ‘as is’ in a fixed width font A formatted block of code An image Bold text Italicized text Directly passes a character string as HTML code DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
checkboxInput
dateInput dateRangeInput fileInput helpText numericInput radioButtons
单选框
日期 日期范围 上传文件 帮助文件 数字输入 单选按钮
selectInput
sliderInput submitButton textInput

) ))
)
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
文本格式
) )) ) # ui.R shinyUI(fluidPage( titlePanel("My Shiny App"), sidebarLayout( sidebarPanel(), mainPanel( p("p creates a paragraph of text. Note: this paragraph is followed by br(), which makes a blank line."), p("A new p() command starts a new paragraph. Supply a style attribute to change the format of the entire paragraph", style = "font-
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
mainPanel("main panel")
) ))
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
布局调整
# ui.R
shinyUI(fluidPage( titlePanel("title panel"),
sidebarLayout(position=“right”, sidebarPanel( "sidebar panel"),
更多功能
http://shiny.rstudio.com/articles/tag-glossary.html
http://shiny.rstudio.com/articles/html-tags.html
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
综合例子
标题


# ui.R
shinyUI(fluidPage( titlePanel("My Shiny App"), sidebarLayout( sidebarPanel(), mainPanel( h6("Episode IV", align = “center"), h6("A NEW HOPE", align = "center"), h5("It is a period of civil war.", align = "center"), h4("Rebel spaceships, striking", align = "center"), h3("from a hidden base, have won", align = "center"), h2("their first victory against the", align = "center"), h1("evil Galactic Empire.")
family: 'times'; font-si16pt"),
strong("strong() makes bold text."), em("em() creates italicized (i.e, emphasized) text."), br(), code("code displays your text similar to computer code"), div("div creates segments of text with a similar style. This division of text is all blue because I passed the argument 'style = color:blue' to
hello shiny
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
布局调整
pageWithSidebar
fluidPage
# ui.R
shinyUI(fluidPage( titlePanel("title panel"),
sidebarLayout( sidebarPanel( "sidebar panel"),
})
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
minimal example
ui.R
library(shiny) shinyUI(pageWithSidebar(
headerPanel("Minimal example"),
sidebarPanel( textInput(inputId = "comment", label = "Say something?", value = “")
# 应用名称/标题
headerPanel(“hello”), sidebarPanel(),
mainPanel()
))
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
Structure of a Shiny App
library(shiny)
# 定义输入与输出的关系 shinyServer(function(input, output) {
shinny包实例
runExample("01_hello")
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
shinny包实例
runExample("02_text")
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
shinny包实例
div", style = "color:blue"),
br(), p("span does the same thing as div, but it works with", span("groups of words", style = "color:blue"), "that appear inside a paragraph.")
),
mainPanel( h3("This is you saying it"),textOutput("textDisplay")
)
))
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
minimal example
server.R
library(shiny) shinyServer(function(input, output) {
output$textDisplay <- renderText({
paste0("You said '", input$comment, "'. There are ", nchar(input$comment
" characters in this.")
}) })
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
R七种武器之交互化展示包shiny 讲师 何翠仪
选择栏
滑动条 提交按钮 文本输入
DATAGULeabharlann BaiduU专业数据分析社区
控件函数
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
更多
http://shiny.rstudio.com/gallery/widgets-gallery.html
——标题
——文字 ——图
shiny的控制小部件
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
shiny包简介
Rstudio公司开发的R包
利用R语言轻松开发交互式web应用 shiny官网：http://shiny.rstudio.com/
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
mainPanel("main panel")
) ))
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
布局调整
多页的用户界面：navbarPage
网格布局：fluidRow()、colum() 更多：http://shiny.rstudio.com/articles/layout-guide.html
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
文本格式
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
图
img(src = "my_image.png", height = 72, width = 72)
# ui.R shinyUI(fluidPage(
titlePanel("My Shiny App"),
sidebarLayout( sidebarPanel(),
mainPanel(
img(src="bigorb.png", height = 400, width = 400) )
)
))
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
输入控件
runGist(6571951)
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
控件函数
function actionButton checkboxGroupInput widget 按钮 复选框
R七种武器之交互化展示包shiny——第一课
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
本周内容
shiny包简介
shiny的两个重要脚本：ui.R server.R ——minimal example
——hello shiny
shiny的用户界面设计 ——布局
runExample("03_reactivity")
DATAGURU专业数据分析社区 R七种武器之交互化展示包shiny 讲师 何翠仪
Structure of a Shiny App
两个脚本
ui.R与server.R
library(shiny)
# 定义web应用的用户界面 shinyUI(pageWithSidebar(