#windows下操作：
library("shiny")
library("RCurl")
library("rjson")
library("xlsx")
# Define UI for application that plots random distributions
ui <- shinyUI(pageWithSidebar(
# Application title
headerPanel("平臺名字"),
# Sidebar with a slider input for number of observations
sidebarPanel(
fileInput('file1', 'Choose xlsx File',
accept=c('text/csv', 'text/comma-separated-values,text/plain')),
# helpText('一二三四五'),
br(),
downloadButton('downloadDa1ta', 'Download')
),
# Show a plot of the generated distribution
mainPanel(
tableOutput('table')
)
))
server <- shinyServer(function(input, output) {
dataInput<- reactive({
inFile <- input$file1
if (is.null(inFile)){
return(NULL)
}
data_file<-read.xlsx(inFile$datapath,1,encoding = 'UTF-8',header = FALSE)
#data_file <- unname(unlist(data_file))
data_file <- as.character(data_file[,1])
value<-c()
len=length(data_file)
for(i in data_file){
url <- getURL(paste("API網(wǎng)址/text=",URLencode(i),sep=''))#APIget方式與text進行拼接
result <- fromJSON(url)
value<- rbind(value,result$result)
}
result<- as.data.frame(cbind(data_file,value))
colnames(result) <- c("text","label")
result
})
output$table <- renderTable({
dataInput()
})
output$downloadData <- downloadHandler(
filename = function() {
paste('Result', '.xlsx', sep='')
},
content = function(file) {
write.xlsx(dataInput(), file)
}
)
})
shinyApp(ui = ui,server = server)
rshiny1:簡單的接入api實現(xiàn)下載功能
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進店門雾鬼，熙熙樓的掌柜王于貴愁眉苦臉地迎上來，“玉大人于颖，你說我怎么就攤上這事呆贿。” “怎么了森渐？”我有些...
- 文/不壞的土叔 我叫張陵做入，是天一觀的道長。 經(jīng)常有香客問我同衣，道長竟块，這世上最難降的妖魔是什么？ 我笑而不...
- 正文 為了忘掉前任耐齐，我火速辦了婚禮浪秘，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘埠况。我一直安慰自己耸携，他們只是感情好，可當我...
- 文/花漫 我一把揭開白布辕翰。 她就那樣靜靜地躺著夺衍，像睡著了一般。 火紅的嫁衣襯著肌膚如雪喜命。 梳的紋絲不亂的頭發(fā)上沟沙，一...
- 文/蒼蘭香墨 我猛地睜開眼二庵，長吁一口氣：“原來是場噩夢啊……” “哼贪染！你這毒婦竟也來了？” 一聲冷哼從身側(cè)響起催享，我...
- 正文 年R本政府宣布踪区，位于F島的核電站，受9級特大地震影響吊骤，放射性物質(zhì)發(fā)生泄漏缎岗。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一白粉、第九天 我趴在偏房一處隱蔽的房頂上張望传泊。 院中可真熱鬧，春花似錦鸭巴、人聲如沸眷细。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽薪鹦。三九已至，卻和暖如春惯豆，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背奔害。 一陣腳步聲響...
推薦閱讀更多精彩內(nèi)容
- 我使用的是macPro , mac 自帶了python2.7 , 我自己下載了pytho3.6根據(jù)操作進行安裝后,...
- 最近，因需求寫了一個頁面扶供，其中有一個地方是顯示一個指向一個視頻的url（點擊可以下載）筛圆，而這個url是指向另一個服...
- 2017-9-10【『編輯圖片里的故事』之十八－－《編輯圖片的靈魂們哀墓，我們聊聊好嗎？》】 靈感來自：【千聊“啾啾”...
