使用用户输入在Shinydashboard R中生成推文

Question

我试图根据R中的用户输入生成推文。这是我第一次使用Shiny。

为了使用tweet按钮，我使用了从Web意向tweet生成器获得的链接。

但是，我想根据用户在选择按钮中选择的内容来更新tweet链接。 到目前为止，我只能获得tweet按钮，单击该按钮只会给我通过Web Intent Tweet生成器生成的Tweet。

到目前为止，我所做的是：

url = "https://twitter.com/intent/tweet?text=name"

ui <- dashboardPage(
   dashboardSidebar(
     sidebarMenu(
    menuItem("test", tabName = 'test'))
     tabItem(tabName = 'test',
              h2('test2'),
              fluidRow(
                box(width = 12,
                  column(width= 3, 
                           selectInput("name", "Select name", 
                                       choices = sort(unique(df$name), decreasing = F)),
                            br(),

                      fluidRow(style='margin: 2px;',
                             actionButton("twitter_share_button",
                                   label = "Tweet",
                                   icon = icon("twitter"),
                                   onclick = sprintf("window.open('%s')",url)


)))))

server(input, output, session) {

dat <- reactive({
   df
  })

}


shinyApp(ui = ui, server = server)            

但是，我想根据用户在选择字段中选择的内容来更新该推文。

这里有一个类似的问题，我实施了建议的解决方案，但是以某种方式无法正常工作。 问题的链接： 使用Shiny APP中的用户输入更新URL

我还尝试使用此处提供的解决方案将选择器用于输入： 链接R闪亮的selectInput项目以打开文件actionButton

我不确定在这里是否寻找正确的解决方案。

我也尝试过使用useShinyjs（），然后在服务器端使用onclick函数，但没有用。

任何帮助将非常感激。

谢谢！