什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。本系列是个长教程，带你由浅入深学习shiny。
上一节我们在文章《R语言系列教程—–一起来学shiny吧（1）》中简单介绍了一下，什么是shiny，shiny是做什么用途的，本节来介绍一下，怎么对shiny进行页面布局。 shiny进行页面布局主要是通过fluidPage函数，和它的名字一样，是个流动的布局页面。我们先导入R包和进行设置
library(shiny)
# Define UI ----界面部分，主要布局
ui <- fluidPage(
)
# Define server logic 服务器界面
server <- function(input, output) {
}
shinyApp(ui = ui, server = server)
如果不对fluidPage函数进行设置，将输出一个空白页面. fluidPage函数包含有titlePanel函数和 sidebarLayout函数这两个常用的部分。titlePanel函数用于设置标题，sidebarLayout布置侧边栏和主区域,创建一个带有侧边栏sidebarPanel()和主区域mainPanel()的布局sidebarAlayout()
ui <- fluidPage(
titlePanel("title panel"),
sidebarLayout(
sidebarPanel("sidebar panel"),
mainPanel("什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。本系列是个长教程，带你由浅入深学习shiny。")
)
)
shinyApp(ui = ui, server = server)
还可以对其他部分进行修改
ui <- fluidPage(
titlePanel("零基础说科研shiny教程"),
sidebarLayout(position = "right",
sidebarPanel("侧面板控件"),
mainPanel("什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。本系列是个长教程，带你由浅入深学习shiny。")
)
)
shinyApp(ui = ui, server = server)
对h1对标题格式进行修改，添加标题部分要括号括起来，position对位置进行修改
ui <- fluidPage(
titlePanel(h1("零基础说科研shiny教程")),
sidebarLayout(position = "right",
sidebarPanel("侧面板控件"),
mainPanel(h3("什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。本系列是个长教程，带你由浅入深学习shiny。"))
)
)
shinyApp(ui = ui, server = server)
关于标题页面的HTML语法可以看下图
使用align = “center”可以使文字居中
ui <- fluidPage(
titlePanel(h1("零基础说科研shiny教程")),
sidebarLayout(position = "right",
sidebarPanel("侧面板控件"),
mainPanel(h3("什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。
本系列是个长教程，带你由浅入深学习shiny。", align = "center"))
)
)
shinyApp(ui = ui, server = server)
下面显示的是各种语法的应用特点，br()为换行，产生空格
ui <- fluidPage(
titlePanel(h1("零基础说科研shiny教程")),
sidebarLayout(position = "right",
sidebarPanel("侧面板控件"),
mainPanel(
p("p创建一段文本。"),
p("一个新的p()命令开始一个新的段落。提供一个样式属性来改变整个段落的格式.", style = "font-family: 'times'; font-si16pt"),
strong("strong()创建粗体文本。br用于换行"),
br(),
em("em()创建斜体（即强调）文本。"),
br(),
code("code 显示你的文本类似于计算机代码"),
div("div 创建具有类似风格的文本段。这个分割的文本都是蓝色的,因为style中进行颜色设置", style = "color:blue"),
br(),
p("span的作用与div相同，但它适用于个别单词,例如",
span("零基础说科研shiny教程", style = "color:blue"),
"出现在一个段落中.")
)
)
)
shinyApp(ui = ui, server = server)
图像可以增强应用程序的外观，并帮助用户理解内容。Shiny寻找img函数来将图像文件放置在您的应用程序中。Shiny中导入图片，需要在在你的程序位置下添加一个www的文件夹，然后把图片放入文件夹中。例如我的本例程序叫做"第二节.R"的这个文件，我们需要在同目录下建一个www的文件夹。
图片放入文件夹内，到时根据名字来寻找
需要使用时直接使用img函数插入图片
ui <- fluidPage(
titlePanel(h1("零基础说科研shiny教程")),
sidebarLayout(position = "right",
sidebarPanel("侧面板控件"),
mainPanel(
img(src = "shiny.png", height = 140, width = 400),
h3("什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。
本系列是个长教程，带你由浅入深学习shiny。", align = "center"))
)
)
shinyApp(ui = ui, server = server)
在侧控制面板上也可以插入图片
ui <- fluidPage(
titlePanel(h1("零基础说科研shiny教程")),
sidebarLayout(position = "right",
sidebarPanel(
h3("shiny教程第二节"),
p("公众号：零基础说科研将持续更新shiny教程"),
br(),
br(),
img(src = "ljc.png", height = 200, width = 200),
),
mainPanel(
img(src = "shiny.png", height = 140, width = 400),
h3("什么是shiny？Shiny是一个R包，可让您轻松地直接从 R 构建交互式 Web 应用程序（应用程序）。
本系列是个长教程，带你由浅入深学习shiny。", align = "center"))
)
)
shinyApp(ui = ui, server = server)
