Inspiration

This was inspired by wanting to read a textbook Mandell, Douglas, and Bennett’s Principles and Practice of Infectious Diseases. But, I didn’t want to read the textbook in sequence. Hence, I figured that if I read a paragraph a day in a random chapter, I might be able to benefit from random learning! This is also great for idea generation for some of our mysterious cases when we are still building differential diagnoses. But, how do we do that?

Thought process

• 2 different workstations (personal and work)
  • Hence I will have 2 different directories. Need a system for this
• Get all the pdf files of the textbook in my directory
• Randomly select 1 pdf
• Use DT to project the link to browser to read the pdf file

2 different workstations (personal and work) < svg class="anchor-symbol" aria-hidden="true" height="26" width="26" viewBox="0 0 22 22" xmlns="http://www.w3.org/2000/svg"> < path d="M0 0h24v24H0z" fill="currentColor"> < path d="M3.9 12c0-1.71 1.39-3.1 3.1-3.1h4V7H7c-2.76.0-5 2.24-5 5s2.24 5 5 5h4v-1.9H7c-1.71.0-3.1-1.39-3.1-3.1zM8 13h8v-2H8v2zm9-6h-4v1.9h4c1.71.0 3.1 1.39 3.1 3.1s-1.39 3.1-3.1 3.1h-4V17h4c2.76.0 5-2.24 5-5s-2.24-5-5-5z">

# Get Sys.info  
compname <- Sys.info()

# if the login is so_and_so, assign home as TRUE
if (compname["login"]=="so_and_so") {
  home <- TRUE } else { home <-FALSE }

# if home is TRUE then assign the following link
if (home) {
  pathurl <- "G:/My%20Drive/mandell/"
  path <- "G:/My Drive/mandell/"
} else {
  path <- "C:/Users/so_and_so/Documents/googledrive/mandell/"
  pathurl <- "C:/Users/so_and_so/Documents/googledrive/mandell/"
}

• you can skip this if you are only using 1 computer, or computers with the same login
• Obviously the so_and_so is a false login name, you will need to change that.
• same with the path and pathurl as well, change it to whatever resource you want to point to
• Note to self: I have to insert %20 in any white space of the directory in order for the URL to actually work

Get all the pdf files of the textbook in my directory < svg class="anchor-symbol" aria-hidden="true" height="26" width="26" viewBox="0 0 22 22" xmlns="http://www.w3.org/2000/svg"> < path d="M0 0h24v24H0z" fill="currentColor"> < path d="M3.9 12c0-1.71 1.39-3.1 3.1-3.1h4V7H7c-2.76.0-5 2.24-5 5s2.24 5 5 5h4v-1.9H7c-1.71.0-3.1-1.39-3.1-3.1zM8 13h8v-2H8v2zm9-6h-4v1.9h4c1.71.0 3.1 1.39 3.1 3.1s-1.39 3.1-3.1 3.1h-4V17h4c2.76.0 5-2.24 5-5s-2.24-5-5-5z">

file <- list.files(paste0(path))

Randomly select 1 pdf < svg class="anchor-symbol" aria-hidden="true" height="26" width="26" viewBox="0 0 22 22" xmlns="http://www.w3.org/2000/svg"> < path d="M0 0h24v24H0z" fill="currentColor"> < path d="M3.9 12c0-1.71 1.39-3.1 3.1-3.1h4V7H7c-2.76.0-5 2.24-5 5s2.24 5 5 5h4v-1.9H7c-1.71.0-3.1-1.39-3.1-3.1zM8 13h8v-2H8v2zm9-6h-4v1.9h4c1.71.0 3.1 1.39 3.1 3.1s-1.39 3.1-3.1 3.1h-4V17h4c2.76.0 5-2.24 5-5s-2.24-5-5-5z">

ran <- sample(file,1)

Use DT to project the link to browser to read the pdf file < svg class="anchor-symbol" aria-hidden="true" height="26" width="26" viewBox="0 0 22 22" xmlns="http://www.w3.org/2000/svg"> < path d="M0 0h24v24H0z" fill="currentColor"> < path d="M3.9 12c0-1.71 1.39-3.1 3.1-3.1h4V7H7c-2.76.0-5 2.24-5 5s2.24 5 5 5h4v-1.9H7c-1.71.0-3.1-1.39-3.1-3.1zM8 13h8v-2H8v2zm9-6h-4v1.9h4c1.71.0 3.1 1.39 3.1 3.1s-1.39 3.1-3.1 3.1h-4V17h4c2.76.0 5-2.24 5-5s-2.24-5-5-5z">

library(tidyverse)
library(DT)

data <- tibble(link = paste0('<a  target=_blank href=file:///',pathurl, ran,'>',ran,'</a>' ))

datatable(data, escape=F)

Have to make sure that the html code <a target=_blank href=file:/// and sandwiches the pathurl and ran which is the actual file name

 Then you can `right-click` on it and then click `Open link in browser` to open onto default PDF reader

Conclusion/Lessons Learnt:

• Everyday random learning is fantastic! Sometimes it inspires me to think a bit differently when I approach a case
• Learnt to add %20 to any white space if I want to use it as a URL link
• Learnt about list.files
• Learnt <a target=_blank href=file:///
• Learnt that I could use DT to project the URL after putting into a tibble
• Daily tips: I usually just highlight the end of paragraph where I left off and resume the next time if I stumble upon the same pdf