是的，
首先，你必须避免重复的id（dataset和plot），否则什么都不能用。
然后你必须在侧边栏中为TabSet面板分配一个ID，e例如tabsetSidebar，以及主面板中导航栏页面的ID，例如tabsetSidebar。例如navbar。然后，您可以在服务器中执行以下操作：

server <- function(input, output, session) {

  observeEvent(input[["navbar"]], {
    if(input[["navbar"]] == "tab1") {
      updateTabsetPanel(session, "tabsetSidebar", selected = "option1")
    } else {
      updateTabsetPanel(session, "tabsetSidebar", selected = "option2")
    }
  })

}

下面是带有更正的UI：

ui <-
  fluidPage(sidebarLayout(
    sidebarPanel(h5("sidebar:"),
      width = 2, style = "position:right;top:70px;",
      tabsetPanel(
        id = "tabsetSidebar",
        type = "pills",
        tabPanel(
          title = "option1",
          selectInput(
            inputId = "dataset1",
            label = "Dataset:",
            choices = c(
              "Example" = "example",
              "Examle" = "example"
            ),
            selected = "example"
          )
        ),
        tabPanel(
          title = "option2",
          selectInput(
            inputId = "dataset2",
            label = "Dataset:",
            choices = c(
              "Example" = "example",
              "example" = "example"
            ),
            selected = "example"
          ),
        )
      )
    ),
    mainPanel(
      width = 10,
      navbarPage(
        id = "navbar",
        title = "tabs",
        tabPanel(
          "tab1",
          fluidRow(
            tabsetPanel(type = "pills", ),
            mainPanel(
              width = 12, style = "height: 100vh; overflow-y: auto;",
              fluidRow(
                plotOutput("plot1", height = "50vh"),
              )
            )
          )
        ),
        tabPanel(
          "tab2",
          fluidRow(
            tabsetPanel(type = "pills", ),
            mainPanel(
              width = 12, style = "height: 100vh; overflow-y: auto;",
              fluidRow(
                plotOutput("plot2", height = "50vh"),
              )
            )
          )
        )
      )
    )
  )
)