图一:
gene_name | 1 | 2 | 3 |
LDLR | YES | YES | YES |
APOB | YES | YES | YES |
three_datas<-read.table(file="Three_datas_YN.txt",sep="\t",header=TRUE,colClasses = "character",stringsAsFactors = FALSE)
save.image(file="H.RData")
2.编写UI.R和server.R,在server.R中load H.RData。
#server.R
library(shiny)
load("H.RData")
shinyServer(function(input, output) {
output$Three_datas<-renderTable({
a<-three_datas[grep(input$Symbol,three_datas[,1]),]
colnames(a)<-three_datas[1,]
rownames(a)<-NULL
data.frame(a)
})
}
#ui.R
shinyUI(fluidPage(
sidebarPanel(
textInput("Symbol", label = "",""),
br(),
submitButton("Submit"))
mainPanel(
tabsetPanel(type = "tabs",
tableOutput("Three_datas"),
))
3.确认无误后运行程序。
图中显示的结果为:
LDLR | YES | YES.1 | YES.2 | |
1 | APOB | YES | YES | YES |
求解:该如何进行更改才能得到正确的输出图?