Линии графика, сгенерированные функцией линий, не отображаются в выводе Shiny. - PullRequest
0 голосов
/ 03 апреля 2019

У меня есть функция, которая вызывает вызов сюжета, за которым следуют линии, а затем легенда.Выходные данные затем отображаются на блестящей странице.Проблема в том, что, хотя сюжет и легенда оба показывают, линии нет.

Это для 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, и все отображалось нормально.

...