У меня есть функция, которая вызывает вызов сюжета, за которым следуют линии, а затем легенда.Выходные данные затем отображаются на блестящей странице.Проблема в том, что, хотя сюжет и легенда оба показывают, линии нет.
Это для Shiny для R.
# helper function
myFunction <- function() {
# plot shows fine
plot(x=20,
y=0.4,
ylab="probability",
ylim=c(0,1),
xlab="X axis",
type="l",
lty="solid",
col="blue")
# lines do not show
lines(20, 0.5,lty="dashed", col="red")
# legend shows fine
legend("topright",
inset=0.02,
legend=c("vote yes", "vote no"),
lty=c("solid","dashed"),
col=c("blue","red"))
}
# server code
observe({
output$plot <- renderPlot({
myFunction()
})
})
Я получаю сюжет с легендой.Но линии не появляются.Я пробовал это вне Shiny, и все отображалось нормально.