hi @kmprioli
Your code works perfectly. I tried to put the action button on the right side of input box, but didn't happen. Do you think you could help? Here's my code for input file:
library(shiny)
if (interactive()) {
library(shinyBS)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
div(style="display:inline-block;vertical-align:top;",
fluidRow(
column(4,
br(),
bsButton("q1", label = "click for more info", icon = icon("question"), style = "info", size = "extra-small")),
column(8,
fileInput("file", "Upload File *", accept = ".txt"))
)),
bsPopover(id = "q1", title = "data",
content = "more info",
placement = "right",
trigger = "click", options = NULL)
),
verbatimTextOutput ("text")
)
)
server <- function(input, output,session) ({ })
shinyApp (ui, server)
}