ggfacet switch param for strip location #224
Conversation
|
tests/testthat/test-gg-plots.R:14:1: style: lines should not be more than 80 characters. suppressWarnings(print(ggally_denstrip(tips, mapping = aes_string("sex", "tip")))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:18:1: style: lines should not be more than 80 characters. suppressWarnings(print(ggally_denstrip(tips, mapping = aes_string("tip", "sex")))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:28:1: style: lines should not be more than 80 characters. mapping = ggplot2::aes_string(x = "total_bill", y = "tip", fill = "..level..")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:37:1: style: lines should not be more than 80 characters. ggally_cor(tips, mapping = ggplot2::aes_string(x = "total_bill", y = "tip"), use = "NOTFOUND"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:44:1: style: lines should not be more than 80 characters. p <- ggally_cor(ti, ggplot2::aes(x = total_bill, y = tip, color = day), use = "complete.obs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:45:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[2]])$colour), "labelp")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:52:1: style: lines should not be more than 80 characters. expect_equal(deparse(get("aes_params", envir = p$layers[[1]])$colour), "I(\"blue\")")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:67:1: style: lines should not be more than 80 characters. expect_print(ggally_cor(ti, ggplot2::aes(x = total_bill, y = tip, color = "green")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:103:3: style: Variable and function names should be all lowercase. pDat1 <- get("data", envir = p$layers[[2]])
^~~~~tests/testthat/test-gg-plots.R:104:8: style: Variable and function names should be all lowercase. attr(pDat1, "out.attrs") <- NULL
^~~~~tests/testthat/test-gg-plots.R:105:3: style: Variable and function names should be all lowercase. testDt1 <- data.frame(
^~~~~~~tests/testthat/test-gg-plots.R:106:1: style: lines should not be more than 80 characters. xPos = c(0.076, 0.076, 0.076, 0.076, 0.076, 0.076, 0.500, 1.000, 1.500, 2.000, 2.500),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:107:1: style: lines should not be more than 80 characters. yPos = c(0.500, 1.000, 1.500, 2.000, 2.500, 0.076, 0.076, 0.076, 0.076, 0.076, 0.076),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:113:12: style: Variable and function names should be all lowercase. rownames(testDt1) <- 2:12
^~~~~~~tests/testthat/test-gg-plots.R:114:16: style: Variable and function names should be all lowercase. expect_equal(pDat1, testDt1)
^~~~~tests/testthat/test-gg-plots.R:114:23: style: Variable and function names should be all lowercase. expect_equal(pDat1, testDt1)
^~~~~~~tests/testthat/test-gg-plots.R:117:3: style: Variable and function names should be all lowercase. pDat2 <- get("data", envir = p$layers[[2]])
^~~~~tests/testthat/test-gg-plots.R:118:8: style: Variable and function names should be all lowercase. attr(pDat2, "out.attrs") <- NULL
^~~~~tests/testthat/test-gg-plots.R:119:3: style: Variable and function names should be all lowercase. testDt2 <- data.frame(
^~~~~~~tests/testthat/test-gg-plots.R:124:16: style: Variable and function names should be all lowercase. expect_equal(pDat2, testDt2)
^~~~~tests/testthat/test-gg-plots.R:124:23: style: Variable and function names should be all lowercase. expect_equal(pDat2, testDt2)
^~~~~~~tests/testthat/test-gg-plots.R:147:1: style: lines should not be more than 80 characters. p <- ggally_densityDiag(tips, mapping = ggplot2::aes(x = day), rescale = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:156:1: style: lines should not be more than 80 characters. p <- ggally_barDiag(tips, mapping = ggplot2::aes(x = tip), binwidth = 0.25, rescale = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gg-plots.R:160:1: style: lines should not be more than 80 characters. p <- ggally_barDiag(tips, mapping = ggplot2::aes(x = tip), binwidth = 0.25, rescale = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggcoef.R:10:1: style: lines should not be more than 80 characters. reg <- lm(Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width, data = iris)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggcoef.R:14:1: style: lines should not be more than 80 characters. reg2 <- glm(Survived ~ Sex + Age + Class, family = binomial, data = d, weights = d$Freq)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggcorr.R:4:3: style: Commented code should be removed. # nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggfacet.R:9:27: style: Variable and function names should be all lowercase. NIR_sub <- data.frame(NIR$yGlcEtOH, NIR$xNIR[, 1:3])
^~~~~~~~tests/testthat/test-ggfacet.R:9:41: style: Variable and function names should be all lowercase. NIR_sub <- data.frame(NIR$yGlcEtOH, NIR$xNIR[, 1:3])
^~~~tests/testthat/test-ggfacet.R:24:1: style: lines should not be more than 80 characters. expect_print(ggfacet(NIR_sub, columnsY = 1:2, columnsX = 3:5, fn = ggally_smooth_loess))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggfacet.R:30:1: style: lines should not be more than 80 characters. expect_print(ggfacet(NIR_sub, columnsY = 1:2, columnsX = 3:5, fn = ggally_smooth_loess))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggfacet.R:34:1: style: lines should not be more than 80 characters. ggts(pigs, "time", c("gilts", "profit", "s_per_herdsz", "production", "herdsz"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglegend.R:12:3: style: Variable and function names should be all lowercase. histPlot <- qplot(
^~~~~~~~tests/testthat/test-gglegend.R:20:13: style: Variable and function names should be all lowercase. (right <- histPlot)
^~~~~~~~tests/testthat/test-gglegend.R:21:14: style: Variable and function names should be all lowercase. (bottom <- histPlot + theme(legend.position = "bottom"))
^~~~~~~~tests/testthat/test-gglegend.R:22:11: style: Variable and function names should be all lowercase. (top <- histPlot + theme(legend.position = "top"))
^~~~~~~~tests/testthat/test-gglegend.R:23:12: style: Variable and function names should be all lowercase. (left <- histPlot + theme(legend.position = "left"))
^~~~~~~~tests/testthat/test-gglegend.R:27:5: style: Variable and function names should be all lowercase. plotLegend <- grab_legend(p)
^~~~~~~~~~tests/testthat/test-gglegend.R:28:26: style: Variable and function names should be all lowercase. expect_true(inherits(plotLegend, "gtable"))
^~~~~~~~~~tests/testthat/test-gglegend.R:29:26: style: Variable and function names should be all lowercase. expect_true(inherits(plotLegend, "gTree"))
^~~~~~~~~~tests/testthat/test-gglegend.R:30:26: style: Variable and function names should be all lowercase. expect_true(inherits(plotLegend, "grob"))
^~~~~~~~~~tests/testthat/test-gglegend.R:31:18: style: Variable and function names should be all lowercase. expect_print(plotLegend)
^~~~~~~~~~tests/testthat/test-gglegend.R:46:1: style: lines should not be more than 80 characters. ggally_points(iris, ggplot2::aes(Sepal.Length, Sepal.Width, color = Species))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglegend.R:88:1: style: lines should not be more than 80 characters. pm[1, 2] <- points_legend(iris, ggplot2::aes(Sepal.Width, Sepal.Length, color = Species))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglyph.R:5:1: style: Variable and function names should be all lowercase. nasaLate <- nasa[
^~~~~~~~tests/testthat/test-gglyph.R:15:5: style: Variable and function names should be all lowercase. nasaLate, # no lint
^~~~~~~~tests/testthat/test-gglyph.R:37:25: style: Variable and function names should be all lowercase. expect_true(all(names(nasaLate) %in% names(dt)))
^~~~~~~~tests/testthat/test-gglyph.R:42:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[1]])$colour), "red")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglyph.R:43:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[2]])$colour), "blue")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglyph.R:49:1: style: lines should not be more than 80 characters. expect_message(glyphs(nasaLate, "long", "day", "lat", "surftemp", height = 1), "Using width 2.38")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglyph.R:49:25: style: Variable and function names should be all lowercase. expect_message(glyphs(nasaLate, "long", "day", "lat", "surftemp", height = 1), "Using width 2.38")
^~~~~~~~tests/testthat/test-gglyph.R:50:1: style: lines should not be more than 80 characters. expect_message(glyphs(nasaLate, "long", "day", "lat", "surftemp", width = 1), "Using height 2.37")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-gglyph.R:50:25: style: Variable and function names should be all lowercase. expect_message(glyphs(nasaLate, "long", "day", "lat", "surftemp", width = 1), "Using height 2.37")
^~~~~~~~tests/testthat/test-gglyph.R:57:6: style: Variable and function names should be all lowercase. dt$dayLog <- dt$day
^~~~~~tests/testthat/test-gglyph.R:59:20: style: Variable and function names should be all lowercase. dtm <- merge(dt, nasaLate)
^~~~~~~~tests/testthat/test-gglyph.R:60:23: style: Variable and function names should be all lowercase. expect_true(all(dtm$dayLog == log(dtm$day)))
^~~~~~tests/testthat/test-gglyph.R:63:6: style: Variable and function names should be all lowercase. dt$surftempLog <- dt$surftemp
^~~~~~~~~~~tests/testthat/test-gglyph.R:65:20: style: Variable and function names should be all lowercase. dtm <- merge(dt, nasaLate)
^~~~~~~~tests/testthat/test-gglyph.R:66:23: style: Variable and function names should be all lowercase. expect_true(all(dtm$surftempLog == log(dtm$surftemp)))
^~~~~~~~~~~tests/testthat/test-gglyph.R:70:8: style: Variable and function names should be all lowercase. dt$surftempScaled <- dt$surftemp
^~~~~~~~~~~~~~tests/testthat/test-gglyph.R:72:22: style: Variable and function names should be all lowercase. dtm <- merge(dt, nasaLate)
^~~~~~~~tests/testthat/test-gglyph.R:73:25: style: Variable and function names should be all lowercase. expect_true(all(dtm$surftempScaled != dtm$surftemp))
^~~~~~~~~~~~~~tests/testthat/test-gglyph.R:82:8: style: Variable and function names should be all lowercase. dt$surftempScaled <- dt$surftemp
^~~~~~~~~~~~~~tests/testthat/test-gglyph.R:84:22: style: Variable and function names should be all lowercase. dtm <- merge(dt, nasaLate)
^~~~~~~~tests/testthat/test-gglyph.R:85:25: style: Variable and function names should be all lowercase. expect_true(all(dtm$surftempScaled != dtm$surftemp))
^~~~~~~~~~~~~~tests/testthat/test-gglyph.R:118:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[2]])$fill), "green")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix_add.R:29:1: style: lines should not be more than 80 characters. expect_error(pm + ggplot2::geom_abline(), "'ggmatrix' does not know how to add")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:11:1: style: lines should not be more than 80 characters. expect_error(ggmatrix(plots = matrix(), nrow = 2, ncol = 3), "'plots' must be a list()")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:13:1: style: lines should not be more than 80 characters. expect_error(ggmatrix(plots = list(), nrow = "2", ncol = 3), "'nrow' must be a numeric value")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:14:1: style: lines should not be more than 80 characters. expect_error(ggmatrix(plots = list(), nrow = 2, ncol = "3"), "'ncol' must be a numeric value")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:32:1: style: lines should not be more than 80 characters. expect_print(ggpairs(tips, 1:2, columnLabels = exprs, labeller = "label_parsed"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:33:1: style: lines should not be more than 80 characters. expect_error(print(ggpairs(tips, 1:2, columnLabels = expression(alpha, beta))), "xAxisLabels")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:38:3: style: Variable and function names should be all lowercase. plotList <- list()
^~~~~~~~tests/testthat/test-ggmatrix.R:42:5: style: Variable and function names should be all lowercase. plotList[[i]] <- p
^~~~~~~~tests/testthat/test-ggmatrix.R:45:5: style: Variable and function names should be all lowercase. plotList,
^~~~~~~~tests/testthat/test-ggmatrix.R:61:5: style: Variable and function names should be all lowercase. plotList,
^~~~~~~~tests/testthat/test-ggmatrix.R:79:3: style: Variable and function names should be all lowercase. plotList <- list()
^~~~~~~~tests/testthat/test-ggmatrix.R:83:5: style: Variable and function names should be all lowercase. plotList[[i]] <- p
^~~~~~~~tests/testthat/test-ggmatrix.R:86:5: style: Variable and function names should be all lowercase. plotList,
^~~~~~~~tests/testthat/test-ggmatrix.R:157:3: style: Commented code should be removed. # printShowStrips <- c(TRUE, FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:159:5: style: Commented code should be removed. # printShowStrip <- printShowStrips[i]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggmatrix.R:161:5: style: Commented code should be removed. # printShowStrip <- NULL
^~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:22:4: style: Commented code should be removed. ### --- start: documented examples
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:49:4: style: Commented code should be removed. ### --- end: documented examples
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:51:4: style: Commented code should be removed. ### --- test deprecations
^~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:78:9: style: Commented code should be removed. # "NA/NaN/Inf"
^~~~~~~~~~~~tests/testthat/test-ggnet.R:83:5: style: Commented code should be removed. # p <- ggnet(n, mode = "geo")
^~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:84:5: style: Commented code should be removed. # expect_equal(p$data$X1, xy[, 1])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:85:5: style: Commented code should be removed. # expect_equal(p$data$X2, xy[, 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:100:4: style: Commented code should be removed. ### --- test errors in set_node
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:109:4: style: Commented code should be removed. ### --- test errors in set_edges
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:114:5: style: Commented code should be removed. # expect_error(ggnet(n, size = "phono"), "incorrect")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:120:4: style: Commented code should be removed. ### --- test mode = c(x, y)
^~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:127:1: style: lines should not be more than 80 characters. expect_error(ggnet(n, mode = matrix(1, ncol = 2, nrow = 9)), "coordinates length")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:129:4: style: Commented code should be removed. ### --- test arrow.size
^~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:134:4: style: Commented code should be removed. ### --- test arrow.gap
^~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:152:4: style: Commented code should be removed. ### --- test degree centrality
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:156:4: style: Commented code should be removed. ### --- test weight.min, weight.max and weight.cut
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:159:1: style: lines should not be more than 80 characters. expect_error(ggnet(n, weight = "degree", weight.min = -1), "incorrect weight.min")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:160:1: style: lines should not be more than 80 characters. expect_message(ggnet(n, weight = "degree", weight.min = 1), "weight.min removed")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:161:1: style: lines should not be more than 80 characters. expect_warning(ggnet(n, weight = "degree", weight.min = 99), "removed all nodes")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:164:1: style: lines should not be more than 80 characters. expect_error(ggnet(n, weight = "degree", weight.max = -1), "incorrect weight.max")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:165:1: style: lines should not be more than 80 characters. expect_message(ggnet(n, weight = "degree", weight.max = 99), "weight.max removed")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:175:4: style: Commented code should be removed. ### --- test node.group and node.color
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:179:4: style: Commented code should be removed. ### --- test node labels and label sizes
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:183:1: style: lines should not be more than 80 characters. expect_error(ggnet(n, label = letters[ 1:10 ], label.size = "abc"), "incorrect label.size")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:185:4: style: Commented code should be removed. ### --- test node placement
^~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:190:4: style: Commented code should be removed. ### --- test label.trim
^~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:191:1: style: lines should not be more than 80 characters. expect_error(ggnet(n, label = TRUE, label.trim = "xyz"), "incorrect label.trim")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:195:4: style: Commented code should be removed. ### --- test layout.exp
^~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:199:4: style: Commented code should be removed. ### --- test bipartite functionality
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:220:4: style: Commented code should be removed. ### --- test network coercion
^~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:222:1: style: lines should not be more than 80 characters. expect_warning(ggnet(network(matrix(1, nrow = 2, ncol = 2), loops = TRUE)), "self-loops")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:225:1: style: lines should not be more than 80 characters. expect_error(ggnet(network(data.frame(1:2, 3:4), hyper = TRUE)), "hyper graphs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:226:1: style: lines should not be more than 80 characters. expect_error(ggnet(network(data.frame(1:2, 3:4), multiple = TRUE)), "multiplex graphs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet.R:228:4: style: Commented code should be removed. ### --- test igraph functionality
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:19:4: style: Variable and function names should be all lowercase. rq(RColorBrewer) # test ColorBrewer palettes
^~~~~~~~~~~~tests/testthat/test-ggnet2.R:23:4: style: Commented code should be removed. ### --- start: documented examples
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:39:5: style: Commented code should be removed. # ggnet2(n, label = TRUE, shape = 15)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:40:5: style: Commented code should be removed. # ggnet2(n, label = TRUE, shape = 15, color = "black", label.color = "white")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:48:1: style: lines should not be more than 80 characters. ggnet2(n, color = "phono", palette = c("vowel" = "gold", "consonant" = "grey"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:65:5: style: Commented code should be removed. # ggnet2(flo, label = TRUE, size = 12, color = "white")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:67:4: style: Commented code should be removed. ### --- end: documented examples
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:84:5: style: Commented code should be removed. # ggnet2(n, edge.color = "weight")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:93:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, mode = matrix(1, ncol = 2, nrow = 9)), "coordinates length")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:162:5: style: Commented code should be removed. # ggnet2(n, color = "phono", color.palette = c("vowel" = 1, "consonant" = 2))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:164:1: style: lines should not be more than 80 characters. ggnet2(n, color = "phono", palette = "Set1") # only 2 groups, palette has min. 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:165:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, color = factor(1:10), palette = "Set1"), "too many node groups")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:182:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, size = "phono", size.palette = c("vowel" = 1)), "no size.palette value")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:189:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, label = TRUE, label.alpha = "xyz"), "incorrect label.alpha")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:192:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, label = TRUE, label.color = "xyz"), "incorrect label.color")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:195:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, label = TRUE, label.size = "xyz"), "incorrect label.size")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:198:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, label = TRUE, label.trim = "xyz"), "incorrect label.trim")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:224:1: style: lines should not be more than 80 characters. expect_error(ggnet2(n, edge.label = "xyz", edge.label.size = "xyz"), "incorrect edge.label.size")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:233:4: style: Commented code should be removed. ### --- test bipartite functionality
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:254:4: style: Commented code should be removed. ### --- test network coercion
^~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:256:1: style: lines should not be more than 80 characters. expect_warning(ggnet2(network(matrix(1, nrow = 2, ncol = 2), loops = TRUE)), "self-loops")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:259:1: style: lines should not be more than 80 characters. expect_error(ggnet2(network(data.frame(1:2, 3:4), hyper = TRUE)), "hyper graphs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:260:1: style: lines should not be more than 80 characters. expect_error(ggnet2(network(data.frame(1:2, 3:4), multiple = TRUE)), "multiplex graphs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnet2.R:262:4: style: Commented code should be removed. ### --- test igraph functionality
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:18:1: style: lines should not be more than 80 characters. airports <- read.csv("http://datasets.flowingdata.com/tuts/maparcs/airports.csv", header = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:42:1: style: lines should not be more than 80 characters. flights %v% "mygroup" <- sample(letters[1:4], network.size(flights), replace = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:70:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$colour), ".ngroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:72:1: style: lines should not be more than 80 characters. p <- ggnetworkmap(usa, flights, size = 2, great.circles = TRUE, node.color = "red")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:73:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[3]])$colour), "red")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:81:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$colour), ".rgroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:82:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$fill), ".ngroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:93:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$colour), ".rgroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:94:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$fill), ".ngroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:95:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[2]])$colour), "cornflowerblue")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:100:1: style: lines should not be more than 80 characters. p <- ggnetworkmap(usa, flights, size = 2, great.circles = TRUE, node.group = degree,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:108:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$colour), ".rgroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:109:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$fill), ".ngroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:110:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[2]])$colour), "cornflowerblue")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:111:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$size), ".weight")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:125:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$colour), ".rgroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:126:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$fill), ".ngroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:127:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[2]])$colour), "cornflowerblue")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:128:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$size), ".weight")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:129:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[4]])$label), ".label")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:142:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$colour), ".rgroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:143:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$fill), ".ngroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:144:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("aes_params", envir = p$layers[[2]])$colour), "cornflowerblue")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:145:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[3]])$size), ".weight")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:146:1: style: lines should not be more than 80 characters. expect_equal(as.character(get("mapping", envir = p$layers[[4]])$label), ".label")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:156:3: style: Variable and function names should be all lowercase. testLabels <- paste("L", 1:network.size(flights), sep = "")
^~~~~~~~~~tests/testthat/test-ggnetworkmap.R:159:49: style: Variable and function names should be all lowercase. p <- ggnetworkmap(usa, flights, label.nodes = testLabels)
^~~~~~~~~~tests/testthat/test-ggnetworkmap.R:161:4: style: Commented code should be removed. ## expect_equal(get("data", p$layers[[4]])$.label, testLabels)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:169:24: style: Variable and function names should be all lowercase. flights2 %v% "id" <- testLabels
^~~~~~~~~~tests/testthat/test-ggnetworkmap.R:174:2: style: Commented code should be removed. ### --- test arrow.size
^~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:177:1: style: lines should not be more than 80 characters. expect_error(ggnetworkmap(net = flights, arrow.size = -1), "incorrect arrow.size")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:178:1: style: lines should not be more than 80 characters. expect_warning(ggnetworkmap(net = network(as.matrix(flights), directed = FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:182:2: style: Commented code should be removed. ### --- test network coercion
^~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:191:1: style: lines should not be more than 80 characters. expect_error(ggnetworkmap(net = network(data.frame(1:2, 3:4), hyper = TRUE)), "hyper graphs")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnetworkmap.R:198:2: style: Commented code should be removed. ### --- test igraph functionality
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnostic.R:40:1: style: lines should not be more than 80 characters. expect_error(fn(dummy_dt, ggplot2::aes_string(value = "B")), "function could not be found")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggnostic.R:65:1: style: lines should not be more than 80 characters. columnsY = c("mpg", ".fitted", ".se.fit", ".resid", ".std.resid", ".sigma", ".hat", ".cooksd"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:10:1: style: lines should not be more than 80 characters. iris2$alphaLevel <- c("setosa" = 0.2, "versicolor" = 0.3, "virginica" = 0)[iris2$Species]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:10:7: style: Variable and function names should be all lowercase. iris2$alphaLevel <- c("setosa" = 0.2, "versicolor" = 0.3, "virginica" = 0)[iris2$Species]
^~~~~~~~~~tests/testthat/test-ggparcoord.R:15:5: style: Commented code should be removed. # ggparcoord(data = diamonds.samp, columns = c(1, 5:10))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:18:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = NULL, order = "anyClass"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:22:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = NULL, order = "allClass"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:27:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = c(1, 2)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:36:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = 2, scale = "notValid"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:49:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = 2, missing = "notValid"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:54:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = 2, order = "notValid"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:58:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = 2, order = 1i),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:63:1: style: lines should not be more than 80 characters. ggparcoord(data = diamonds.samp, columns = c(1, 5:10), groupColumn = 2, showPoints = 1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~tests/testthat/test-ggparcoord.R:74:3: style: Variable and function names should be all lowercase. tmpDt <- diamonds.samp
^~~~~tests/testthat/test-ggparcoord.R:75:3: style: Variable and function names should be all lowercase. tmpDt$price[1] <- NA
^~~~~ |
need more testing
need example of moving strips. See #223
Fixes #223