input_folder <- paste(system.file("extdata", "", package = "activPAL"),"/",sep="")
output_folder <- paste(tempdir(),"/",sep="")
activPAL::daily.stepping.activity.bubble.chart(input_folder,output_folder)
Run the code above in your browser using DataLab