如何解决我们如何根据我的简单代码在 rshiny 中添加上传/搜索数据库和本地机器中的数据集的选项?
在我的 Ui.R 上
流体页面(
titlePanel("Data browser"),sidebarLayout(
sidebarPanel(
width = 12,# radioButtons("filetype","Select file type",choices=c("csv file","xlsx file","xls file")),fileInput("file","Choose file to upload..",accept = c("text/csv","text/comma-separated-values,text/plain",".csv",".xlsx",".xls"))
),mainPanel(
width = 12,uIoUtput("data_browsing")
)
)
) #end of fluid row #2
server.R
data <- eventReactive(input$file,{
extension <- tools::file_ext(input$file$name)
filepath <- input$file$datapath
switch(extension,csv = read.csv(filepath),xls = readxl::read_xls(filepath),xlsx = readxl::read_xlsx(filepath)
)
})
output$about_file<-renderTable({
summary(input$file) #input$file1
})
output$display <- renderDataTable({
dataset = data()},10,options = list(scrollX = TRUE))
output$data_browsing<-renderUI({
if(is.null(data())){
}else if(length(data())==1){
h4(br(),br(),"Mismatch in formats of file selected and uploaded!",style = "color:red")
}else{
tabsetPanel(tabPanel("Data browse",dataTableOutput("display"))
) }})
所以我想添加一个选项,让用户在本地机器和数据库上像 file_input 一样浏览,并让数据集通过我的其他代码进行可视化。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。