Title: | Constructing and Interacting with Databases of Presentations |
---|---|
Description: | Provides methods for constructing and maintaining a database of presentations in R. The presentations are either ones that the user gives or gave or presentations at a particular event or event series. The package also provides a plot method for the interactive mapping of the presentations using 'leaflet' by grouping them according to country, city, year and other presentation attributes. The markers on the map come with popups providing presentation details (title, institution, event, links to materials and events, and so on). |
Authors: | Ioannis Kosmidis [aut, cre] |
Maintainer: | Ioannis Kosmidis <[email protected]> |
License: | GPL-3 |
Version: | 0.8.2 |
Built: | 2025-01-29 05:09:40 UTC |
Source: | https://github.com/ikosmidis/semnar |
Provides methods for constructing and maintaining a database of presentations in R. The presentations are either ones that the user gives or gave or presentations at a particular event or event series. The package also provides a plot method for the interactive mapping of the presentations using 'leaflet' by grouping them according to country, city, year and other presentation attributes. The markers on the map come with popups providing presentation details (title, institution, event, links to materials and events, and so on).
Maintainer: Ioannis Kosmidis [email protected] (ORCID)
add_presentation()
presenter()
event()
plot.semnar()
semnar
objectCreate or add to a semnar
object
add_presentation( object, presenter = NA, presenter_name = NA, presenter_midname = NA, presenter_surname = NA, presenter_affiliation = NA, presenter_email = NA, presenter_link = NA, presenter_address = NA, country = NA, city = NA, state = NA, lon = NA, lat = NA, event = NA, title = NA, abstract = NA, type = NA, link = NA, materials = NA, institution = NA, department = NA, school = NA, venue = NA, address = NA, postcode = NA, room = NA, start = NA, end = NA, year = NA, month = NA, day = NA, start_hour = NA, end_hour = start_hour, start_min = 0L, end_min = start_min, start_sec = 0L, end_sec = 0L, tag = NA, tz = "UTC" )
add_presentation( object, presenter = NA, presenter_name = NA, presenter_midname = NA, presenter_surname = NA, presenter_affiliation = NA, presenter_email = NA, presenter_link = NA, presenter_address = NA, country = NA, city = NA, state = NA, lon = NA, lat = NA, event = NA, title = NA, abstract = NA, type = NA, link = NA, materials = NA, institution = NA, department = NA, school = NA, venue = NA, address = NA, postcode = NA, room = NA, start = NA, end = NA, year = NA, month = NA, day = NA, start_hour = NA, end_hour = start_hour, start_min = 0L, end_min = start_min, start_sec = 0L, end_sec = 0L, tag = NA, tz = "UTC" )
object |
either an object an object of class |
presenter |
either |
presenter_name |
name of the presenter of the presentation;
character string or |
presenter_midname |
middle name of the presenter of the
presentation; character string or |
presenter_surname |
surname of the presenter of the
presentation; character string or |
presenter_affiliation |
affiliation of the presenter of the
presentation; character string or |
presenter_email |
email of the presenter of the presentation;
character string or |
presenter_link |
link to the webpage of the presenter of the
presentation; character string or |
presenter_address |
address of the presenter; character string
or |
country |
country where the presentation took place; character
string or |
city |
city where the presentation took place; character
string or |
state |
state where the presentation took place; character
string or |
lon |
longitude of the venue of the presentation; numeric or
|
lat |
latitude of the venue of the presentation; numeric or
|
event |
either |
title |
title of the presentation; character string or |
abstract |
abstract of the presentation; character string or
|
type |
the type of the talk. Available options are |
link |
link to the event or seminar/talk page; character
string or |
materials |
link to the slides or materials from the
seminar/talk; character string or |
institution |
institution at which the event or seminar/talk
page took/will take space; character string or |
department |
department at which the event or seminar/talk
page took/will take space; character string or |
school |
school at which the event or seminar/talk page
took/will take space; character string or |
venue |
venue at which the event or seminar/talk page
took/will take space; character string or |
address |
address where the seminar/talk took place; character
string or |
postcode |
post code where the seminar/talk took place;
character string or |
room |
room at which the event or seminar/talk page took/will
take space; character string or |
start |
|
end |
|
year |
year of the presentation; numeric, e.g. |
month |
month of the presentation; numeric (1-12) or |
day |
day of the presentation; numeric (1-31) or |
start_hour |
start hour of the presentation; numeric (1-24) or
|
end_hour |
end hour of the presentation; numeric (1-24) or
|
start_min |
start minute of the presentation; numeric (0-60)
or |
end_min |
end minute of the presentation; numeric (0-60) or
|
start_sec |
start second of the presentation; numeric (0-60)
or |
end_sec |
end second of the presentation; numeric (0-60) or
|
tag |
a tag for the presentation; character string or |
tz |
timezone. Default is |
If object
is not specified then add_presentation()
will create
an semnar
object based on the supplied inputs, otherwise it
will add the details of the new presentation on object
.
If the start date and end date are specified (either through
start
and end
or through year
, month
, day
) and no
information is provided or can be inferred about start/end times,
then a time of 0 hours, 0 minutes and 0 seconds is assumed.
An error is thrown if the start date/time is after the end date/time.
A structured data.frame()
that also inherits from class semnar
, including the supplied presentation details.
presenter()
plot.semnar()
shorten_url()
guess_address()
# Two of my past talks out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", materials = "https://ikosmidis.com/files/ikosmidis_YRM_2019.pdf", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00) |> add_presentation(country = "United States", city = "Stanford", lon = -122.165330, lat = 37.429464, event = "useR! 2016", title = "brglm: Reduced-bias inference in generalized linear models", link = "https://user2016.r-project.org//files/abs-book.pdf", materials = "https://bit.ly/2KCBbKg", type = "presentation", institution = NA, department = NA, venue = "Stanford Institute for Economic Policy Research", room = "Siepr 120", year = 2016, month = 06, day = 29, start_hour = 14, start_min = 15, end_hour = 14, end_min = 35) out
# Two of my past talks out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", materials = "https://ikosmidis.com/files/ikosmidis_YRM_2019.pdf", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00) |> add_presentation(country = "United States", city = "Stanford", lon = -122.165330, lat = 37.429464, event = "useR! 2016", title = "brglm: Reduced-bias inference in generalized linear models", link = "https://user2016.r-project.org//files/abs-book.pdf", materials = "https://bit.ly/2KCBbKg", type = "presentation", institution = NA, department = NA, venue = "Stanford Institute for Economic Policy Research", room = "Siepr 120", year = 2016, month = 06, day = 29, start_hour = 14, start_min = 15, end_hour = 14, end_min = 35) out
semnar_event
object with event detailsCreate a semnar_event
object with event details
event( event = NA, country = NA, city = NA, state = NA, lon = NA, lat = NA, link = NA, institution = NA, department = NA, school = NA, venue = NA, address = NA, postcode = NA )
event( event = NA, country = NA, city = NA, state = NA, lon = NA, lat = NA, link = NA, institution = NA, department = NA, school = NA, venue = NA, address = NA, postcode = NA )
event |
either |
country |
country where the presentation took place; character
string or |
city |
city where the presentation took place; character
string or |
state |
state where the presentation took place; character
string or |
lon |
longitude of the venue of the presentation; numeric or
|
lat |
latitude of the venue of the presentation; numeric or
|
link |
link to the event or seminar/talk page; character
string or |
institution |
institution at which the event or seminar/talk
page took/will take space; character string or |
department |
department at which the event or seminar/talk
page took/will take space; character string or |
school |
school at which the event or seminar/talk page
took/will take space; character string or |
venue |
venue at which the event or seminar/talk page
took/will take space; character string or |
address |
address where the seminar/talk took place; character
string or |
postcode |
post code where the seminar/talk took place;
character string or |
A structured data.frame()
that also inherits from class semnar_event
, including the supplied event details.
get_event()
set_event()
presenter()
get_presenter()
set_presenter()
# A past talk of mine IK_warwick <- presenter(name = "Ioannis", surname = "Kosmidis", affiliation = "University of Warwick", link = "https://www.ikosmidis.com") YRM <- event(event = "Young Researchers' Meeting", country = "England", city = "Coventry", state = "NA", lon = -1.560843, lat = 52.384019, link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", institution = "University of Warwick", department = "Department of Statistics", school = NA, venue = "Mathemtical Sciences Building", address = NA, postcode = NA) out <- add_presentation(event = YRM, presenter = IK_warwick, title = "A workflow that most probably isn't yours", type = "presentation", start = "20190528 16:00", end = "20190528 17:00")
# A past talk of mine IK_warwick <- presenter(name = "Ioannis", surname = "Kosmidis", affiliation = "University of Warwick", link = "https://www.ikosmidis.com") YRM <- event(event = "Young Researchers' Meeting", country = "England", city = "Coventry", state = "NA", lon = -1.560843, lat = 52.384019, link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", institution = "University of Warwick", department = "Department of Statistics", school = NA, venue = "Mathemtical Sciences Building", address = NA, postcode = NA) out <- add_presentation(event = YRM, presenter = IK_warwick, title = "A workflow that most probably isn't yours", type = "presentation", start = "20190528 16:00", end = "20190528 17:00")
semnar
objectGet event information from a semnar
object
## S3 method for class 'semnar' get_event(object) get_event(object)
## S3 method for class 'semnar' get_event(object) get_event(object)
object |
either an object an object of class |
A list of semnar_event
objects, with the unique presenters in the object
.
IK_warwick <- presenter(name = "Ioannis", surname = "Kosmidis", affiliation = "University of Warwick", link = "https://www.ikosmidis.com") YRM <- event(event = "Young Researchers' Meeting", country = "England", city = "Coventry", state = "NA", lon = -1.560843, lat = 52.384019, link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", institution = "University of Warwick", department = "Department of Statistics", school = NA, venue = "Mathemtical Sciences Building", address = NA, postcode = NA) out <- add_presentation(presenter = IK_warwick, event = "A", country = "Greece", title = "S") |> add_presentation(presenter = IK_warwick, event = "B", city = "London", country = "UK", title = "T") |> add_presentation(presenter = IK_warwick, event = YRM, title = "U") get_event(out)
IK_warwick <- presenter(name = "Ioannis", surname = "Kosmidis", affiliation = "University of Warwick", link = "https://www.ikosmidis.com") YRM <- event(event = "Young Researchers' Meeting", country = "England", city = "Coventry", state = "NA", lon = -1.560843, lat = 52.384019, link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", institution = "University of Warwick", department = "Department of Statistics", school = NA, venue = "Mathemtical Sciences Building", address = NA, postcode = NA) out <- add_presentation(presenter = IK_warwick, event = "A", country = "Greece", title = "S") |> add_presentation(presenter = IK_warwick, event = "B", city = "London", country = "UK", title = "T") |> add_presentation(presenter = IK_warwick, event = YRM, title = "U") get_event(out)
semnar
objectGet presenter information from a semnar
object
## S3 method for class 'semnar' get_presenter(object) get_presenter(object)
## S3 method for class 'semnar' get_presenter(object) get_presenter(object)
object |
either an object an object of class |
A list of semnar_presenter
objects, with the unique presenters in the object
.
out <- add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University of Warwick", presenter_email = "[email protected]", title = "A") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "B") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "C") get_presenter(out)
out <- add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University of Warwick", presenter_email = "[email protected]", title = "A") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "B") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "C") get_presenter(out)
semnar
object using OSM's API for reverse geocodingGuess presentation address in a semnar
object using OSM's API for reverse geocoding
## S3 method for class 'semnar' guess_address(object, all = FALSE) guess_address(object, all = TRUE)
## S3 method for class 'semnar' guess_address(object, all = FALSE) guess_address(object, all = TRUE)
object |
an object of class |
all |
should we be guessing all addresses ( |
guess_address()
is using reverse geocoding through the API at
https://nominatim.openstreetmap.org. Please check at that
link for requests limits.
An object of class semnar
with all (all = TRUE
) or the missing presentation addresses (all = FALSE
) completed.
out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", materials = "https://ikosmidis.com/files/ikosmidis_YRM_2019.pdf", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00) |> add_presentation(country = "United States", city = "Stanford", lon = -122.165330, lat = 37.429464, event = "useR! 2016", title = "brglm: Reduced-bias inference in generalized linear models", link = "https://user2016.r-project.org//files/abs-book.pdf", materials = "https://bit.ly/2KCBbKg", type = "presentation", institution = NA, department = NA, venue = "Stanford Institute for Economic Policy Research", room = "Siepr 120", year = 2016, month = 06, day = 29, start_hour = 14, start_min = 15, end_hour = 14, end_min = 35) out$address # Reverse geocoding out <- guess_address(out) out$address
out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", materials = "https://ikosmidis.com/files/ikosmidis_YRM_2019.pdf", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00) |> add_presentation(country = "United States", city = "Stanford", lon = -122.165330, lat = 37.429464, event = "useR! 2016", title = "brglm: Reduced-bias inference in generalized linear models", link = "https://user2016.r-project.org//files/abs-book.pdf", materials = "https://bit.ly/2KCBbKg", type = "presentation", institution = NA, department = NA, venue = "Stanford Institute for Economic Policy Research", room = "Siepr 120", year = 2016, month = 06, day = 29, start_hour = 14, start_min = 15, end_hour = 14, end_min = 35) out$address # Reverse geocoding out <- guess_address(out) out$address
semnar
mapsInteractive semnar
maps
## S3 method for class 'semnar' plot( x, group = "city", title = NA, title_position = "bottomleft", provider = "OpenStreetMap.Mapnik", interval = TRUE, date_format = "dmy", shorten_url = FALSE, service = "Is.gd", width = NULL, height = NULL, show_event_url = FALSE, opacity = 0.2, past_year_colour = "#737373", this_year_colour = "#ef3b2c", ... )
## S3 method for class 'semnar' plot( x, group = "city", title = NA, title_position = "bottomleft", provider = "OpenStreetMap.Mapnik", interval = TRUE, date_format = "dmy", shorten_url = FALSE, service = "Is.gd", width = NULL, height = NULL, show_event_url = FALSE, opacity = 0.2, past_year_colour = "#737373", this_year_colour = "#ef3b2c", ... )
x |
an object of class |
group |
according to what should the semnars be selected on the map? Available options are |
title |
character string for the title of the map. Default is |
title_position |
the position of the title on the map, if |
provider |
the provider of tiles for the base map. See |
interval |
Should the start and end times in each popup be displayed as an interval ( |
date_format |
In what format should the dates be displayed? Available options are |
shorten_url |
Should the URL links in |
service |
service to use for shortening URLs. Current options are |
width |
As in |
height |
As in |
show_event_url |
Should the event or talk/seminar URL ( |
opacity |
As in |
past_year_colour |
Colour to be used for past year's presentations. Default is |
this_year_colour |
Colour to be used for this year's presentations. Default is |
... |
Arguments to be passed to other methods. Currently unused. |
An interactive map (opens in browser) with the locations of the
events. When the locations are clicked, pup-ups appear which give
access to event details. A legend with the colour-year combination
is printed only if this_year_colour != past_year_colour
. The
current year is determined by lubridate::year(Sys.time())
.
out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", materials = "https://ikosmidis.com/files/ikosmidis_YRM_2019.pdf", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00) |> add_presentation(country = "United States", city = "Stanford", lon = -122.165330, lat = 37.429464, event = "useR! 2016", title = "brglm: Reduced-bias inference in generalized linear models", link = "https://user2016.r-project.org//files/abs-book.pdf", materials = "https://bit.ly/2KCBbKg", type = "presentation", institution = NA, department = NA, venue = "Stanford Institute for Economic Policy Research", room = "Siepr 120", year = 2016, month = 06, day = 29, start_hour = 14, start_min = 15, end_hour = 14, end_min = 35) if (interactive()) { plot(out, group = "city", title = "<a href='https://cran.r-project.org/package=semnar'>semnar</a> map") }
out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", materials = "https://ikosmidis.com/files/ikosmidis_YRM_2019.pdf", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00) |> add_presentation(country = "United States", city = "Stanford", lon = -122.165330, lat = 37.429464, event = "useR! 2016", title = "brglm: Reduced-bias inference in generalized linear models", link = "https://user2016.r-project.org//files/abs-book.pdf", materials = "https://bit.ly/2KCBbKg", type = "presentation", institution = NA, department = NA, venue = "Stanford Institute for Economic Policy Research", room = "Siepr 120", year = 2016, month = 06, day = 29, start_hour = 14, start_min = 15, end_hour = 14, end_min = 35) if (interactive()) { plot(out, group = "city", title = "<a href='https://cran.r-project.org/package=semnar'>semnar</a> map") }
semnar_presenter()
object with presenter detailsCreate a semnar_presenter()
object with presenter details
presenter( name = NA, midname = NA, surname = NA, affiliation = NA, link = NA, email = NA, address = NA )
presenter( name = NA, midname = NA, surname = NA, affiliation = NA, link = NA, email = NA, address = NA )
name |
name of the presenter; character string or |
midname |
middle name of the presenter; character string or |
surname |
surname of the presenter; character string or |
affiliation |
affiliation of the presenter; character string or |
link |
link to the webpage of the presenter; character string or |
email |
email of the presenter; character string or |
address |
address of the presenter; character string or |
A structured data.frame()
that also inherits from class semnar_presenter
, including the supplied presenter details.
get_presenter set_presenter
# A past talk of mine ik_warwick <- presenter(name = "Ioannis", surname = "Kosmidis", affiliation = "University of Warwick", link = "https://www.ikosmidis.com") out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", presenter = ik_warwick, link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00)
# A past talk of mine ik_warwick <- presenter(name = "Ioannis", surname = "Kosmidis", affiliation = "University of Warwick", link = "https://www.ikosmidis.com") out <- add_presentation(country = "England", city = "Coventry", lon = -1.560843, lat = 52.384019, event = "Young Researchers' Meeting", title = "A workflow that most probably isn't yours", presenter = ik_warwick, link = "https://warwick.ac.uk/fac/sci/statistics/news/yrm/", type = "presentation", institution = "University of Warwick", department = "Department of Statistics", venue = "Mathematical Sciences Building", room = "M1.02", year = 2019, month = 5, day = 28, start_hour = 16, start_min = 00, end_hour = 17, end_min = 00)
semnar
objectSet event information in a semnar
object
## S3 method for class 'semnar' set_event(object, event) set_event(object, event)
## S3 method for class 'semnar' set_event(object, event) set_event(object, event)
object |
either an object an object of class |
event |
an object of class |
The semnar
object supplied in object
, with the event
information as in event
. See the output of
semnar:::get_event_variables()
for what variables are
affected.
out <- add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University of Warwick", title = "A", country = "UK") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "B") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "C", country = "Greece", city = "Athens") WA <- event("WA", "UK", "Lon", "Lon", NA, NA, NA, "British Library") out set_event(out, WA)
out <- add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University of Warwick", title = "A", country = "UK") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "B") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "C", country = "Greece", city = "Athens") WA <- event("WA", "UK", "Lon", "Lon", NA, NA, NA, "British Library") out set_event(out, WA)
semnar
objectSet presenter information from a semnar
object
## S3 method for class 'semnar' set_presenter(object, presenter) set_presenter(object, presenter)
## S3 method for class 'semnar' set_presenter(object, presenter) set_presenter(object, presenter)
object |
either an object an object of class |
presenter |
an object of class |
The semnar
object supplied in object
, with the
presenter information as in presenter
. See the output of
semnar:::get_presenter_variables()
for what variables are
affected.
presenter get_presenter
out <- add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University of Warwick", title = "A") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "B") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "C") john_doe <- presenter(name = "John", surname = "Doe", affiliation = "Nowhereland", link = "https://johndoe.nowhereland.com", email = "[email protected]") out set_presenter(out, john_doe)
out <- add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University of Warwick", title = "A") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "B") |> add_presentation(presenter_name = "Ioannis", presenter_surname = "Kosmidis", presenter_affiliation = "University College London", title = "C") john_doe <- presenter(name = "John", surname = "Doe", affiliation = "Nowhereland", link = "https://johndoe.nowhereland.com", email = "[email protected]") out set_presenter(out, john_doe)
semnar
objectShorten the URLs of any links in a semnar
object
shorten_url(object, service = "V.gd") ## S3 method for class 'semnar' shorten_url(object, service = "Is.gd")
shorten_url(object, service = "V.gd") ## S3 method for class 'semnar' shorten_url(object, service = "Is.gd")
object |
an object of class |
service |
service to use for shortening URLs. Current options are |
An object of class semnar
with any URLs in object$link
replace with shorter ones according to the value of service
.
add_presentation()
guess_address()