install.packages(plotly) library(plotly) library(plotly) p <- plot_ly(mtcars, x = mpg, y = disp, mode = "markers") htmlwidgets::saveWidget(as.widget(p), "index.html") htmlwidgets::saveWidget(as.widget(p), "index.html") p = plot_ly(z = volcano, type = "surface") htmlwidgets::saveWidget(as.widget(p), "index.html") ls() r(p) rm(p) fix(Function.Base.Config.Environment) Data.Required.Libraries=c("plotly") ls() Function.Base.Config.Environment Function.Base.Config.Environment() fix(Function.Base.Load.Library) Function.Base.Config.Environment() fix (Function.Graph.Plotly) fix (Function.Graph.Plotly) q() ls() fix (Function.Graph.Plotly) fix (Function.Graph.Plotly) save.image() Function.Graph.Plotly(001, 1, 2); Function.Graph.Plotly("001", 1, 2); fix (Function.Graph.Plotly) Function.Graph.Plotly("001", 1, 2); p <- plot_ly(z = volcano, type = "surface") htmlwidgets::saveWidget(as.widget(p), "index.html") htmlwidgets::saveWidget(as.widget(p), "Graphs/index.html") help(htmlwidgets::saveWidget) help(saveWidget) htmlwidgets::saveWidget(as.widget(p), libdir="Graphs", "index.html") htmlwidgets::saveWidget(as.widget(p), libdir="Graphs", "Graphs/index.html") htmlwidgets::saveWidget(as.widget(p), libdir="Graphs", "index.html") setwd("Graphs") htmlwidgets::saveWidget(as.widget(p), "index.html") fix (Function.Graph.Plotly) Function.Graph.Plotly("001", 1, 2); setwd("../") Function.Graph.Plotly("001", 1, 2); getwd() setwd("../") q() ls() rm(p) ls() fix(Function.Graph.Plotly) q() fix (Function.Graph.Plotly) getwd() save.image() fix (Function.Graph.Plotly) save.image() fix (Function.Graph.Plotly) save.image() fix (Function.Graph.Plotly) save.image() fix (Function.Graph.Plotly) save.image() fix (Function.Graph.Plotly) fix (Function.Base.Config.Environment) fix (Function.Base.Load.Library) save.image() fix (Function.Base.Load.Library) fix (Function.Base.Config.Environment) fix (Function.Graph.Plotly) save.image() fix (Function.Graph.Plotly) save.image() system(whoiam) system("whoiam") system("whoami") su www-data fix (Function.Graph.Plotly) q()