Procházet zdrojové kódy

Adjust selection of Harvard Sentences for color example

tags/v0.2.0
Garrick Aden-Buie před 8 roky
rodič
revize
8bc4bec7ee
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. +1
    -1
      R/regex_gadget.R

+ 1
- 1
R/regex_gadget.R Zobrazit soubor

}) })


observeEvent(input$help_try_this_hs_colors_text, { observeEvent(input$help_try_this_hs_colors_text, {
color_match <- "\\b(red|orange|yellow|green|blue|purple|he)\\b|red"
color_match <- "\\b(red|orange|yellow|green|blue|purple)\\b|red"
color_text <- stringr::sentences[grepl(color_match, stringr::sentences)] color_text <- stringr::sentences[grepl(color_match, stringr::sentences)]
color_text <- sample(color_text, 25) color_text <- sample(color_text, 25)
updateTextAreaInput(session, "text", value = paste(color_text, collapse = "\n")) updateTextAreaInput(session, "text", value = paste(color_text, collapse = "\n"))

Načítá se…
Zrušit
Uložit