dawneve / shiny_go Goto Github PK

A simply GO server based on clusterProfiler and shinny


#######################################
# 运行方式
#######################################
(1) v0.1 can run at local cmd:
D:\Program Files\R\R-3.6.1\bin>Rscript F:\\Temp\\shiny\\run.R
Warning message:
'shiny'R3.6.3

runApp("census-app", display.mode = "showcase") #能在前台看到R代码


(2) 克隆到本地，修改run.R，设置IP和端口，
git clone https://github.com/DawnEve/shiny_GO.git
运行run.R脚本即可。

需要本地安装好依赖包。


(3) 如果不想下载，也可以直接运行，缺点是无法设定IP和端口
runGitHub( "<your repository name>", "<your user name>")

runGitHub("shiny_GO", "DawnEve")




#######################################
# 目录结构
#######################################
app-1/ 第一课，怎么添加html标签
	www/ 内可以放静态文件 image/js/css/text 等等。
	img(src = "my_image.png", height = 72, width = 72)
app-2/ 聚类算法 kmeans, hclust
app-3/ 使用了单文件 app.R，展示可用的组件。
app-4/ 后台怎么响应前台的输入？前台显示代码 display.mode = "showcase"
app-5/ 对于单个不可分解耗时任务，怎么模拟一个进度条？
app-5_2/ 进度条demo，适合能分解为若干步骤的操作
app-6/ 响应式加载数据reactive({})
	输出表格
app-7/ tabsetPanel 标签布局
app-8/ bug demo:Bug demo: when hand input, Shiny can get the value from textAreaInput; but when js set values for textAreaInput, Shiny get nothing.
		手工输入的shiny可以获取；但是js设置的值，shiny获取不到。
		原因: 需要修改值后主动触发输入框的change事件。
#
app-9/ 测试读取文件，并用ggplot2绘图
	#theme( text = element_text(size = 20) ) 后台字体放大
	前台改变图片高度 plotOutput("ggbar2", height = 800)
#




#######################################
# 干货
#######################################

1. 基本结构
$ cat app.R
library(shiny)
# Define UI ----
ui <- fluidPage(
	sidebarPanel(
		helpText("input sth."),
		  sliderInput("range", "Range of interest",
					   min = 0, max = 100, value =c(0,100) )
	  ),

    mainPanel( 
    	    h2("hist plot"),
    		plotOutput("histDt"),

    		hr('Table 1:  details'),
    		tableOutput('tb1')
    	)
)

# Define server logic ----
server <- function(input, output) {
	output$histDt=renderPlot({
		#plot
	})  
}

# Run the app ----
shinyApp(ui = ui, server = server)






# 2. UI 中的 *Output 函数
R对象变为ui输出的函数：
Output_function	/Creates
dataTableOutput	DataTable
htmlOutput	raw HTML
imageOutput	image
plotOutput	plot
tableOutput	table
textOutput	text
uiOutput	raw HTML
verbatimTextOutput	text

添加方式和添加html元素及组件一样，放到 sidebarPanel or mainPanel in the ui.





# 3. server中渲染函数
render function	/ creates
renderDataTable	DataTable
renderImage	images (saved as a link to a source file)
renderPlot	plots
renderPrint	any printed output
renderTable	data frame, matrix, other table like structures
renderText	character strings
renderUI	a Shiny tag object or HTML







#######################################
# ref
#######################################
发现一个别人做的 https://github.com/szenitha/Shiny-Seq/tree/master/App
# https://cloud.tencent.com/developer/article/1558051
好复杂，没看懂。