inst/app-blorr/ui/ui_datafiles.R

tabPanel('Upload File', value = 'tab_uploadfile',

	fluidPage(

		includeCSS("mystyle.css"),

		fluidRow(

			column(12,

				tabsetPanel(type = 'tabs', id = 'tabset_upload',

					tabPanel('CSV', value = 'tab_upload_csv',

						fluidPage(

							br(),

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a comma or tab separated file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadlink2', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=00m25s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput('file1', 'Data Set:',
			                        accept = c('text/csv', '.csv',
			                            'text/comma-separated-values,text/plain')
			                    )
			                )
			            ),

			            fluidRow(
			                column(12, align = 'center',  checkboxInput('header', 'Header', TRUE))
			            ),

			            fluidRow(
			                column(12, align = 'center',
			                    selectInput('sep', 'Separator',
			                        choices = c('Comma' = ',', 'Semicolon' = ';', 'Tab' = '\t'), selected = ',')
			                )
			            ),

			            fluidRow(
			                column(12, align = 'center',
			                    selectInput('quote', 'Quote',
			                        choices = c('None' = '', 'Double Quote' = '"', 'Single Quote' = "'"), selected = '')
			                )
			            ),

			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='csv2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='csv2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )

					),
					tabPanel('Excel', value = 'tab_upload_excel',

						fluidPage(

							br(),

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a .xls or .xlsx file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadlink3', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=00m25s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput(
			                      inputId = 'file2',
			                      label = 'Choose file:',
			                      accept = c('.xls', '.xlsx')
			                    )
			                )
			            ),

			            fluidRow(
			                column(12, align = 'center',  
			                  numericInput(
			                    inputId = 'sheet_n',
			                    label = 'Sheet',
			                    value = 1,
			                    min = 1,
			                    step = 1,
			                    width = '120px'
			                  )  
			                )
			            ),

			            br(),
			            br(),

			            br(),
			            br(),

			            br(),
			            br(),
			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='excel2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='excel2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )

					),
					tabPanel('JSON', value = 'tab_upload_json',

						br(),

						fluidPage(

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a .json file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadjson', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=00m25s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput(
			                      inputId = 'file3',
			                      label = 'Choose file:',
			                      accept = '.json'
			                    )
			                )
			            ),

			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='json2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='json2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )

					),
					tabPanel('STATA', value = 'tab_upload_stata',

						br(),

						fluidPage(

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a .dta file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadstata', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=00m25s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput(
			                      inputId = 'file6',
			                      label = 'Choose file:',
			                      accept = '.dta'
			                    )
			                )
			            ),

			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='stata2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='stata2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )

					),
					tabPanel('SPSS', value = 'tab_upload_spss',

						br(),

						fluidPage(

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a .sav file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadspss', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=00m25s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput(
			                      inputId = 'file5',
			                      label = 'Choose file:',
			                      accept = '.sav'
			                    )
			                )
			            ),

			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='spss2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='spss2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )

					),
					tabPanel('SAS', value = 'tab_upload_sas',

						br(),

						fluidPage(

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a .sas7bdat file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadsas', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=00m25s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput(
			                      inputId = 'file4',
			                      label = 'Choose file:',
			                      accept = '.sas7bdat'
			                    )
			                )
			            ),

			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='sas2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='sas2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )
						
					),

					tabPanel('RDS', value = 'tab_upload_rds',

						br(),

						fluidPage(

			        fluidRow(
			          column(8, align = 'left',
			            h4('Upload Data'),
			            p('Upload data from a RDS file.')
			          ),
			          column(4, align = 'right',
			            actionButton(inputId='uploadrds2', label="Demo", icon = icon("video-camera"),
			              onclick ="window.open('https://www.youtube.com/watch?v=IckaPr19Bvc#t=00m29s', '_blank')")
			          )
			        ),
			        hr(),

			            fluidRow(
			                column(12, align = 'center',
			                    fileInput(
			                      inputId = 'file7',
			                      label = 'Choose file:',
			                      accept = ''
			                    )
			                )
			            ),

			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),
			            br(),

			            fluidRow(
			            	
			            	column(6, align = 'left',
			            		actionButton(inputId='rds2datasrc', label="Data Sources", icon = icon("long-arrow-left"))
			            	),

			            	column(6, align = 'right',
			            		actionButton(inputId='rds2datatrans', label="Data Selection", icon = icon("long-arrow-right"))
			            	)

			            )

			        )
						
					)

				)

			)

		)

	)

)

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on May 21, 2021, 9:08 a.m.