部署ShinyApp

需求：更新网页中的gitlab仓库网址和邮箱

克隆

git clone https://gitlab.com/BioQuest/CESA.git

tree CESA

# CESA

# ├── LICENSE

# ├── README.md

# ├── rsconnect

# │  └── shinyapps.io

# │      └── bioquest

# │          └── cesa.dcf

# ├── server.R

# ├── ui.R

# └── www

#    └── source.R

# 5 directories, 6 files

UI

library(shiny)

library(readr)

options(encoding="UTF-8")

# Define UI for application that draws a histogram

source('www/source.R')

shinyUI(fluidPage(

    tags$style("@import url(https://use.fontawesome.com/releases/v6.0.0/css/all.css);"),

    tags$style(

        ".p1,.p2,.p3 {

      color: #3b6089;

    }"

    ),

    # Sidebar

    sidebarLayout(

        sidebarPanel(

           

            p(class = "p1","Please paste your data below, which contains one dataframe of three colums, ",tags$b('days,'),tags$b('group1,'),tags$b('group2.')),

            tags$br(),

            p(class = "p2","You can use customed header, and the second column name will be the file name of download."),

            p(class = "p3","You may run the sample file as shown in text box."),

            actionButton(inputId = "Run",label = "Run",width="90%",icon=icon("person-running",verify_fa = FALSE)),

            tags$br(),

            tags$br(),

            downloadButton("downspss",label='Download SPSS',width="30%"),

            downloadButton("downtable",label='Download Table',width="30%"),

            downloadButton("downplot",label='Download Plot',width="30%"),

            tags$br(),

            textAreaInput("file5", "", value=Text,width="90%",height = "400px",

                          cols=3,rows = 100,resize = "both",placeholder=Text),

            tags$div(

                tags$h5('Author: Victor'),

                tags$h5("Email: Victor@BioQuest.cn"),

                tags$a(href="https://BioQuest.cn", "Website: BioQuest.cn"),

                tags$a(href="https://gitlab.com/BioQuest/CESA", "Source Code"))

        ),

        mainPanel(

            tags$h1(tags$em("Caenorhabditis elegans"),"survival analysis"),

            tags$hr(),

            tableOutput(outputId='table1'),

            tags$p(tags$b('meanse:'),"mean ± SEM, ", tags$b('pv:'),"p-value, ", tags$b('PLC:'),"percent life span change, ", tags$b('N:'),"number of each group"),

            plotOutput("plot1",

                      width = "50%",

                      height = "500px"),

            hr(),

))))

部署

获取token和密钥

install.packages("rsconnect")

library(rsconnect)

rsconnect::setAccountInfo(name='bioquest', token='XXXXXX', secret='XXXXXX/XXXXXX')

deployApp()

# Preparing to deploy application...Update application currently deployed at

# https://bioquest.shinyapps.io/cesa/? [Y/n] Y

# DONE

# Preparing to deploy application...DONE

# Uploading bundle for application: 8612139...DONE

# Deploying bundle: 6980026 for application: 8612139 ...

# Waiting for task: 1283408108

#  building: Building image: 8278782

#  building: Fetching packages

#  building: Installing packages

#  building: Installing files

#  building: Pushing image: 8278782

#  deploying: Starting instances

#  success: Stopping old instances

# Application successfully deployed to https://bioquest.shinyapps.io/cesa/

https://bioquest.shinyapps.io/cesa/ 可以访问了