R Shiny DateRangeInput поможет выбрать даты

Question

library(shiny)
ui <- fluidPage(dateRangeInput(inputId = "turkat$time",format = "yyyy-mm- 
dd",min=min(turkat$time),max = max(turkat$time),start="1990-01- 
01",separator="-" ),
            headerPanel("Earthquake"),

            mainPanel(plotOutput("map"))

)

server <- function(input, output) {
 turkat <-  reactive({
 turkat[,turkat$time]
 })
 output$map<-renderPlot({ par(mar=c(5.1, 4.1, 3.1, 2.1))

    plot(turkiye, axes=TRUE,ylim=c(38,42),xlim=c(26,42))
    points(turkat$longitude,turkat$latitude,pch=15,cex="0.5",col="green")

     })
   }

    shinyApp(ui = ui, server = server)

Я хочу нарисовать карту землетрясений между выбранными пользователем датами с R блестящей.Я новичок в этом и продолжаю принимать эту ошибку.Также я хочу построить график в соответствии с величинами, используя аргумент cex.Как я могу это сделать?

Ошибка в метке% AND% тэги $ label (class = "control-label", for = controlName,: аргумент "label" отсутствует, по умолчанию нет

заранее спасибо

Answer 1

Попробуйте это:

library(shiny)
ui <- fluidPage(
  dateRangeInput("turkat_time",format = "yyyy-mm-dd",min=min(turkat$time),max = max(turkat$time),start="1990-01-01",separator="-" ),
  headerPanel("Earthquake"),
  mainPanel(plotOutput("map"))
)

server <- function(input, output) {

  myturkat <- reactive({
    turkat[,input$turkat_time]
  })

  output$map <- renderPlot({ 
    req(myturkat())

    par(mar=c(5.1, 4.1, 3.1, 2.1))
    plot(myturkat(), axes=TRUE,ylim=c(38,42),xlim=c(26,42))
    points(myturkat()$longitude,myturkat()$latitude,pch=15,cex="0.5",col="green")
  })

}

shinyApp(ui = ui, server = server)