shinybs

I would like to add a (?) next to the title of a widget so that the user can hover or click it and get extra information and a link they can click. This is what I have right now: ## app.R ## library(shiny) library(shinydashboard) library(shinyBS) # Header header <- dashboardHeader() # Sidebar sidebar <- dashboardSidebar(fileInput("chosenfile", label = h4("File input"), accept = ".csv"), bsButton("q1", label = "", icon = icon("question"), style = "info", size = "extra-small"), bsPopover(id = "q1", title = "Tidy data", content = paste0("You should read the ", a("tidy data paper", href = "http:/

I am trying to use shiny modules to re-use the UI and server code to present off of three different data sets that share the same presentation. Running into a bit of a challenge dealing with namespace when using javascript based modal popup link creation outside of the UI / server code. Here is my non-working app code: library(shiny) library(shinyBS) library(DT) df <- data.frame(id = c('a', 'b', 'c'), value = c(1, 2, 3)) on_click_js = " Shiny.onInputChange('myLinkName', '%s'); $('#myModal').modal('show') " convert_to_link = function(x) { as.character(tags$a(href = "#", onclick = sprintf(on

Here is my code for a basic shiny app using plotly_click event to optionally show another plot. I would like that side box plot to render in a modal pop up instead of on the side within the page. library(shiny) library(plotly) df1 <- data.frame(x = 1:10, y = 1:10) df2 <- data.frame(x = c(rep('a', 10), rep('b', 10)), y = c(rnorm(10), rnorm(10, 3, 1))) ui <- fluidPage( column(6, plotlyOutput('scatter')), column(6, plotlyOutput('box')) ) server <- function(input, output) { output$scatter <- renderPlotly({ plot_ly(df1, x = x, y = y, mode = 'markers', source = 'scatter') }) output$box <-

I was wondering if it is possible to create a popup dialog box interactive by using shiny (and shinyBS). For example, I have a string and I want to change it and before doing a dialog box shows up asking if I really want to change it. In case I say "yes", it does it otherwise it discards the change. Here's my try but I found two issues: 1. if you click "yes" or "no", nothing changes 2. you always need to close the box by the bottom "close". rm(list = ls()) library(shiny) library(shinyBS) name <- "myname" ui =fluidPage( textOutput("curName"), br(), textInput("newName", "Name of variable:", name

I working on a project where I have to create a form in shiny. I currently have a datatable in the UI which has email in the form of hyperlink. Once the hyperlink is clicked the modal window opens where I have another UI which shows the various fields to be filled. I have a save button here that should update my DB in the backend once the button is clicked. The problem I am facing is that I am unable to reference each email to that particular modal window and my update query updates all the records in the DB. Is there a way to pass all the record details that has been clicked into the modal