Question

我不是html或JavaScript的专家。所以，我希望你能帮助解决这个问题。

我认为我应该提供较小版本的应用，以便能够解释问题。这是一个简单应用程序的app.R，允许用户在textArea中编写，让我们说一个单词。单词的第一个字母将自动显示为操作按钮的标签，如果用户单击操作按钮，则会更新textArea的内容，说明用户所写的单词是以元音还是辅音开头的。

library(shiny)
library(shinydashboard)

# Define UI for application 
ui <- dashboardPage(
    dashboardHeader(
            title = "page_title"
    ),
    dashboardSidebar(
    ),
    dashboardBody(
            tabBox(title = "app_title",
                    id = "id", width = "800px",
                    tabPanel("tab1)",
                             fluidRow(
                                     column(width = 12,
                                            box(
                                                    status = "info", solidHeader = TRUE,
                                                    collapsible = FALSE,
                                                    width = 12, 
                                                    title = "textInput", 
                                                    tags$textarea(id = "text_input1", rows =  2, cols = 50, "", autofocus = "autofocus"), 
                                                    fluidRow(
                                                            column(width = 12, 
                                                            actionButton("actionbutton1", label = textOutput("actionbutton1_label"))
                                                            )))))),
                    tabPanel("tab2"
                    ))))

# Define server logic 

server <- function(input, output, session) {
    data1 <- eventReactive(input$actionbutton1, {substr(input$text_input1, 1, 1)})
    output$actionbutton1_label <- renderPrint(cat(noquote({substr(input$text_input1, 1, 1)})))
    observe({
            if (input$actionbutton1 == 0) return()
            isolate({
                    if (data1() %in% c("a", "e", "i", "o", "u")) {
                            updateTextInput(session, "text_input1",
                                            value = paste(input$text_input1, "starts with a vowel", "", sep = " "))
                    }
                    else {
                            updateTextInput(session, "text_input1",
                                            value = paste(input$text_input1, "starts with a consonant", "", sep = " "))
                    }
            })
    })}
# Run the application 
shinyApp(ui = ui, server = server)

问题定义：当您第一次运行上面的应用程序时，您将在textArea中看到光标，因为参数autofocus =＆＃34; autofocus＆＃34;在textArea标签定义中，因此关注加载没有问题。单击操作按钮时，光标不再位于textArea中。对于这个简单的应用程序，这似乎是不必要的，但对于实际的应用程序，它很重要，我希望在用户单击操作按钮后将光标放回textArea。

问题再次出现，只要应用程序的用户点击操作按钮，光标就会从textArea中消失，应用程序的用户必须在文本区域中单击以使光标返回并继续他/她输入。我希望通过保持光标始终处于活动状态并将焦点集中在textArea中来保存用户额外的点击，无论用户使用app界面的其他元素多少次。

研究：网上有很多关于如何控制光标位置的帖子。在这些帖子中，我认为，如果我错了，请纠正我，这种方法几乎与我希望实现的方法最相关：

http://www.mediacollege.com/internet/javascript/form/focus.html

我需要哪些具体帮助：

如果你点击上面的链接，你会发现我在这里复制的一段非常有趣的HTML代码：

<form name="myform2">
<input type="text" name="mytextfield2">
<input type="button" name="mybutton" value="Set Focus"   OnClick="document.myform2.mytextfield2.focus();">
</form>

以下是我希望您能够帮助我的方法，以及如何以及在何处将此代码嵌入我闪亮的ui.R中？当然，我必须为textArea和按钮分配一个表单，然后我将相应地更改textArea和按钮的名称。我只需要使上面的html代码ui.R友好（可读和可执行）。对此有任何帮助非常感谢。

到目前为止我尝试了什么并且它没有工作：

tags$head(HTML("<form name="myform2">
                         <input type="text" name="text_input1">
                         <input type="button" name="addword1" value="Set Focus" OnClick="document.myform2.text_input1.focus();">
                         </form>"))

正如您所看到的，当我将上述代码嵌入到ui.R文件中时，语法混乱并引发了各种语法警告。

可能很重要：我正在使用闪亮的信息中心，textArea和操作按钮都在dashboardBody的tabBox中的tabPanel中定义。

非常感谢

Answer 1

所以在UI方面你需要这样的东西：

tags$script('
Shiny.addCustomMessageHandler("myCallbackHandler",
        function(null) {
          document.myform2.text_input1.focus();
        });
')

然后在与observeEvent相关的actionButton中调用此函数：

session$sendCustomMessage("myCallbackHandler",list(NULL))

因此，当您调用该自定义处理程序时，服务器中的任何时候它都会专注于输入。您可能需要更改函数中的javascript以使页面正常工作，因为我不知道HTML中对象的名称。

希望这有帮助。

Answer 2

这是一个像你问的工作版：

library(shiny)
library(shinydashboard)

# Define UI for application 
ui <- dashboardPage(
  dashboardHeader(
    title = "page_title"
  ),
  dashboardSidebar(
  ),
  dashboardBody(tags$head(tags$script(
    'Shiny.addCustomMessageHandler("refocus",
                                  function(NULL) {
                                    document.getElementById("text_input1").focus();
                                  });'
    )),
    tabBox(title = "app_title",
           id = "id", width = "800px",
           tabPanel("tab1",
                    fluidRow(
                      column(width = 12,
                             box(
                               status = "info", solidHeader = TRUE,
                               collapsible = FALSE,
                               width = 12, 
                               title = "textInput", 
                               tags$textarea(id = "text_input1", rows =  2, cols = 50, "", autofocus = "autofocus"), 
                               fluidRow(
                                 column(width = 12, 
                                        actionButton("actionbutton1", label = textOutput("actionbutton1_label"))
                                 )))))),
           tabPanel("tab2"
           ))))

# Define server logic 

server <- function(input, output, session) {
  data1 <- eventReactive(input$actionbutton1, {

    substr(input$text_input1, 1, 1)

    })

  output$actionbutton1_label <- renderPrint(cat(noquote({substr(input$text_input1, 1, 1)})))

  observeEvent(input$actionbutton1,{

    isolate({
      if (data1() %in% c("a", "e", "i", "o", "u")) {
        updateTextInput(session, "text_input1",
                        value = paste(input$text_input1, "starts with a vowel", "", sep = " "))
      }
      else {
        updateTextInput(session, "text_input1",
                        value = paste(input$text_input1, "starts with a consonant", "", sep = " "))
      }

      session$sendCustomMessage(type="refocus",message=list(NULL))

    })

  })}
# Run the application 
shinyApp(ui = ui, server = server)

单击闪亮的动作按钮后将光标聚焦在textArea中

2 个答案: