在 R 中使用 numericRangeInput 在 ggplot2 中設置 xlim

Question

我想使用 numericrangeInput 控制 xlim。 初始值設置為 c(NA,NA)。

如果我嘗試更改比例最小值和最大值，並且在更新其中一個值之前會引發錯誤Missing values cannot be used where TRUE/FALSE values are required

任何修復此錯誤的建議。

下面是代碼

      library(shiny)
      library(tidyverse)

      data <- faithful %>% mutate(eruptionTime=lubridate::now() + lubridate::dhours(cumsum(waiting)))

      ui <- fluidPage(
             numericRangeInput(inputId = "noui1", label = "Numeric Range Input:",
             value = c(NA, NA)
             ),  
            plotOutput("plot9")
            )

      server <- function(input, output) {


           output$plot9 <- renderPlot({

           print(paste("What is the condition",!anyNA(input$noui1))) 
   
           iris %>%ggplot() + geom_point(aes(x=Sepal.Length, y=Petal.Length)) +
           coord_cartesian(xlim=input$noui1)

          })
          }

     shinyApp(ui = ui, server = server)

Answer 1

只有在numericRangeInput輸入兩個數字后，才能更新繪圖。

試試這個代碼 -

library(shiny)
library(tidyverse)

data <- faithful %>% mutate(eruptionTime=lubridate::now() + lubridate::dhours(cumsum(waiting)))

ui <- fluidPage(
  numericRangeInput(inputId = "noui1", label = "Numeric Range Input:",
                    value = c(NA, NA)
  ),  
  plotOutput("plot9")
)

server <- function(input, output) {
  
  
  output$plot9 <- renderPlot({
    plot <- iris %>%ggplot() + geom_point(aes(x=Sepal.Length, y=Petal.Length))
    
    if(length(input$noui1) == 2)
      plot <- plot + coord_cartesian(xlim=input$noui1)
    plot
  })
}

shinyApp(ui = ui, server = server)