discgolf (version 0.2.0)

topics: Work with topics

Description

Work with topics

Usage

topics_latest(url = NULL, key = NULL, user = NULL, ...)
topics_new(url = NULL, key = NULL, user = NULL, ...)
topics_by(id, url = NULL, key = NULL, user = NULL, ...)
topic(id, url = NULL, key = NULL, user = NULL, ...)
topic_create(title, text, category = NULL, url = NULL, key = NULL,
  user = NULL, ...)
topic_delete(id, url = NULL, key = NULL, user = NULL, ...)
topic_rename(id, title, url = NULL, key = NULL, user = NULL, ...)

Arguments

url

Base url for a Discourse installation. See disc_setup

key

Your api key on the Discourse installation. See disc_setup

user

Your user name on the Discourse installation. See disc_setup

...

Named parameters passed on to HttpClient

id

A user identifier, or a topic identifier. See examples.

title

Title of the new topic

text

Raw text, can include markdown and will be rendered.

category

Category to apply to topic, if any, Default: none

Examples

# NOT RUN {
topics_latest()
topics_new()
topics_by("cboettig")
topic(8)

topics_latest(verbose = TRUE)

# Create topic
## simple
topic_create(title="testing from discgolf - 10", text="testing from discgolf, hello world!
hopefully this works")

## more complicated
text <- '
## this time with markdown

```r
print("hello world")
#> [1] "hello world"
```

```r
head(mtcars)
#>                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1
```
'
topic_create(title="testing from discgolf - 23", text=text)

# delete a topic
topic_delete(242)


# rename a topic - DOESN'T WORK YET
## create a topic
# res <- topic_create(title = "testing from discgolf - 5",
#    text = "testing from discgolf, again")
## rename
# res$topic_slug
# topic_rename(res$topic_id, title = "new title")
# topic(res$topic_id)$title
## cleanup
# topic_delete(res$topic_id)
# }