R语言shiny之导航栏(navbar)和侧边栏(sidebar)小例子

原创
2020/05/21 22:20
阅读数 1.5K

在Y叔的公众号看到文章**《有人基于AnnotationHub和clusterProfiler做了个shiny,就能支持1700+的物种,你却老是在问我,非模式生物怎么办!》**。正好自己最近在学习R语言的shiny。于是找到这个shiny的代码看了看,发现不是很长,花点时间应该可以重复出来。

原本的shiny对应的github主页

https://github.com/sk-sahu/sig-bio-shiny

今天先重复一小部分

包括

  • 导航栏
  • 侧边栏
  • 文本输入框
  • 数字输入框
  • 选择框
  • 提交按钮

基本功能是侧边栏输入文本,在主界面以表格的形式展示出来,而且还可以把过程分为好几个步骤,这里用到的代码是

withProgress(message = "Steps:",value = 0,{incProgress(1/7,detail = paste0("Waitting","1")),incProgress(2/7,detail = paste0("Waitting","2"))}
ui代码

ui可以简单理解为前端页面

library(shiny)
ui<-navbarPage('Pomegranate',inverse = T,collapsible = T,
tabPanel("Gene Ontology",
sidebarLayout(
sidebarPanel(width = 2,textAreaInput("text_area_list",
label = "Please input protein id, one per line",
height = "200px",
width="180px",
value="Pg00001"),
selectInput('id_type',label="Input gene-id Type:",
selected = "A",choices = c("A","B","C")),
helpText("You are!"),
numericInput("pval_cutoff",label = "pvalue-Cutoff",
value=1,min = 0.001,max=1,step = 0.001),
numericInput("qval_cutoff",label="qvalue-CutOff",value=1,
min = 0.001,max=1,step=0.001),
hr(),
helpText("After submit it may take 1-2 minutes. Check Progress bar in right side cornor"),
actionButton("submit",label = "Submit",icon=icon('angle-double-right')),
tags$hr()),
mainPanel(
helpText("Note: After submit it may take 1-2 minutes. Check Progress bar in right side cornor."),
tags$hr(),
textOutput("gene_number_info"),
tags$hr(),
DT::dataTableOutput(outputId = "gene_number_info_table")
)
)))
server代码

server可以理解为后端数据处理逻辑

server<-function(input,output){
observeEvent(input$submit,{
withProgress(message = "Steps:",value = 0,{
incProgress(1/7,detail = paste0("Waitting","1"))
text_area_input <- input$text_area_list
df<-as.data.frame(matrix(unlist(stringr::str_split(text_area_input,"\n")),ncol=1))
print(class(text_area_input))
print(text_area_input)
incProgress(2/7,detail = paste0("Waitting","2"))
output$gene_number_info<-renderText({
paste0("A","B")
})
output$gene_number_info_table<-DT::renderDataTable({
DT::datatable(df)
})
})
})
}

shinyApp(ui=ui,server=server)
运行的效果
image.png

欢迎大家关注我的公众号

小明的数据分析笔记本


本文分享自微信公众号 - 小明的数据分析笔记本()。
如有侵权,请联系 support@oschina.cn 删除。
本文参与“OSC源创计划”,欢迎正在阅读的你也加入,一起分享。

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部