inst/vosondash/ui/popovers.R

In VOSONDash: User Interface for Collecting and Analysing Social Networks

po_reseed_graph <- function() {
  title <- "Re-seed Graph"
  content <- "Generate a new random number to seed the graph layout."
  
  list(title = title, content = content)
}

po_graph_layout <- function() {
  title <- "Graph Layout Algorithms"
  content <- paste0("Select a network layout for the graph.<br><br>",
                    "<code>FR</code> Fruchterman-Reingold<br>",
                    "<code>KK</code> Kamada-Kawai<br>",
                    "<code>DH</code> Davidson-Harel<br>",
                    "<code>LGL</code> Large Graph Layout<br>",
                    "<code>DrL</code> Distributed Recursive Layout<br>",
                    "<code>GEM</code> GEM Force-Directed Layout<br>",
                    "<code>MDS</code> Multidimensional Scaling Layout<br><br>",
                    "<i class = 'fa fa-book-reader'></i>&nbsp;&nbsp;",
                    "<a href = 'https://igraph.org/c/doc/igraph-Layout.html' target = '_blank'>igraph Layouts</a>"
                    )
  
  list(title = title, content = content)
}

po_cat_filter <- function() {
  title <- "Categorical Filter"
  content <- paste0("Categorical variables are identified by graph vertex attributes with names that begin with the ",
                    "prefix code <code>vosonCA_</code>. VOSON Dash does not provide an interface for adding ",
                    "these vertex attributes at this time, so they must be added to the graph in a seperate data ",
                    "coding process.<br><br>",
                    "When found these variables appear in the <code>Category</code> select list and can be used to ",
                    "filter graph vertices using the list of category values under <code>View</code>.")
  
  list(title = title, content = content)
}

po_twit_query <- function() {
  title <- "Twitter Search Query"
  content <- paste0("A range of search operators and filters can be used in the <code>Search Query</code> input. ",
                    "Simple terms can also entered and used in conjunction with the <code>Additional Filters</code> ",
                    "provided.<br><br>",
                    "<i class = 'fa fa-book-reader'></i>&nbsp;&nbsp;",
                    "<a href = 'https://developer.twitter.com/en/docs/tweets/rules-and-filtering/overview/standard-",
                    "operators' target = '_blank'>Twitter Standard Search Operators</a>"
                    )
  
  list(title = title, content = content)
}

po_twit_id_range <- function() {
  title <- "Twitter ID Range"
  content <- paste0("Set the bounds of a search. <code>Since ID</code> requests the twitter API to return only ",
                    "tweets tweeted after a particular tweet or status ID. <code>Max ID</code> requests the return ",
                    "of only tweets tweeted before a tweet or status ID."
  )
  
  list(title = title, content = content)
}

po_twit_lang <- function() {
  title <- "Tweet Language"
  content <- paste0("Requests the twitter API to return tweets in the language entered as two character ",
                    "<code>ISO 639-1</code> code. Language detection is best-effort.<br><br>",
                    "<i class = 'fa fa-book-reader'></i>&nbsp;&nbsp;",
                    "<a href = 'https://en.wikipedia.org/wiki/List_of_ISO_639-1_codes'",
                    "target = '_blank'>ISO 639-1 Language Codes</a>"
  )
  
  list(title = title, content = content)
}

po_twit_results <- function() {
  title <- "Search Results"
  content <- paste0("Requests the twitter API to return tweets of the following result types.<br><br>",
                    "<code>Recent</code> Return only the most recent tweets in results<br>",
                    "<code>Mixed</code> Return mixture of both popular and real time tweets in results<br>",
                    "<code>Popular</code> Return only the most popular tweets in results"
  )
  
  list(title = title, content = content)
}

po_twit_assoc <- function() {
  title <- "Concept Relations"
  content <- paste0("<code>Limited</code> option includes only ties between most frequently ",
                    "occurring hashtags and terms. If unchecked the network will include ties between most ",
                    "frequently occurring hashtags and terms, hashtags and hashtags, and terms and terms."
  )
  
  list(title = title, content = content)
}

po_yt_url <- function() {
  title <- "Youtube Video URL"
  content <- paste0("Enter a Youtube video URL in either long or short format.<br><br>",
                    "<i class = 'fa fa-angle-right'></i>&nbsp;&nbsp;",
                    "<code>https://www.youtube.com/watch?v=xxxxxxxxxxx</code><br>",
                    "<i class = 'fa fa-angle-right'></i>&nbsp;&nbsp;",
                    "<code>https://youtu.be/xxxxxxxx</code>"
  )
  
  list(title = title, content = content)
}

po_red_url <- function() {
  title <- "Reddit Thread URL"
  content <- paste0("Enter a Reddit thread URL in the following format.<br><br>",
                    "<i class = 'fa fa-angle-right'></i>&nbsp;&nbsp;",
                    "<code>https://www.reddit.com/r/xxxxxx/<br>comments/xxxxxx/x_xxxx_xxxx</code><br><br>",
                    "Collects maximum 500 comments per thread."
  )
  
  list(title = title, content = content)
}

po_web_auth <- function() {
  title <- "Web Auth Token"
  content <- paste0("This token creation method is interactive and will open a web browser tab to twitter asking you ",
                    "to login and authorize the twitter app. This allows the app to access the twitter API on your ",
                    "behalf.<br><br>", 
                    "As <code>VOSONDash</code> only uses the twitter search API an app only requires minimal ",
                    "<code>read</code> access to the users twitter account.<br><br>",
                    "Note: Unfortunately a current side-effect of <code>aborting</code> or interupting / not ",
                    "completing the process is ending the <code>VOSONDash</code> session. Please save any work before ",
                    "continuing.",
                    "<br><br>",
                    "<i class = 'fa fa-book-reader'></i>&nbsp;&nbsp;",
                    "<a href = 'https://developer.twitter.com/en/docs/basics/authentication/overview/oauth'",
                    "target = '_blank'>Twitter API: Application-user authentication</a>"
  )
  
  list(title = title, content = content)
}