shinyapp 部署的两种方法

一、样本app

#文件名为app.R
library(shiny)

# Define UI for dataset viewer app ----
ui <- fluidPage(

  # App title ----
  titlePanel("Shiny Text"),

  # Sidebar layout with a input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Selector for choosing dataset ----
      selectInput(inputId = "dataset",
                  label = "Choose a dataset:",
                  choices = c("rock", "pressure", "cars")),

      # Input: Numeric entry for number of obs to view ----
      numericInput(inputId = "obs",
                   label = "Number of observations to view:",
                   value = 10)
    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Verbatim text for data summary ----
      verbatimTextOutput("summary"),

      # Output: HTML table with requested number of observations ----
      tableOutput("view")

    )
  )
)

# Define server logic to summarize and view selected dataset ----
server <- function(input, output) {

  # Return the requested dataset ----
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  # Generate a summary of the dataset ----
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # Show the first "n" observations ----
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })

}

# Create Shiny app ----
shinyApp(ui = ui, server = server)

image.png

二、方法

1、部署在官方的服务器上

#本地安装rsconnect 
install.packages('rsconnect')
library(rsconnect)

#想要最新版本可以用以下命令安装该包
if(!require("devtools"))
  install.packages("devtools")
devtools::install_github("rstudio/rsconnect")

#通过以下网址创建shinyapp.io账户
https://www.shinyapps.io/

image.png

image.png

#复制该代码到R窗口下运行
rsconnect::setAccountInfo(name='genomenetwork',
              token='869F3553609D3A17C74FA157528D58C8',
              secret='')
#将工作目录设置到样本app的文件下
setwd("~/Downloads/shiny-examples-master/001-hello")
#当运行以下命令成功运行程序时，目录设置正确
shiny::runApp()

image.png

#停止应用，运行以下代码部署app
library(rsconnect)
deployApp()
#部署完成自动弹出网页
https://genomenetwork.shinyapps.io/001-hello/

2、部署在自己服务器上

#购买一个vps虚拟机
#购买域名，没有的话，用ip访问
#连接vps，官方推荐ubuntu系统，其他系统可能要多折腾
#安装R和依赖文件
sudo apt-get update
sudo apt-get install r-base
sudo apt-get install libcurl4-openssl-dev
sudo apt-get install libxml2-dev
R
#安装shiny包
#install.packages("shiny")
#手动添加镜像源
install.packages('shiny', repos='https://cran.rstudio.com/')
#如果你的app.R有其他加载的包，尽量都要用R装上去

#安装shiny-server
sudo apt-get install gdebi-core
wget https://download3.rstudio.org/ubuntu-14.04/x86_64/shiny-server-1.5.9.923-amd64.deb
sudo gdebi shiny-server-1.5.9.923-amd64.deb

访问 端口3838，如果页面出现，且右侧有图则安装完成

image.png

#部署app
#将文件app.R上传到服务器
uu@client:~/shinyapp$ pwd
/home/uu/shinyapp
uu@client:~/shinyapp$ tree demo1
demo1
└── app.R

0 directories, 1 file
#修改配置文件，使app.R生效
sudo vim /etc/shiny-server/shiny-server.conf

# Instruct Shiny Server to run applications as the user "shiny"
run_as shiny;


access_log /var/log/shiny-server/access.log default;  # 增加记录访问
preserve_logs true;                                   # 禁止自动清除日志

# Define a server that listens on port 3838
server {
  listen 80;

  # Define a location at the base URL
  location / {

    # Host the directory of Shiny Apps stored in this directory
    site_dir /srv/shiny-server;

    # Log all Shiny output to files in this directory
    log_dir /var/log/shiny-server;

    # When a user visits the base URL rather than a particular application,
    # an index of the applications available in this directory will be shown.
    directory_index on;
  }
    #指向app.R代码位置
    location /demo1{                     #/demo1 访问app.R的网址后缀
        app_dir /home/uu/shinyapp/demo1; #app.R所在文件夹
        log_dir /var/log/shiny-server/demo1;#app.R日志所在文件夹
    }
#重启服务器
sudo systemctl restart shiny-server

#应用启动失败，一般是依赖包问题，好好查看报错信息
#日志
sudo cat /var/log/shiny-server/demo/
#重启
sudo systemctl restart shiny-server;
#文件配置
sudo vim /etc/shiny-server/shiny-server.conf

由于Shiny Server为了保证性能，所以非敏感性的错误日志被设置了自动清除，每当你出现了错误，要去看日志定位问题的时候，这个日志就刚好被自动清除了。坑很大！！都开始怀疑人生了。
所以，你在调试时需要修改一个参数，保证日志不会被自动清除。

sudo vi /etc/shiny-server/shiny-server.conf
run_as shiny;
access_log /var/log/shiny-server/access.log default;  # 增加记录访问
preserve_logs true;                                   # 禁止自动清除日志
# Define a server that listens on port 3838
server {
  listen 3838;
# 省略
}

参考

#部署在官方服务器上
https://docs.rstudio.com/shinyapps.io/
#部署在自己服务器上
https://www.rstudio.com/products/shiny/download-server/
http://blog.fens.me/r-shiny-aws/