| # Loads data from OpenTSDB. | |
| # | |
| # `server.url`: The URL of the OpenTSDB server (e.g. 'http://tsdb.example.com') | |
| # `metrics`: List of strings specifying the metrics to pull (e.g. | |
| # c("avg:web.cpu.user{host=*}", "sum:web.requests{type=login}") | |
| # ) | |
| # `start.dt`: How far to go back in the time series, in any format OpenTSDB | |
| # (e.g. "4h-ago") | |
| # `end.dt`: Where to end the results (defaults to now) | |
| # `datify`: Whether to convert timestamps to POSIXlt objects (defaults to TRUE) |
| doOver: | |
| DELETE TOP (50000) | |
| FROM mytable | |
| WHERE recordinsertdt <= | |
| ( | |
| SELECT DATEADD(day, -215, CAST(GETDATE() AS DATE)) | |
| ); | |
| IF @@rowcount > 0 | |
| GOTO doOver; |
| #need to install devtools to download and install package from GitHub | |
| library(devtools) | |
| install_github("weatherData", "Ram-N") | |
| library(weatherData) | |
| data1 <- getWeatherForDate("KTXSHINE2", station_type = "id", start_date="2016-11-01", | |
| end_date = "2016-11-08", | |
| opt_detailed = TRUE, | |
| opt_all_columns = TRUE) |
#Getting Started With R
This document is not exhaustive and just shows what you need to get R and RStudio on your computer.
##Download R
| require(data.table) | |
| require(lubridate) | |
| #create the data frames | |
| #x is a data table with a list of events to match against the different dates in x to see if there is overlap | |
| x = data.table( | |
| eventid=c(1,2,3), | |
| start =mdy_hms(c('10/1/2016 04:30:00','10/1/2016 18:02:00','10/2/2016 14:21:00')), | |
| end =mdy_hms(c('10/1/2016 05:43:00','10/2/2016 01:23:00','10/4/2016 08:54:00')) |
| require(data.table) #data.table is only required to create the sample data frame | |
| require(reshape2) #dcast is a function in the reshape2 package | |
| #generate a data table with some records | |
| df <- data.table(ServerName = c('SERVER1','SERVER2','SERVER3','SERVER4'),RecordDate = seq(as.Date("2011-12-30"), as.Date("2012-01-11"), by="days"),Value = seq(0, 30, by = 2.35)) | |
| #Pivot the result, force the value to be the "Value" field | |
| df <- dcast(df, RecordDate ~ ServerName, value.var = 'Value') | |
| #Get rid of NA values in the data frame |
| --When you have a number that needs to be formatted with leading zeroes | |
| DECLARE @idnumber INT= 80253; | |
| SELECT @idnumber AS idnumberint, | |
| RIGHT('000000'+CAST(@idnumber AS VARCHAR), 6) AS idnumbervarchar; |
| #'% Using Dates and Times in R | |
| #'% Bonnie Dixon | |
| #'% 14-02-10 15:09:57 | |
| #' | |
| #' *Today at the [Davis R Users' | |
| #' Group](http://www.noamross.net/davis-r-users-group.html), [Bonnie | |
| #' Dixon](http://ffhi.ucdavis.edu/people/directory/bmdixon) gave a tutorial on the | |
| #' various ways to handle dates and times in R. Bonnie provided this great script | |
| #' which walks through essential classes, functions, and packages. Here it is piped through | |
| #' `knitr::spin`. The original R script can be found as a gist |
| ##### This is a simple RODBC example | |
| ##### The ODBCDriverName will be the driver name in ODBC Administrator | |
| require(RODBC) | |
| #open the ODBC connection | |
| ch <- odbcConnect("ODBCDriverName") | |
| ##### Alternative ODBC connection for Microsoft SQL Server | |
| ch <- odbcDriverConnect( |
Download binary from oracle: http://www.oracle.com/technetwork/database/database-technologies/r/roracle/downloads/index.html
The run the following command in r, substituting the file path:
setwd('xxxxx') # set to path of download
install.packages('ROracle_1.1-11.zip', repos = NULL)