shiny - Shiny アプリの textInput で受け付ける文字数を制限する方法

Question

Shiny アプリ (R) で、ユーザーが textInput コマンドに応答して入力できる文字数を制限したいと考えています。

ユーザーに 50 文字までに制限するように要求し、そうでない場合はアプリにメッセージを送信させることができますが、そもそも制限を超えないようにすることをお勧めします。

提案をいただければ幸いです。

Answer 1

たとえば、shinyBSおよびstringrパッケージを使用して:

library(stringr)
library(shinyBS)
string <- "Destrier ipsum dolor cold weirwood, consectetur adipisicing elit, sed full of terrors incididunt green dreams always pays his debts. Ut in his cups sandsilk, no foe may pass spearwife nisi ut aliquip we do not sow. Duis aute warrior feed it to the goats death before disgrace maidenhead dog the seven pariatur. Rouse me not cupidatat non proident, suckling pig culpa qui officia deserunt mollit we light the way."

    observe({
        if(str_length(string)>50) {
          newstring <-str_sub(string, end=50)
          createAlert(session, inputID = "alert_anchor",
            message = "You exceeded 50 character limit!",
            dismiss = TRUE,
            block = FALSE
            append = TRUE)
            updateTextInput(session, inputID, value = newstring)
    }

    })

    # remember to create alert to shiny UI
    # bsAlert(inputID = "alert_anchor")

ShinyBSのデモページ: ShinyBS