#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网址/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实现下载功能
最后编辑于 ：
?著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事?！?“怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 我使用的是macPro , mac 自带了python2.7 , 我自己下载了pytho3.6根据操作进行安装后,...
- 最近，因需求写了一个页面，其中有一个地方是显示一个指向一个视频的url（点击可以下载），而这个url是指向另一个服...
- 2017-9-10【『编辑图片里的故事』之十八－－《编辑图片的灵魂们，我们聊聊好吗？》】 灵感来自：【千聊“啾啾”...
