I am not able to figure out how to link the HTML hyper links to my text file
text_sherlock <- HTML(text_sherlock)
text_sherlock <- a(text_sherlock,href ='war.txt')
html_print(text_sherlock) # gave me the output with hyper links but as a full text and not individual words even though i split it before with `strsplit`
but when using the above HTML with markovchainFit i am getting error as : not compatible with STRSXP
server <- function(input, output, session) {
output$mytext <- renderUI({
sentences <- rep(make_sentences(input$inputString))
length(sentences)
cat(paste0(1:length(sentences)," ",sentences,sep= '\n'))
})
}
ui<- shinyUI(fluidPage(
# Application title
mainPanel(
fluidRow(HTML("<strong> Guide Search Bar")),
fluidRow(
br(),
p("User Name : ")),
br(),
br(),
fluidRow(HTML("<strong>Enter a word.Click \"Next words\" after</strong>") ),
fluidRow( p("\n") ),
# Sidebar layout
sidebarLayout(
sidebarPanel(
textInput("inputString","Enter a word here",value = " "),
submitButton("Next words")
),
mainPanel(
h4("Are you looking for this ?"),
tags$style("#mytext {white-space: pre-line;}"),
uiOutput("mytext")
)
)
)))
I was trying to put HTML for make_sentences( after the alogrithm) but getting error there too