-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
26 lines (25 loc) · 1.09 KB
/
ui.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
library(shiny)
library(DBI)
ui <- fluidPage(
headerPanel("SQL Connection:"),
sidebarPanel(
textInput("database",label = "Enter Database Name Here:",value = ""),
textInput("host",label = "Enter hostname/url here:",value = ""),
textInput("user",label = "Enter user name here:",value = ""),
passwordInput("password",label = "Password",value = ""),
textInput( "texting",label = "Enter SQL Query Here:",placeholder = "SELECT * FROM boston;"),
actionButton("connecter",label = "Connect"),
actionButton("disconnect",label = "Disconnect"),
textInput("queryname",label = "Enter file name here:"),
radioButtons("filetype",label = "File Extension Type",choices = c(".txt",".csv",".xls"),selected = ".csv"),
downloadButton("downloadtwo", label="Download SQL Data", class = "butt")
#actionButton("list", label="Connection List", class = "butt")
),
mainPanel(
tableOutput("tbl"),
tableOutput("connectionlist"),
tags$style(type="text/css",
".shiny-output-error { visibility: hidden; }",
".shiny-output-error:before { visibility: hidden; }"
))
)