#server.r
shinyServer(function(input, output) {

      output$text1 <- renderText({ 
        #zz = file('filename.txt','a+')
	zz = file('filename.txt','a+')
	writeLines(paste(input$Login_User,':',input$Message),zz)
	close(zz)
	dd=readLines('filename')
	dd
      })
})



#ui.r
#輸入框
textareaInput <- function(id, label, value, rows=20, cols=20, class="form-control"){
  tags$div(
    class="form-group shiny-input-container",
    tags$label('for'=id,label),
    tags$textarea(id=id,class=class,rows=rows,cols=cols,value))
}
library(shiny)

# Define UI for dataset viewer application
shinyUI(fixedPage(
  #標題
  titlePanel("Demo ShinyApp"),
  #左邊
  sidebarLayout(
    sidebarPanel(
	textInput(inputId="Login_User", label="User", value = ''),
	textInput(inputId="Login_Num", label="Number", value = ''),
      submitButton("Start Work")
    ),
    #右邊
    mainPanel(
	tabsetPanel(
	tabPanel('SendText',
		br(),
		h3('Bulletin Board'),
		tags$textarea(id="Message", rows=5, cols=50, "Leave Message"),
		br(),
		verbatimTextOutput("text1")
		)
	)
    )
  )
))