When doing a reformat: Does anyone know a way to stop this...
if (level < 6) {
1.0
} else if (item_tier == ITEM$TIER$GREEN) {
if (durability == TRUE) {
c( 0.7, 0.5128, 0.1724, 0.1176, 0.0769, 0.0625, 0.05, 0.04, 0.0375,
0.02, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )[level - 5]
} else {
c( 0.7, 0.5128, 0.3448, 0.2352, 0.1538, 0.1250, 0.1, 0.08, 0.075,
0.06, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )[level - 5]
}
} else {
# White, Blue
c( 0.7, 0.2564, 0.1724, 0.1176, 0.0769, 0.0625, 0.05, 0.04, 0.0286,
0.02, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )[level - 5]
}
from becoming this...
if (level < 6) {
1.0
} else if (item_tier == ITEM$TIER$GREEN) {
if (durability == TRUE) {
c(
0.7,
0.5128,
0.1724,
0.1176,
0.0769,
0.0625,
0.05,
0.04,
0.0375,
0.02,
0.1176,
0.0769,
0.0625,
0.02,
0.003
)[level - 5]
} else {
c(
0.7,
0.5128,
0.3448,
0.2352,
0.1538,
0.1250,
0.1,
0.08,
0.075,
0.06,
0.1176,
0.0769,
0.0625,
0.02,
0.003
)[level - 5]
}
} else {
# White, Blue
c(
0.7,
0.2564,
0.1724,
0.1176,
0.0769,
0.0625,
0.05,
0.04,
0.0286,
0.02,
0.1176,
0.0769,
0.0625,
0.02,
0.003
)[level - 5]
}
Of course, writing it to look nicer helps but then even something like this...
RATE_SET1 <- c( 0.7, 0.5128, 0.1724, 0.1176, 0.0769, 0.0625, 0.05, 0.04, 0.0375,
0.02, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )
RATE_SET2 <- c( 0.7, 0.5128, 0.3448, 0.2352, 0.1538, 0.1250, 0.1, 0.08, 0.075,
0.06, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )
RATE_SET3 <- c( 0.7, 0.2564, 0.1724, 0.1176, 0.0769, 0.0625, 0.05, 0.04, 0.0286,
0.02, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )
if (level < 6) {
1.0
} else if (item_tier == ITEM$TIER$GREEN) {
if (durability == TRUE) {
RATE_SET1[level - 5]
} else {
RATE_SET2[level - 5]
}
} else {
# White, Blue
RATE_SET3[level - 5]
}
turns into...
RATE_SET1 <-
c(
0.7,
0.5128,
0.1724,
0.1176,
0.0769,
0.0625,
0.05,
0.04,
0.0375,
0.02,
0.1176,
0.0769,
0.0625,
0.02,
0.003
)
RATE_SET2 <-
c(
0.7,
0.5128,
0.3448,
0.2352,
0.1538,
0.1250,
0.1,
0.08,
0.075,
0.06,
0.1176,
0.0769,
0.0625,
0.02,
0.003
)
RATE_SET3 <-
c(
0.7,
0.2564,
0.1724,
0.1176,
0.0769,
0.0625,
0.05,
0.04,
0.0286,
0.02,
0.1176,
0.0769,
0.0625,
0.02,
0.003
)
if (level < 6) {
1.0
} else if (item_tier == ITEM$TIER$GREEN) {
if (durability == TRUE) {
RATE_SET1[level - 5]
} else {
RATE_SET2[level - 5]
}
} else {
# White, Blue
RATE_SET3[level - 5]
}
but at least the logic structure is discernible.
I couldn't find anything but perhaps there are comment base directives? Maybe like...
## {{ RStudioApi::styler(Style = off) }}
RATE_SET1 <- c( 0.7, 0.5128, 0.1724, 0.1176, 0.0769, 0.0625, 0.05, 0.04, 0.0375,
0.02, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )
RATE_SET2 <- c( 0.7, 0.5128, 0.3448, 0.2352, 0.1538, 0.1250, 0.1, 0.08, 0.075,
0.06, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )
RATE_SET3 <- c( 0.7, 0.2564, 0.1724, 0.1176, 0.0769, 0.0625, 0.05, 0.04, 0.0286,
0.02, 0.1176, 0.0769, 0.0625, 0.02, 0.003 )
## {{ RStudioApi::styler(Style = on) }}
if (level < 6) {
1.0
} else if (item_tier == ITEM$TIER$GREEN) {
if (durability == TRUE) {
RATE_SET1[level - 5]
} else {
RATE_SET2[level - 5]
}
} else {
# White, Blue
RATE_SET3[level - 5]
}