作者s86116 (hsiuy)
看板R_Language
標題[問題]
時間Thu Jul 16 02:03:32 2015
[問題類型]:
我想用R 都shiny寫一個上傳檔案的app，但是我不知道要怎麼用R 寫出來。
[軟體熟悉度]:
R基本的語法可以但shiny套件太新，所以很生疏。
[問題敘述]:
我想用R 都shiny寫一個上傳檔案的app，但是我不知道要怎麼用R 寫出來。已經把shiny.
rstudio.com中gallery提供的程式複製到rstudio了，但還是跑不出來。麻煩各位幫幫忙
了！
[程式範例]:
library(shiny)
ui<-fluidPage()
server<-function(input,output){}
shinyApp(ui=ui,server=server)
以上的程式是沒有問題的
視窗也有跑出來
但下面的程式就卡住了
library(shiny)
shinyUI(fluidPage(
titlePanel("Uploading Files"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose CSV File',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv')),
tags$hr(),
checkboxInput('header', 'Header', TRUE),
radioButtons('sep', 'Separator',
c(Comma=',',
Semicolon=';',
Tab='\t'),
','),
radioButtons('quote', 'Quote',
c(None='',
'Double Quote'='"',
'Single Quote'="'"),
'"')
),
mainPanel(
tableOutput('contents')
)
)
))
library(shiny)
shinyServer(function(input, output) {
output$contents <- renderTable({
# input$file1 will be NULL initially. After the user selects
# and uploads a file, it will be a data frame with 'name',
# 'size', 'type', and 'datapath' columns. The 'datapath'
# column will contain the local filenames where the data can
# be found.
inFile <- input$file1
if (is.null(inFile))
return(NULL)
read.csv(inFile$datapath, header=input$header, sep=input$sep,
quote=input$quote)
})
})
[環境敘述]:
我是用rstudio跑的
[關鍵字]:
選擇性，也許未來有用
因為我平常不用ptt，這是我朋友的帳號，方便的話可以用line聯絡我，我的ID是jingchi
，問題解決了會很有誠意的請你吃個飯，真的拜託大家了！
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.245.45.28
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1436983415.A.1C4.html
※ 編輯: s86116 (27.245.45.28), 07/16/2015 02:05:51
1F：→ Wush978: 你要確實把ui.R / server.R 的內容貼上去07/16 02:10
※ 編輯: s86116 (27.245.45.28), 07/16/2015 02:13:14