要保持shinyWidgets::airMonthinputPicker()中选择当前月份，可以使用updateAirMonthinputPicker()函数来更新选择的月份。以下是一个示例代码：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  airMonthInput("month", "选择月份"),
  actionButton("submit", "保持当前月份")
)

server <- function(input, output, session) {
  observeEvent(input$submit, {
    # 获取当前月份
    current_month <- format(Sys.Date(), "%Y-%m")
    
    # 更新airMonthinputPicker的选择月份
    updateAirMonthinputPicker(session, "month", selected = current_month)
  })
}

shinyApp(ui, server)

在上述示例中，我们首先创建了一个airMonthInput组件，并在observeEvent中监视"submit"按钮的点击事件。当点击按钮时，我们使用format(Sys.Date(), "%Y-%m")获取当前日期的月份，并使用updateAirMonthinputPicker()函数将选择的月份更新为当前月份。