问题描述
我正在尝试编写一个简单的Shiny应用程序,允许用户输入文本,并上传具有相同名称的applicationId
文件。
.png
我希望它执行以下操作:
- 用户输入名称,例如“ Gene1”。
- App从
library(shiny) library(shinydashboard) library(data.table) #Set header header <- dashboardHeader(title = "Gene Searcher") #function to create Boxes my.Box <- function(title,obj) { Box( title = title,status = "primary",solidHeader = TRUE,collapsible = TRUE,plotOutput(obj,height = "300px") ) } #set sidebar. sidebar <- dashboardSidebar( sidebarSearchForm(textId = "searchText",buttonId = "searchButton",label = "Search dataset",icon = shiny::icon("search")) ) #set body body <- dashboardBody(tableOutput("filtered_table"),my.Box("Table1","Table1"),my.Box("Table2","Table2")) ui <- dashboardPage(title = 'Search',header,sidebar,body) server <- function(input,output,session) { #empty for Now. } shinyApp(ui = ui,server = server)
目录中搜索名为“ Gene1.png”的文件,并将其上传到该框中。
我该怎么做?任何帮助表示赞赏!
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)