# Open R notebook in the Viewer

myViewer <- getOption("viewer")
file.copy("04_Notebook.nb.html", file.path(tempdir(), "04_Notebook.nb.html"))
myViewer(file.path(tempdir(), "04_Notebook.nb.html"))