# Open R notebook in the Viewer

myViewer <- getOption("viewer")

file.copy("07_Introduction_to_Visualisations_in_R.nb.html", 
          file.path(tempdir(), 
          "07_Introduction_to_Visualisations_in_R.nb.html"))

myViewer(file.path(tempdir(), 
                   "07_Introduction_to_Visualisations_in_R.nb.html"))