testthat::context("amFloatingBar") library(pipeR) data(data_fbar) data(data_gbar) testthat::test_that("Basic example", { testthat::expect_silent({ # Load data # Reference example : column chart amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup", data = data_fbar, labelRotation = -45) # Label rotation modification amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup", data = data_fbar, labelRotation = -90) # Horizontal bar amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup", data = data_fbar, horiz = TRUE) # 3D bar amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup", data = data_fbar, labelRotation = -45, depth = 15) # Display values amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup", data = data_fbar, labelRotation = -90, show_values = TRUE) # Change colors amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup", data = data_fbar[,1:3], labelRotation = -45, groups_color = "#67b7dc") # Grouped columns # Parse dates # Default label: firt day of each year amFloatingBar(x = "year", y_inf = "expenses", y_sup = "income", data = data_gbar, dataDateFormat = "YYYY", minPeriod = "YYYY", zoom = TRUE) # Default label: first day of each month amFloatingBar(x = "month", y_inf = "expenses", y_sup = "income", data = data_gbar, dataDateFormat = "MM/YYYY", minPeriod = "MM", zoom = TRUE) amFloatingBar(x = "day", y_inf = "expenses", y_sup = "income", data = data_gbar, dataDateFormat = "DD/MM/YYYY", zoom = TRUE) }) })