闪亮 - 转到同一页面的另一个部分

Question

我正在使用以下代码并尝试执行以下操作。

单击操作按钮转到下一步 table。我该怎么做？

    library(shiny)
    library(shinydashboard)
    library(ggplot2)
    
    ui <- fluidPage(
        fluidRow(box(
            actionButton("btn1", "Go to Next Table"),
            tableOutput("tbl1")
        )),
        fluidRow(box(
            tableOutput("tbl2")
        ))
    )
    
    server <- function(input, output, session) {
      output$tbl1 <- renderTable(mtcars)
      output$tbl2 <- renderTable(mpg)
    }
    
    shinyApp(ui, server)

Answer 1

这是一种解决方案：

library(shiny)
library(shinydashboard)
library(ggplot2)

ui <- fluidPage(
  fluidRow(box(
    actionButton("btn1", "Go to Next Table", 
                 onclick = "location.href='#table2';"),
    tableOutput("tbl1")
  )),
  fluidRow(id = "table2", box(
    tableOutput("tbl2")
  ))
)

server <- function(input, output, session) {
  output$tbl1 <- renderTable(mtcars)
  output$tbl2 <- renderTable(mpg)
  
}

shinyApp(ui, server)

我已经为 UI 中的位置添加了一个唯一 ID - 这里是第二个 fluidRow，然后向 [=] 添加了一个 onclick javascript 函数13=]也在UI。没有服务器功能意味着所有工作都由用户的浏览器完成，这有时很方便。

您可以在此处为 Javascript 添加无限的复杂性以对其进行自定义以满足您的需要。

闪亮 - 转到同一页面的另一个部分

Shiny - Go to another section in same page

anchor

r

shiny