测试环境:win10+RStudio
提前准备:
install.packages('shiny')
install.packages('RMySQL')
数据表准备:
最终实现的界面效果如下:点击【Click Me】按钮,从数据库读出数据,并在界面画出条形图
正式开始!
在R项目(比如ShinyDemo)的目录下新建一个文件夹barplotDemo
然后在这个目录下新建两个文件,ui.R和server.R
ui.R的代码实现如下
library(shiny)#Use a fluid Bootstrap layout
fluidPage(#Give the page a title
titlePanel("A Simple Shiny Demo"),#Generate a row with a sidebar
sidebarLayout(#Define the sidebar with one input
sidebarPanel(
actionB