library(shiny)
library(shinydashboard)
library(DT)
library(readr)
library(dplyr)
library(ggplot2)
library(data.table)
library(ROracle)
drv <- dbDriver("Oracle")
# Create the connection string
host <- "localhost"
port <- 1521
sid <- "test"
connect.string <- paste( "(DESCRIPTION=", "(ADDRESS=(PROTOCOL=tcp)(HOST=", host, ")(PORT=", port, "))", "(CONNECT_DATA=(SID=", sid, ")))", sep = "")
con <- dbConnect(drv, username = "c##kevin", password = "kevin",dbname=connect.string,beliveNRows=FALSE)
rs <- dbSendQuery(con, "select * from BASEBALL")
data <- fetch(rs)
dim(data)
data
allData <- as.data.frame(data)
playerChoices <- unique(allData$name)
yearChoices <- unique(allData$yearID)
metricChoices <- c("G", "AB", "R", "H", "Doubles", "Triples", "HR", "RBI", "BB", "SO")
teamChoices <- unique(allData$franchName)
This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.
If you have a query related to it or one of the replies, start a new topic and refer back with a link.