app_name = 'linear-correlation-demo'

with open('app.R') as ofile:
	line = ofile.readline()

	while line != 'ui <- fluidPage(\n':
		line = ofile.readline()

	with open('{}/ui.R'.format(app_name), 'w') as wfile:
		wfile.write('library(shiny)\n\n')

		while line != 'server <- function(input, output) {\n':
			wfile.write(line)

			line = ofile.readline()

	with open('{}/server.R'.format(app_name), 'w') as wfile:
		line = ofile.readline()

		wfile.write('library(shiny)\n\n')

		wfile.write('shinyServer(function(input, output, session) {\n')

		while line != 'shinyApp(ui = ui, server = server)':
			wfile.write(line)

			line = ofile.readline()

		wfile.write(')\n')