Eu estava construindo umApp comRshiny.

Eu tenho algunsinfoBoxe eu gostaria de usar ohref opção para fazer um pop-up ao clicar noinfoBox.

Eu uso o shinyBS para as opções pop-up. aqui está o que eu tentei:

valueBox(value=entry_01, icon = icon("users","fa-lg",lib="font-awesome"),href=shinyInput(actionLink,id='button_01',len=1,class="btn btn-default action-button",label=""),
        width=NULL,color = "light-blue",subtitle = ""
)

Mas eu descobri que ohref opção funcionará perfeitamente se quisermos vincular um site externo comohref = "http://stackoverflow.com/" mas não sabia como vincular um link interno do aplicativo.

EDITAR

Eu faço essa edição porque encontrei uma solução que torna a caixa clicável e torna brilhante pensar que era um botão de ação, adicionando duas variáveis dentro da lista de saída valueBox.
- a classeaction-button
- Oid que nos permitem usar observe ou observeEvent para detectar quando a caixa de valor é clicada.

Aqui está um exemplo reproduzível

require(shiny)
require(shinydashboard)


header <- dashboardHeader(title="ReproductibleExample")
sidebar <- dashboardSidebar(disable=T)
body <- dashboardBody(valueBoxOutput("box_01"),
                      textOutput("print"))

ui <- dashboardPage(header, sidebar, body)


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

  output$box_01 <- renderValueBox({
  entry_01<-20
  box1<-valueBox(value=entry_01
                 ,icon = icon("users",lib="font-awesome")
                 ,width=NULL
                 ,color = "blue"
                 ,href="#"
                 ,subtitle=HTML("<b>Test click on valueBox</b>")
                 )
    box1$children[[1]]$attribs$class<-"action-button"
    box1$children[[1]]$attribs$id<-"button_box_01"
    return(box1)
  })

  output$print<-renderText({
    print(input$button_box_01)
  })
})



shinyApp(ui,server)