init

Author: unknown

.gitignore

@@ -0,0 +1,3 @@
+.Rproj.user
+.Rhistory
+.RData

README.md

@@ -0,0 +1 @@
+easy url proxy on shiny

server.R

@@ -0,0 +1,27 @@
+library(shiny)
+library(RCurl)
+library(shinyAce)
+
+xmlFunc<-list('xmlGetAttr'=xmlGetAttr, 'xmlValue'=xmlValue)
+
+shinyServer(function(input, output, session) {
+  
+  urls<-reactive({
+    unlist(strsplit(input$urls, split='\n'))
+  })
+  
+  output$debug<-renderText({
+    urls
+  })
+  
+  output$downloadTable <- downloadHandler(
+    filename = 'table.txt',
+    content = function(file) {
+      dt<-as.data.frame(xpath$data)
+      fileEncode<-ifelse(input$sameEncodingOnSave, input$encoding, '')
+      eol<-ifelse(input$isWindows, '\r\n', '\n')
+      write.table(dt, file, sep='\t', eol=eol, quote=F, row.names=F, fileEncoding=fileEncode)
+    }
+  )
+  
+})

shinyProxy.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

ui.R

@@ -0,0 +1,12 @@
+library(shiny)
+library(shinyAce)
+library(DT)
+
+shinyUI(fluidPage(
+    mainPanel(
+      aceEditor("urls", mode='html', value="", height="500px"),
+      textOutput('debug'),
+      downloadButton('downloadTable', 'Download')
+  )
+))
+