R Notebook

setwd("/home/anshul/Desktop/animint/animint/tests/")

setwd("testthat")

Error in setwd("testthat") : cannot change working directory

if(interactive()){
  tests_init("firefox")
}

Starting selenium binary. To shut it down, run: 
remDr$closeWindow() 
remDr$closeServer()
Error: checkForServer is now defunct. Users in future can find the function
    in file.path(find.package("RSelenium"), "examples/serverUtils"). The
    recommended way to run a selenium server is via Docker. Alternatively
    see the RSelenium::rsDriver function.

df <- read.csv("futures data.csv")
df$Trade.Date <- as.Date(df$Trade.Date, format="%d/%m/%y")
df_new <- melt(df[, c("Trade.Date", "USD.AF8.FUT", "JPY.AF8.FUT", "GBP.AF8.FUT", "EUR.AF8.FUT")], id="Trade.Date")
bp<-c("2011-01-01", "2012-01-01", "2013-01-01", "2014-01-01", "2015-01-01", "2016-01-01", 
      "2017-01-01", "2018-01-01")
bpoints = as.Date(bp, format="%Y-%m-%d")
df_new$year <- as.numeric(format(df$Trade.Date,'%Y'))
df_new$bucket <- cut(df_new$year, breaks = c(2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018))
head(df_new)

theme_config = theme(plot.background = element_rect(fill = "lightsteelblue2", colour = "red"), plot.title = element_text(size = 20, face="bold", hjust = 0.5), 
                     plot.subtitle = element_text(size = 10, hjust = 0.5), 
                     plot.caption = element_text(size = 10), 
                     axis.text.x = element_text(size = 10, angle=30, hjust = 0.5), 
                     axis.text.y = element_text(size=10, angle = 30), 
                     panel.background = element_rect(fill = "pink"),
                     panel.grid.minor = element_line(color = "white", linetype = "dashed")) 
gg_anm2_sel <- ggplot(df_new) + geom_line(aes(x=df_new$Trade.Date, y=value, color=variable)) + labs(title="Futures FX Data: Line PLot", subtitle="2010-2018", x="Dates", y="Future Exchange Rate(INR)", caption="Source: MSEI") + theme_config 
gg_anm2_out <- ggplot(df_new) + geom_point(aes(x=df_new$Trade.Date, y=value, color=variable, fill= bucket, showSelected=bucket)) + labs(title="Futures FX Data: Data Points", subtitle="As per year selected", x="Dates", y="Future Exchange Rate(INR)", caption="Source: MSEI") + theme_config 
plot <- list(plot1=gg_anm2_sel, plot2=gg_anm2_out)

