## Not run:
# library(shiny)
# library(HARtools)
# har <- readHAR(system.file(package = "HARtools", "exdata",
# "r-project.org.161028_W2_11MA.har"))
# hv <- HARviewer(har)
#
# shinyApp(
# ui = fluidPage(
# HARviewerOutput("myHAR")
# ),
# server = function(input, output) {
# output$myHAR <- renderHARviewer(hv)
# }
# )
# ## End(Not run)
Run the code above in your browser using DataLab