info <- animint2HTML(plot)

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OgogIHBkZl9kb2N1bWVudDogZGVmYXVsdAogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQKLS0tCgpgYGB7cn0Kc2V0d2QoIi9ob21lL2Fuc2h1bC9EZXNrdG9wL2FuaW1pbnQvYW5pbWludC90ZXN0cy8iKQpgYGAKCgpgYGB7cn0KI2xpYnJhcnkodGVzdHRoYXQpCmxpYnJhcnkoYW5pbWludCkKbGlicmFyeShSU2VsZW5pdW0pCmxpYnJhcnkocmVzaGFwZTIpCmxpYnJhcnkoWE1MKQpzZXR3ZCgidGVzdHRoYXQiKQpzb3VyY2UoImhlbHBlci1mdW5jdGlvbnMuUiIpCmBgYAoKYGBge3J9CmZpbHRlciA8LSBTeXMuZ2V0ZW52KCJURVNUX1NVSVRFIikKZG9udC5uZWVkLmJyb3dzZXIgPC0gZ3JlcGwoImNvbXBpbGVyIiwgZmlsdGVyKQp1c2UuYnJvd3NlciA8LSAhZG9udC5uZWVkLmJyb3dzZXIKaWYoZmlsdGVyID09ICIiKXsKICBmaWx0ZXIgPC0gTlVMTAp9CmlmKGludGVyYWN0aXZlKCkpewogIHRlc3RzX2luaXQoImZpcmVmb3giKQp9CgppZih1c2UuYnJvd3Nlcil0ZXN0c19pbml0KCkKdGVzdHNfcnVuKGZpbHRlcj1maWx0ZXIpCmlmKHVzZS5icm93c2VyKXRlc3RzX2V4aXQoKQpgYGAKCgpgYGB7cn0KZGYgPC0gcmVhZC5jc3YoImZ1dHVyZXMgZGF0YS5jc3YiKQpkZiRUcmFkZS5EYXRlIDwtIGFzLkRhdGUoZGYkVHJhZGUuRGF0ZSwgZm9ybWF0PSIlZC8lbS8leSIpCmRmX25ldyA8LSBtZWx0KGRmWywgYygiVHJhZGUuRGF0ZSIsICJVU0QuQUY4LkZVVCIsICJKUFkuQUY4LkZVVCIsICJHQlAuQUY4LkZVVCIsICJFVVIuQUY4LkZVVCIpXSwgaWQ9IlRyYWRlLkRhdGUiKQpicDwtYygiMjAxMS0wMS0wMSIsICIyMDEyLTAxLTAxIiwgIjIwMTMtMDEtMDEiLCAiMjAxNC0wMS0wMSIsICIyMDE1LTAxLTAxIiwgIjIwMTYtMDEtMDEiLCAKICAgICAgIjIwMTctMDEtMDEiLCAiMjAxOC0wMS0wMSIpCmJwb2ludHMgPSBhcy5EYXRlKGJwLCBmb3JtYXQ9IiVZLSVtLSVkIikKZGZfbmV3JHllYXIgPC0gYXMubnVtZXJpYyhmb3JtYXQoZGYkVHJhZGUuRGF0ZSwnJVknKSkKZGZfbmV3JGJ1Y2tldCA8LSBjdXQoZGZfbmV3JHllYXIsIGJyZWFrcyA9IGMoMjAwOSwgMjAxMCwgMjAxMSwgMjAxMiwgMjAxMywgMjAxNCwgMjAxNSwgMjAxNiwgMjAxNywgMjAxOCkpCmhlYWQoZGZfbmV3KQpgYGAKCgpgYGB7cn0KdGhlbWVfY29uZmlnID0gdGhlbWUocGxvdC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAibGlnaHRzdGVlbGJsdWUyIiwgY29sb3VyID0gInJlZCIpLCBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCwgZmFjZT0iYm9sZCIsIGhqdXN0ID0gMC41KSwgCiAgICAgICAgICAgICAgICAgICAgIHBsb3Quc3VidGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEwLCBoanVzdCA9IDAuNSksIAogICAgICAgICAgICAgICAgICAgICBwbG90LmNhcHRpb24gPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEwKSwgCiAgICAgICAgICAgICAgICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMCwgYW5nbGU9MzAsIGhqdXN0ID0gMC41KSwgCiAgICAgICAgICAgICAgICAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemU9MTAsIGFuZ2xlID0gMzApLCAKICAgICAgICAgICAgICAgICAgICAgcGFuZWwuYmFja2dyb3VuZCA9IGVsZW1lbnRfcmVjdChmaWxsID0gInBpbmsiKSwKICAgICAgICAgICAgICAgICAgICAgcGFuZWwuZ3JpZC5taW5vciA9IGVsZW1lbnRfbGluZShjb2xvciA9ICJ3aGl0ZSIsIGxpbmV0eXBlID0gImRhc2hlZCIpKSAKZ2dfYW5tMl9zZWwgPC0gZ2dwbG90KGRmX25ldykgKyBnZW9tX2xpbmUoYWVzKHg9ZGZfbmV3JFRyYWRlLkRhdGUsIHk9dmFsdWUsIGNvbG9yPXZhcmlhYmxlKSkgKyBsYWJzKHRpdGxlPSJGdXR1cmVzIEZYIERhdGE6IExpbmUgUExvdCIsIHN1YnRpdGxlPSIyMDEwLTIwMTgiLCB4PSJEYXRlcyIsIHk9IkZ1dHVyZSBFeGNoYW5nZSBSYXRlKElOUikiLCBjYXB0aW9uPSJTb3VyY2U6IE1TRUkiKSArIHRoZW1lX2NvbmZpZyAKZ2dfYW5tMl9vdXQgPC0gZ2dwbG90KGRmX25ldykgKyBnZW9tX3BvaW50KGFlcyh4PWRmX25ldyRUcmFkZS5EYXRlLCB5PXZhbHVlLCBjb2xvcj12YXJpYWJsZSwgZmlsbD0gYnVja2V0LCBzaG93U2VsZWN0ZWQ9YnVja2V0KSkgKyBsYWJzKHRpdGxlPSJGdXR1cmVzIEZYIERhdGE6IERhdGEgUG9pbnRzIiwgc3VidGl0bGU9IkFzIHBlciB5ZWFyIHNlbGVjdGVkIiwgeD0iRGF0ZXMiLCB5PSJGdXR1cmUgRXhjaGFuZ2UgUmF0ZShJTlIpIiwgY2FwdGlvbj0iU291cmNlOiBNU0VJIikgKyB0aGVtZV9jb25maWcgCnBsb3QgPC0gbGlzdChwbG90MT1nZ19hbm0yX3NlbCwgcGxvdDI9Z2dfYW5tMl9vdXQpCmBgYAoKCmBgYHtyfQppbmZvIDwtIGFuaW1pbnQySFRNTChwbG90KQpgYGAKCg==